VB端口转发
Private Sub Form_Load()
Winsock1.LocalPort = 20000'监听端口
Winsock1.Listen
Winsock2.RemoteHost = "127.0.0.1"'转发IP
Winsock2.RemotePort = 10000'转发端口
Winsock2.Connect
End Sub
我目的是想先连接到20000端口 然后再让winsock2转到到本地127.0.0.1 的10000端口
请问下各位大侠该怎么写 呢 谢谢!
[解决办法]
其实是我不明白你的意思 如何转发 谁转发给谁 哪个控件到哪个控件
[解决办法]
Private Sub Form_Load()
Winsock1.LocalPort = 20000 '监听端口
Winsock1.Listen
Winsock2.LocalPort = 20005 '监听端口
End Sub
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
'到这里 好像是监听到20000端口有连接进来了 可是该怎么处理
Winsock2.Accept requestID
End Sub
'以下是客户端模拟方式
Private Sub 客户端_连接到服务器b_Click()
客户端Sock.Connect "127.0.0.1", 20000
End Sub
Private Sub 客户端Sock_Connect()
MsgBox "连接到服务器成功"
客户端Sock.SendData "我是客户端1"
End Sub
Private Sub Winsock2_DataArrival(ByVal bytesTotal As Long)
MsgBox "服务端sock2收到数据了"
End Sub
[解决办法]
'服务器:Private Sub Form_Load() Winsock1.LocalPort = 5003'监听端口 Winsock1.Listen Winsock2.LocalPort = 3000'监听端口End SubPrivate Sub Winsock1_ConnectionRequest(ByVal requestID As Long) Winsock2.Accept requestIDEnd Sub
[解决办法]
'以下是客户端模拟方式Private Sub 客户端_连接到服务器b_Click() 客户端Sock.Connect "112.147.37.65", 5003End SubPrivate Sub 客户端Sock_Connect() MsgBox "连接到服务器成功" 客户端Sock.SendData "我是客户端1"End Sub
[解决办法]
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock2.Connect "112.147.37.65", 3000
End Sub
基本是这样,但是你的3000并不一定只是这样连接,要有协议的