VB_tcp客户端可用版修改版
Private Sub Command1_Click()
Text1.Text = ""
If Text3.Text = "" And Text4.Text = "" Then
MsgBox "请输入IP地址和端口号"
 
Else
Command1.Enabled = False
Text2.Text = "正在连接。。。。"
Command2.Enabled = True
    If WinsockClient.State <> sckClosed Then WinsockClient.Close
    WinsockClient.RemoteHost = Trim(Text3.Text)
    WinsockClient.RemotePort = Val(Text4.Text)
    WinsockClient.Connect
End If
   
植物大战僵尸无尽版秘籍End Sub
Private Sub Command2_Click()
WinsockClient.Close
Command2.Enabled = False
Text2.Text = "已断开"
Command1.Enabled = True
End Sub
Private Sub Command3_Click()
Text1.Text = ""
Text1.SetFocus
End Sub
Private Sub Command4_Click()
Text5.Text = ""
End Sub
Private Sub Command5_Click()
If WinsockClient.State <> sckConnected Then
    Text2.Text = "端口已关闭" & "请重新连接"
Else
    Dim sed As String
    sed = Text5.Text
    WinsockClient.SendData sed
   
End If
End Sub
Private Sub Form_Load()
If Text2.Text <> "" Then Text2.Text = ""
Text3.Text = "10.37.9.123"
Text4.Text = 80
    If WinsockClient.State <> sckClosed Then WinsockClient.Close
    WinsockClient.RemoteHost = Trim(Text3.Text)
    WinsockClient.RemotePort = Val(Text4.Text)
   
   
 
End Sub
Private Sub WinsockClient_Close()
Text2.Text = "已断开"
Command2.Enabled = False
Command1.Enabled = True
End Sub
Private Sub WinsockClient_Connect()
Text2.Text = "连接成功！"
End Sub
Private Sub WinsockClient_DataArrival(ByVal bytesTotal As Long)
  Dim Str As String
    WinsockClient.GetData Str
    Text1.Text = Str
    Text2.Text = "接收完毕"
End Sub
Private Sub WinsockClient_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
WinsockClient.Close
Text2.Text = "连接失败！"
Command1.Enabled = True
End Sub

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。