内网互联(UDP打洞)简单代码

程序&源码 CN-P5 2267℃ 0评论

内网互联(UDP打洞)简单代码
服务器代码:

一个 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

转载请注明:黑白的自留地 » 内网互联(UDP打洞)简单代码

喜欢 (0)
发表我的评论
取消评论

表情

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址
(3)个小伙伴在吐槽
  1. 计算机 你好哦
    狗抛地段2008-10-17 09:35 Reply
  2. 哦 呵呵 你是伞的老公把
    狗抛地段2008-10-17 09:36 Reply
  3. 呵呵,是的。
    rzsky2008-10-17 09:51 Reply