我也在写这个方面的题目!这个是用UDP协议写的,但是不能成功,不知道问题出在哪里???
请高手指教,给出具体的解决方案!~~!
或者也可以发个实例给我。
我的邮箱是:samspace123@yahoo.com.cn
代码如下:
Private Sub Command1_Click()
Winsock1.SendData txtsend.Text
End Sub
Private 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 Sub
Private 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 Sub
Private 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 Sub
Private 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
(这是对方机子用的代码)