winsock控件

[冰天天]

哪位大哥会用这个控件发信呀，请详细写出，谢谢！

[冰天天]

lc_mtt(柠檬):
不告诉就别那么多话

[lc_mtt]

要多详细？你起码自己找本VB网络编程的书看看，有问题再问啊。劈头就问怎么用Winsock发信，还不如直接问Windows怎么写好。

[yoyo9250]

客户端：

Private Sub Form_Load()
Winsock1.RemoteHost = "192.168.1.79"
Winsock1.RemotePort = 1001
Winsock1.Connect
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim bytRcvData() As Byte

'Receive Data
Winsock1.GetData bytRcvData, vbArray + vbByte, bytesTotal

End Sub
Private Sub Winsock1_Close()
Winsock1.Close

End Sub

服务器端：
Private Sub Form_Load()
'Listen 1001 Port
Winsock1.LocalPort = 1001
Winsock1.Listen

End Sub
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
'Accept
If Winsock1.State <> sckClosed Then Winsock1.Close
Winsock1.Accept requestID

End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim bytRcvData() As Byte
Dim bytSndData(1) As Byte

'Receive Data
Winsock1.GetData bytRcvData, vbArray + vbByte, bytesTotal
End Sub
Private Sub Winsock1_Close()
Winsock1.Close
Winsock1.LocalPort = 1001
Winsock1.Listen


End Sub
写入正确的IP地址就可以了

发信息用　Winsock.senddata sendstring
将所发信息存入sendstring中