内网互联测试成功。。。

写着玩的。。
其实也很简单。。。
服务器代码:

一个 form 里面放个 ws

Private Sub Form_Load()
    On Error GoTo HasError
    ws.Protocol = sckUDPProtocol
    ws.Bind 34952
    Me.Hide
    Exit Sub
HasError:
    End
End Sub

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
    Dim Data As String
    On Error GoTo HasError
    ws.GetData Data, vbString
    If Data = "show me the address" Then ws.SendData "your address: " & ws.RemoteHostIP & ":" & ws.RemotePort
    Exit Sub
HasError:
    ws.Close
    DoEvents
    ws.Bind 34952
End Sub

客户端代码:
一个 form 里面放一个 tmr，一个 ws

Private Sub Form_Load()
    tmr.Interval = 1000
    ws.Protocol = sckUDPProtocol
End Sub

Private Sub tmr_Timer()
    ws.RemoteHost = "vip.366tian.net" ' 你的服务器地址
    ws.RemotePort = 34952
    ws.SendData "show me the address"
End Sub

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
    ws.GetData Data, vbString
    lst.AddItem "[" & Time & "] " & Data
    lst.ListIndex = lst.ListCount - 1
End Sub

iceboy 原创。。。