Question

vb 实现WINSOCK1连接问题

Private Sub Form_Load()
Winsock1.LocalPort = 8888
Winsock1.Listen
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Accept requestID
Label1.Caption = "ok"
End Sub

端口此时没打开。略去了winsock1.close还是出现错误了
Private Sub Command1_Click()
Winsock1.Connect
End Sub

Private Sub Form_Load()
Winsock1.RemoteHost = "127.0.0.1"
Winsock1.RemotePort = 8888
End Sub
要如何解决呢

Answer 1

Private Sub Form_Load()
Winsock1.LocalPort = 8888
Winsock1.Listen
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
Label1.Caption = "ok"
End Sub

端口此时没打开。略去了winsock1.close还是出现错误了
Private Sub Command1_Click()
Winsock1.Connect
End Sub

Private Sub Form_Load()
Winsock1.RemoteHost = "127.0.0.1"
Winsock1.RemotePort = 8888
End Sub

Answer 2

恩
没什么问题.就是少了一句.你知道的.只要一句画龙点睛
我不说了.浮云飘过= =需要的时候call我