我也在写这个方面的题目!这个是用UDP协议写的,但是不能成功,不知道问题出在哪里??? 请高手指教,给出具体的解决方案!~~! 或者也可以发个实例给我。 .cn 代码如下: Private Sub Command1_Click() Winsock1.SendData txtsend.Text End SubPrivate Sub Form_Load() Dim my As String Winsock1.Protocol = sckUDPProtocol Winsock1.LocalPort = 2000 Winsock1.RemotePort = 2001 my = Winsock1.LocalIP Winsock1.RemoteHost = "222.18.159.136" End SubPrivate Sub Winsock1_dataarrival(ByVal bytestotal As Long) Dim tmp As String Winsock1.GetData tmp, vbString tmp = "对方地址:" + Winsock1.RemoteHostIP + Chr(13) + Chr(10) + tmp txtmess.Text = tmp + Chr$(13) + Chr$(10) + txtmess.Text End Sub (以上是我的机子用的代码)Private Sub Command1_Click() Winsock1.SendData txtsend.Text End SubPrivate Sub Form_Load() Dim my As String Winsock1.Protocol = sckUDPProtocol Winsock1.LocalPort = 2001 Winsock1.RemotePort = 2000 my = Winsock1.LocalIP Winsock1.RemoteHost = "222.18.159.153" End SubPrivate Sub Winsock1_dataarrival(ByVal bytestotal As Long) Dim tmp As String Winsock1.GetData tmp, vbString tmp = "对方地址:" + Winsock1.RemoteHostIP + Chr(13) + Chr(10) + tmp txtmess.Text = tmp + Chr$(13) + Chr$(10) + txtmess.Text End Sub (这是对方机子用的代码)有人要我把端口绑定了,但我绑定了以后还是不能互相通信。 这是为什么啊????????? 帮帮我啊!!!!!!!
如果是TCP, 则必须在局域网连接外网的路由器上设置端口映射或者地址映射。
如果是UDP,则使用现在时髦的P2P技术,前提是需要一台位于公网上的服务器。
请高手指教,给出具体的解决方案!~~!
或者也可以发个实例给我。
.cn
代码如下:
Private Sub Command1_Click()
Winsock1.SendData txtsend.Text
End SubPrivate Sub Form_Load()
Dim my As String
Winsock1.Protocol = sckUDPProtocol
Winsock1.LocalPort = 2000
Winsock1.RemotePort = 2001
my = Winsock1.LocalIP
Winsock1.RemoteHost = "222.18.159.136"
End SubPrivate Sub Winsock1_dataarrival(ByVal bytestotal As Long)
Dim tmp As String
Winsock1.GetData tmp, vbString
tmp = "对方地址:" + Winsock1.RemoteHostIP + Chr(13) + Chr(10) + tmp
txtmess.Text = tmp + Chr$(13) + Chr$(10) + txtmess.Text
End Sub
(以上是我的机子用的代码)Private Sub Command1_Click()
Winsock1.SendData txtsend.Text
End SubPrivate Sub Form_Load()
Dim my As String
Winsock1.Protocol = sckUDPProtocol
Winsock1.LocalPort = 2001
Winsock1.RemotePort = 2000
my = Winsock1.LocalIP
Winsock1.RemoteHost = "222.18.159.153"
End SubPrivate Sub Winsock1_dataarrival(ByVal bytestotal As Long)
Dim tmp As String
Winsock1.GetData tmp, vbString
tmp = "对方地址:" + Winsock1.RemoteHostIP + Chr(13) + Chr(10) + tmp
txtmess.Text = tmp + Chr$(13) + Chr$(10) + txtmess.Text
End Sub
(这是对方机子用的代码)有人要我把端口绑定了,但我绑定了以后还是不能互相通信。
这是为什么啊?????????
帮帮我啊!!!!!!!
http://www.itvue.com/Article/CISCO/CIROUTE/NAT/200412/543.html