Question

vb使用Winsock控件。

客户端监听1000端口，要求服务端给客户端发一个字符串“123”，客户端收到请求以后判断是不是“123”如果是则将服务端的ip写入text，不如不是则回复“错误”并断开链接。
要代码

Answer 1

以下程序是实际使用过的。
Dim Auth as Boolean

Private Sub Form_Load()
... ... ... ...
Auth = False
' 监听1000端口
winSock1.LocalPort = 1000
If winSock1.State <> sckClosed Then winSock1.Close
winSock1.Listen
... ... ... ...
End Sub

Private Sub winSock1_ConnectionRequest(index As Integer, ByVal requestID As Long)
' 建立连接

If winSock1.State <> sckClosed Then winSock1.Close
winSock1.Accept requestID

End Sub

Private Sub winSock1_DataArrival(index As Integer, ByVal bytestotal As Long)
' 接收数据，判断是否是123，断开连接，或保持连接，显示远端IP
Dim RecData As String
winSock1.GetData RecData
if Auth then
Else
if RecData <> "123" Then
winSock1.close
winSock1.Listen
Auth = False
Else
Auth = True
Text1.Text = winSock1.RemoteHostIP
End if
End If
End Sub

Answer 2

MSDN里面有详细教程，还是中文的

Answer 3

oooo

Answer 4

这个复制MSDN都可以啊

Answer 5

很有意义

Answer 6

你这流程描写得很完整啊，难到是不会编码？