发送端: Private Sub CmdCook_Click() UDPdd.Protocol = sckUDPProtocol UDPdd.Close UDPdd.RemotePort = 8888 UDPdd.Bind 8889 UDPdd.RemoteHost = "255.255.255.255" UDPdd.SendData "UDP发送" end sub接收端: Private Sub Form_Load() UDPServer.Protocol = sckUDPProtocol UDPServer.RemotePort = 8889 UDPServer.Bind 8888 End Sub Private Sub UDPServer_DataArrival(ByVal bytesTotal As Long) dim strData as string UDPServer.GetData strData msgbox strData end sub
同意楼上 调用bind方法,与对方连接
Private Sub CmdCook_Click() UDPdd.Protocol = sckUDPProtocol if udpdd.state<> sckclosed then UDPdd.Close end if UDPdd.RemoteHost = "255.255.255.255" UDPdd.RemotePort = 8888 UDPdd.Bind 8889UDPdd.SendData "UDP发送" end sub
誰去記錯誤號碼呀,udp要兩個端口都沒有被使用才行
不要理它! on error resume next 这是VB的一个BUG ----------------------------------------------- 我编了三年程序 只用过VB 我用了三年VB 只会WINSOCK和加密 http://www.offca.com/gps/iphonebbs/ **********中国网络程序开发联盟欢迎你********** -----------------------------------------------
实时错识'126'是什么意思? ==================================== Private Sub Command1_Click() Print Error(126) End Sub 应用程序定义或对象定义错误
Private Sub CmdCook_Click()
UDPdd.Protocol = sckUDPProtocol
UDPdd.Close
UDPdd.RemotePort = 8888
UDPdd.Bind 8889
UDPdd.RemoteHost = "255.255.255.255"
UDPdd.SendData "UDP发送"
end sub接收端:
Private Sub Form_Load()
UDPServer.Protocol = sckUDPProtocol
UDPServer.RemotePort = 8889
UDPServer.Bind 8888
End Sub
Private Sub UDPServer_DataArrival(ByVal bytesTotal As Long)
dim strData as string
UDPServer.GetData strData
msgbox strData
end sub
调用bind方法,与对方连接
UDPdd.Protocol = sckUDPProtocol
if udpdd.state<> sckclosed then
UDPdd.Close
end if
UDPdd.RemoteHost = "255.255.255.255"
UDPdd.RemotePort = 8888
UDPdd.Bind 8889UDPdd.SendData "UDP发送"
end sub
on error resume next
这是VB的一个BUG -----------------------------------------------
我编了三年程序 只用过VB
我用了三年VB 只会WINSOCK和加密
http://www.offca.com/gps/iphonebbs/
**********中国网络程序开发联盟欢迎你**********
-----------------------------------------------
====================================
Private Sub Command1_Click()
Print Error(126)
End Sub
应用程序定义或对象定义错误