1,502
社区成员
发帖
与我相关
我的任务
分享
Private Sub Command1_Click()
Static OldWord As String
If Trim(Text1.Text) = "" Or Trim(Text2.Text) = "" Or Trim(Text3.Text) = "" Or Trim(Text4.Text) = "" Or Trim(Text5.Text) = "" Then Exit Sub
If Trim(Text5.Text) <> "" And OldWord <> Text1.Text & ":" & Text5.Text Then
Winsock1.RemoteHost = Text2.Text
Winsock1.SendData Text1.Text & ":" & Text5.Text
List1.AddItem Text1.Text & ":" & Text5.Text
OldWord = Text1.Text & ":" & Text5.Text
End If
End Sub
Private Sub Command2_Click()
Winsock1.Close
Winsock1.RemoteHost = Text2.Text
Winsock1.LocalPort = Val(Text3.Text)
Winsock1.RemotePort = Val(Text4.Text)
Winsock1.Bind Val(Text3.Text)
End Sub
Private Sub Form_Load()
Label4.Caption = "本机IP:" & Winsock1.LocalIP
Text2.Text = "10.2.5.47"
Text3.Text = "1001"
Text4.Text = "1001"
Winsock1.LocalPort = Val(Text3.Text)
Winsock1.RemotePort = Val(Text4.Text)
Winsock1.Bind Val(Text3.Text)
End Sub
Private Sub List1_Click()
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim Temp As String
Winsock1.GetData Temp
List1.AddItem Temp
End Sub