你把.RemotePort都设为1000就行了
解决方案 »
- (急切求助)如何实现西祠论坛自动发帖回帖?
- 请教Inet的使用
- [散分100庆祝]上班发现VB6.0大Bug:a=10000*4
- 链接拖拽和检测鼠标状态
- 困惑!vb的执行顺序
- 再论asp编程比起vb编程有什么新的思想?
- 高分求listbox右键弹出位置问题,分数不够可再加100分,一定要解决
- WindowsMediaPlayer1怎么可以在播放完MPG文件后让进度停在最后的一秒钟?
- MSFlexGrid运行时,不同大小显示器上的显示问题!求救!!!
- 请教:你一般用Visual Basic进行哪方面程序的开发?
- 请问如何在vb的Collection对象中加入自定义的Type变量?
- 请问如何在VB下将目录共享?
Option Explicit
Dim b As StringPrivate Sub 发送Command1_Click()
Winsock1.SendData Text1.Text
End SubPrivate Sub 退出Command2_Click()
End
End SubPrivate Sub Form_Load()
Form1.Width = 7695
Form1.Height = 6660
If App.PrevInstance = True Then
End
End If
With Winsock1
.Protocol = sckUDPProtocol
.RemotePort = 1000 'A
.RemoteHost = "pm"
.Bind 1001, "1.2.3.4" 'B
End With
End Sub
****B
Option Explicit
Dim b As StringPrivate Sub 发送Command1_Click()
Winsock1.SendData Text1.Text
End SubPrivate Sub 退出Command2_Click()
End
End SubPrivate Sub Form_Load()
Form1.Width = 7695
Form1.Height = 6660
If App.PrevInstance = True Then
End
End If
With Winsock1
.Protocol = sckUDPProtocol
.RemotePort = 1000 'A
.RemoteHost = "pm"
.Bind 1000, "1.2.3.4" 'B
End With
End Sub
.Protocol = sckUDPProtocol
.RemotePort = 1000 'A
.RemoteHost = "pm" ------此处也改一改
.Bind 1001, "1.2.3.4" 'B
End With
将缺省的窗体的名称修改为 frmPeerA。
将窗体的标题修改为“Peer A”。
在窗体中放入一个 Winsock 控件,并将其命名为 udpPeerA。
在“属性”页上,单击“协议”并将协议修改为 UDPProtocol。
在窗体中添加两个 TextBox 控件。将第一个命名为 txtSend,第二个命名为 txtOutput。
为窗体增加如下的代码。
Private Sub Form_Load()
'控件的名字为 udpPeerA
With udpPeerA
'重点:必须将 RemoteHost 的值
'修改为计算机的名字。
.RemoteHost= "PeerB"
.RemotePort = 1001 '连接的端口号。
.Bind 1002 '绑定到本地的端口。
End With
frmPeerB.Show '显示第二个窗体。
End SubPrivate Sub txtSend_Change()
'在键入文本时,立即将其发送出去。
udpPeerA.SendData txtSend.Text
End SubPrivate Sub udpPeerA_DataArrival _
(ByVal bytesTotal As Long)
Dim strData As String
udpPeerA.GetData strData
txtOutput.Text = strData
End Sub要创建第二个 UDP 伙伴,请按照以下步骤执行: 在工程中添加一个标准窗体。
将窗体的名字修改为 frmPeerB。
将窗体的标题修改为“Peer B”。
在窗体中放入一个 Winsock 控件,并将其命名为 udpPeerB。
在“属性”页上,单击“协议”并将协议修改为“UDPProtocol”。
在窗体上添加两个 TextBox 控件。将第一个命名为 txtSend,第二个命名为 txtOutput。
在窗体中添加如下的代码。
Private Sub Form_Load()
'控件的名字为 udpPeerB。
With udpPeerB
'重点:必须将 RemoteHost 的值改为
'计算机的名字。
.RemoteHost= "PeerA"
.RemotePort = 1002 '要连接的端口。
.Bind 1001 '绑定到本地的端口上。
End With
End SubPrivate Sub txtSend_Change()
'在键入后立即发送文本。
udpPeerB.SendData txtSend.Text
End SubPrivate Sub udpPeerB_DataArrival _
(ByVal bytesTotal As Long)
Dim strData As String
udpPeerB.GetData strData
txtOutput.Text = strData
End Sub如果要试用上面的例子,按 F5 键运行工程,然后在两个窗体的 txtSend TextBox 中分别键入一些文本。键入的文字将出现在另一个窗体的 txtOutput TextBox 中。 这是MSDN里的,提到了一句话“重点:必须将 RemoteHost 的值改为计算机的名字。”