关于VB里头winsock的问题

客户端的:
Private Sub Command1_Click()
a = 8888
Winsock1.SendData a '发送A
End Sub

Private Sub Form_Load()
With Winsock1
.RemoteHost = "222.131.98.443" '设置远程服务器IP为222.131.98.443
.RemotePort = "80" '设置断口为80
.Connect '连接
End With
End Sub
服务器的:
Private Sub Form_Load()
With Winsock1
.LocalPort = "80" '设置要监听的端口
.Listen '监听
End With
End Sub

Private Sub Winsock1_Connect()
Text1.Text = "已建立连接！"

End Sub

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

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Winsock1.GetData a
Text1.Text = a
End Sub
同志,这是我写的,空间也加了

关于VB里头winsock的问题 关于vb的winsock通信问题 VB的 winsock连接 关于VB的 ftp上传下载是否要用Winsock控件 关于VB编程中WINSOCK的创建问题 一个关于Winsock控件的问题，VB高手进 vb的winsock在哪？ VB 的Winsock UDP协议 vb winsock的应用问题 懂vb的winsock的请进来