程序主要实现字符串的发送和接收。
添加部件
服务器端程序
Private Sub Command1_Click() Unload Me End Sub Private Sub Command2_Click() Me.Winsock1.SendData Me.txtSend.Text End Sub Private Sub Form_Load() Me.Winsock1.LocalPort = 10001 Me.txtServerIP.Text = Me.Winsock1.LocalIP Me.Winsock1.Listen End Sub Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long) Me.Winsock1.Close Me.Winsock1.Accept requestID End Sub Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim MyStr As String Me.Winsock1.GetData MyStr Me.txtReceive.Text = MyStr End Sub |
客户端程序
Private Sub Command1_Click() Unload Me End Sub Private Sub Command2_Click() Me.Winsock1.RemoteHost = Me.txtServerIP.Text Me.Winsock1.Connect End Sub Private Sub Command3_Click() Me.Winsock1.SendData Me.txtSend.Text End Sub Private Sub Form_Load() Me.Winsock1.RemotePort = 10001 Me.txtClientIP.Text = Me.Winsock1.LocalIP End Sub Private Sub Winsock1_Connect() MsgBox “chenggong” End Sub Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim mystr As String Me.Winsock1.GetData mystr Me.txtReceive.Text = mystr End Sub |