VB中winsok的问题！

来源：百度知道 编辑：UC知道 时间：2024/06/24 10:58:17
水能给我一个源码？
就是实现远程发送消息

就是服务端永远在我这台电脑上（IP不变）
无论客户端到那里，服务端都可以给客户端发送消息，而客户端不可以回消息。

就是自动确认服务端ip然后连接客户端

连接成功就发送text1中的消息
失败就提示“连接失败”

说清楚所用的控件！

好的话追100分
有源码的直接留下QQ
和我联系（全天在线）

QQ2895582

1楼的！你的载入了不能用

这个简单。我来

服务器端:
Private Sub Form_Load()
server.RemoteHost = "127.0.0.1"
server.LocalPort = 10
server.Listen
End Sub

Private Sub server_Close()
If server.State <> sckClosed Then server.Close
server.Listen
End Sub

Private Sub server_ConnectionRequest(ByVal requestID As Long)
If server.State <> sckClosed Then server.Close
server.Accept requestID

End Sub

Private Sub server_DataArrival(ByVal bytesTotal As Long)

Dim tmp As String
server.GetData tmp, vbString
Text2.Text = tmp
End Sub

客户端:
Private Sub client_Connect()
client.SendData Text1.Text
End Sub

Private Sub Command1_Click()
On Error Resume Next
If client.State <> sckClosed Then client.Close
client.Connect "127.0.0.1", 10
End Sub