VB winsock运用

Question

在客户端，窗口有text1 和text2 当点击确定按钮的时候 text1和text2输入的内容发送到 服务端。

Answer 1

服务器代码：
Private Sub Form_Load()
Winsock1.LocalIP = 999 '随便一个端口
Winsock1.Listen
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close '关闭一切连接停止Listen,这样才能接受连接,如果不想停止Listen可以用另一个WINSOCK来接受连接
Winsock1.Accept requestID '接受连接
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim S As String
Winsock1.GetData S, vbString '以文本形式接收数据
MsgBox S '提示接收到的数据
End Sub

客户端代码：
Dim Conn As Boolean

Private Sub Form_Load()
Winsock2.Connect "192.168.0.103", 999 '发送连接请求,"192.168.0.103"是服务器的IP,999是服务器端口,要和服务器设置的一样
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then '如果按下回车键
If Conn Then '如果已连接
Winsock2.SendData Text1 '发送TEXT1的内容
MsgBox "已发送信息!"
End If
End If
End Sub

Private Sub Winsock2_Close()
Conn = False
End Sub

Private Sub Winsock2_Connect()
Conn = True '用一个变量来判断是否建立连接
MsgBox "已建立连接!"
End Sub

Answer 2

用winsock控件的函数：好像是send
在conmmand1中编程，首先注意是UDP还是TCP/IP，如果是UDP只需知道对方IP和端口，如果是TCP/IP则必须先建立连接，具体过程应该也有个函数。
以UDP为例，首先打开WINSOCK，然后send text1.text就可以了，具体函数名称记不清楚了。