一个电脑上UDP问题
我在同一个工程里有两个窗口，但第二个窗口的bind属性在运行是出错误？是怎么回事啊？
第二窗口的 With Winsock1
.RemoteHost = "192.9.169.27"
.RemotePort = 1001
.Bind = 1002
End With
第一个BIND是1001
[解决办法]
检查一下是否有别的程序绑定1002了
[解决办法]
把代码都弄出来看看吧，如果不弄出来清参考这个代码自己修正
'UDP应用一： '建立一个新标准EXE工程文件，拖放一个Winsock控制到表单上，添加两个文本框到表单上，然后进行以下属性的设置： '表单(Form):Name=“frmPeerA” Caption=“UDP Application(1)” 'Winsock控制：Name=“udpPeerA” Protocol=“sckUDPProtocol” '文本框1(TextBox): Name“txtSend” '文本框2(TcxtBox): Name=“txtOutput” MultiLine－True ScrollBars=2 '然后打开代码窗口，分别在相应的事件下输入以下代码： Private Sub Form_Load() With udpPeerA .RemoteHost=“197.1.1.2” '要连接到的计算机名 .RemotePort=1010 '要连接到的端口号 .LocalPort=1011 '该Winsock控制将要使用的本地端口号，便于其它端与该Winsock通讯 .Bind 1011 '将该Winsock控制绑定到该本地端口 EndWith End Sub Private Sub txtSend_Change() udpPeerA.SendData txtSend.Text'发送文本 End Sub Private Sub udpPeerA_DataArrival(ByVal bytesTotal As Long) Dim strData As String udpPeerA.GetData strData,vbString txtOutput.Text = strData End Sub 'UDP应用二： '类似建立UDP Server的方法，在表单上添加一个Winsock控制及两个文本框，然后进行以下属性的设置： '表单(Form):Name=“frmPeerB” Caption=“UDP Application(2)” Winsock控制：Name=“udpPeerB” Protocol=“sckUDPProtoclool” '文本框1(TextBox)：Name=“txtSend” '文本框2(TextBox)：Name=“txtOutput” MultiLine=True ScrollBars=2 '然后输入以下代码： Private Sub Form_Load() With udpPeerB .RemoteHost=“197.1.1.2” '要连接到计算机的IP地址 .RemotePort=1011 '要连接到的端口号 .LocalPort=1010 '该Winsock控制将使用的本地端口号，便于其它方与之通讯 .Bind 1010 '将该Winsock控制绑定到该本地端口 End With End Sub Private Sub txtSend_Change() udpPeerB.SendData txtSend.Text '发送文本 End Sub Private Sub udpPeerB_DataArrival(ByVal bytesTotal As Long) Dim strData As String udpPeerB.GetData strData,vbString txtOutput.Text=strData End Sub
