Question

VB监听端口后.把监听的数据发回发送源

VB监听端口后.把监听的数据发回发送源

就是IP:XXXX（端口随机）发送数据给我.然后我要把数据发送回IP:XXXX
【记得端口是随机的。对方哪个端口来。就得哪个端口回去！】

会的解答哟！简单的写代码就可以。
不要拿搜索的来忽悠！

Answer 1

代码是没有了，我只有VC的，最近在写
老实说，端口不是随机的，我或咐也能知道你是什么意思，就是NAT要返回的。裤团陆
在收到消息的函数里面，会有一个参数，如果是用Windows API做的话，就有一个sockaddr_in的结构体，里面包含了对方的IP和端口，记得端口是高低字节错位的，把高8位和低8位调换一下就好了。
有了对方的IP和端口，直接再向这个IP和端口发消息就好了。
以上的是针对UDP协议的

如果是TCP协议，服务器就更简单了，客户端连接过来，服务器端需要用accept建立连接，建立后直接有一胡顷个Socket，以后就一直用这个socket发消息，发过去的就是这个用户的。

Answer 2

以下代码可以用来监视用户打开的端口和ip:

Private Type MIB_TCPROW
dwState As Long
dwLocalAddr As Long
dwLocalPort As Long
dwRemoteAddr As Long
dwRemotePort As Long
End Type
Private Type MIB_TCPTABLE
dwNumEntries As Long
table(100) As MIB_TCPROW
End Type
Private Declare Function GetTcpTable Lib "iphlpapi.dll" (ByRef pTcpTable As MIB_TCPTABLE, ByRef pdwSize As Long, ByVal bOrder As Long) As Long

Public Sub GetPort()
On Error Resume Next
Dim TCP As MIB_TCPTABLE
Dim i As Long '控制循环

GetTcpTable TCP, Len(TCP), 1

For i = 0 To TCP.dwNumEntries - 1

'TCP.table(i).dwRemoteAddr ——连接的远程ip

'TCP.table(i).dwRemotePort ——连接的远程端口

'TCP.table(i).dwState ——连接状态

Next
End Sub

但是这个方法仅仅用来监视所有的陪拦网络连接情况，不能具体知道高圆是什么程序连接了什么，比如只能知道电脑连接了8000端口，却不知道是OICQ连接芦念胡的。

Answer 3

vb 里有个winsock控件，可以用这个

Answer 4

UDP还是TCP?