VB端口转发

[suyuanping2020]

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端口
请问下各位大侠该怎么写 呢 谢谢！

[suyuanping2020]

top!

[zyg0]

其实是我不明白你的意思 如何转发 谁转发给谁 哪个控件到哪个控件

[suyuanping2020]

[Quote=引用 2 楼 的回复:]

其实是我不明白你的意思 如何转发 谁转发给谁 哪个控件到哪个控件
[/Quote]
就是 做一个转发工具来监听一个端口(比如20000端口)然后让那个连接20000端口的那个连接转发连接到本地的10000端口去

[suyuanping2020]

Private Sub Command1_Click()
    Winsock1.LocalPort = 20000'监听端口
    Winsock1.Listen
End Sub
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
    '到这里 好像是监听到20000端口有连接进来了 可是该怎么处理
End Sub

望高手指点啊 谢谢！！万分感谢！

[suyuanping2020]

我顶上去，希望高手能帮忙下！

[专注编程优化20年]

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

[suyuanping2020]

xiaoyao961朋友 先谢谢你

我的这个大概意思是这样的

某个程序来连接 这个 112.147.37.65 5003

然后我在112.147.37.65这台机子上 写个软件来监听这个5003端口

当监听到的时候 转连接到本地的端口3000

谢谢！！

[专注编程优化20年]

'服务器：
Private Sub Form_Load()
  Winsock1.LocalPort = 5003'监听端口
  Winsock1.Listen
  Winsock2.LocalPort = 3000'监听端口

End Sub
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
 
  Winsock2.Accept requestID
End Sub
 

[专注编程优化20年]

'以下是客户端模拟方式
Private Sub 客户端_连接到服务器b_Click()
 客户端Sock.Connect "112.147.37.65", 5003
End Sub



Private Sub 客户端Sock_Connect()
  MsgBox "连接到服务器成功"
  客户端Sock.SendData "我是客户端1"
End Sub

[suyuanping2020]

谢谢！
估计你还是没懂吧

某个程序来连接 这个 112.147.37.65 5003

然后我在112.147.37.65这台机子上 写个软件来监听这个5003端口

当监听到的时候 转连接到本地的端口3000(而这个3000端口是其他程序监听起的)

谢谢！！

[专注编程优化20年]

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)

Winsock2.Connect "112.147.37.65", 3000
End Sub

基本是这样，但是你的3000并不一定只是这样连接，要有协议的

[suyuanping2020]

没办法了哦 也谢谢你了 晚点再结题吧 谢谢你了