UC知道求助:vb中winsock客户端服务器端连接问题
来源：百度知道 编辑：UC知道 时间：2024/06/27 12:35:40
在vb中,如果服务器端和客户端都在同一个exe文件中,则可以使用一个winsock来直接进行通信,如果服务器端和客户端分别在同一台主机的不同的exe文件中,则需要两个winsock控件来实现,我在服务器端和客户端对winsock分别进行了设置,但是在进行点到点通信的实验中说连接不成功,出现了40006的错误,在这里还需要定义connect和accept吗?
找了许多例子,都没有定义,但是照敲都有错误,有没有点到点通信的正确的代码呢?
谢谢.
我在一台主机上为完成点到点通信,分别设置了服务器端和客户端,即是把客户端和服务器端分别放在两个不同的exe中,可是在执行中老是出现连接不上的问题.源程序如下:
客户端:Private Sub Command1_Click()
client.SendData Text1.Text
End Sub
Private Sub Form_Load()
client.RemoteHost = "127.0.0.1"
client.RemotePort = 10
client.LocalPort = 1001
client.Bind 1001
End Sub
服务器端:
Private Sub Form_Load()
server.RemoteHost = "127.0.0.1"
server.RemotePort = 1001
server.LocalPort = 10
server.Bind 10
End Sub
Private Sub server_DataArrival(ByVal bytesTotal As Long)
Dim tmp As String
server.GetData tmp, vbString
Text2.Text = tmp
End Sub
其中client,server分别是客户端和服务器端的winsock的名字.
请高手赐教
找了许多例子,都没有定义,但是照敲都有错误,有没有点到点通信的正确的代码呢?
谢谢.
我在一台主机上为完成点到点通信,分别设置了服务器端和客户端,即是把客户端和服务器端分别放在两个不同的exe中,可是在执行中老是出现连接不上的问题.源程序如下:
客户端:Private Sub Command1_Click()
client.SendData Text1.Text
End Sub
Private Sub Form_Load()
client.RemoteHost = "127.0.0.1"
client.RemotePort = 10
client.LocalPort = 1001
client.Bind 1001
End Sub
服务器端:
Private Sub Form_Load()
server.RemoteHost = "127.0.0.1"
server.RemotePort = 1001
server.LocalPort = 10
server.Bind 10
End Sub
Private Sub server_DataArrival(ByVal bytesTotal As Long)
Dim tmp As String
server.GetData tmp, vbString
Text2.Text = tmp
End Sub
其中client,server分别是客户端和服务器端的winsock的名字.
请高手赐教
把代码发上来`
定义connect和accept吗?
'这个不需要,如果客户端发送连接请求,如果是点对点通讯的话可以直接在CONNECTIONREQUEST事件中ACCEPT REQUESTID
Private Sub Winsock1_ConnectionRequest( ByVal requestID As Long)
Winsock1.accept requestID
end sub
我有
给我邮箱
我有个聊天程序