关于 VB 2008 在局域网使用 socket 通讯

来源：百度知道 编辑：UC知道 时间：2024/05/07 06:06:18
用 VB2008 做一聊天程序，一个电脑做服务器，另外一个电脑连进来
然后互相可以发送和接受字符串
应该怎么弄？

我听一个朋友说要用一个叫 socket 的东西
可惜我那个朋友不会 VB

请教教我如何使用 socket
多谢多谢

就是winsock，这里有vb6的代码。你看能用就用吧。
客户端：
Private Sub Form_Load()
' 指定服务器主机名
SockCL.RemoteHost = "127.0.0.1"
' 指定服务器端口名
SockCL.RemotePort = 2000
' 连接到服务器
SockCL.Connect
End Sub

Private Sub SockCl_DataArrival(ByVal bytesTotal As Long)
Dim DataStr As String

' 接收数据到文本框中
SockCL.GetData DataStr
Text2.Text = DataStr
End Sub

' 向服务器发送数据
Private Sub Command1_Click()
SockCL.SendData Text1.Text
End Sub

' 退出程序
Private Sub Command2_Click()
SockCL.Close
End
End Sub
服务端：
Private Sub Form_Load()
sockserver.LocalPort = 2000 '服务器端口号,最好大于1000
sockserver.Listen '开始侦听
End Sub
Private Sub Form_Unload(Cancel As Integer)
sockserver.Close
End Sub
Private Sub SockServer_Close()
sockserve