Private Sub Form_Load()
server.LocalPort = 3000
client.RemoteHost = \"192.168.1.1\"
client.RemotePort = 3000
server.Bind
server.Listen
client.Connect
End Sub
Private Sub client_connect()
MsgBox \"连接成功\"
End Sub
Private Sub form_click()
client_connect
Print server.State
Print client.State
client.SendData \"收到了吗?\"
End Sub
Private Sub server_ConnectionRequest(ByVal requestID As Long)
server.Close
server.Accept requestID
MsgBox \"已经连接\"
End Sub
Private Sub server_DataArrival(ByVal bytesTotal As Long)
Dim contents As String
server.GetData contents, vbString
Print contents
End Sub