能贴一个两机间UDP通讯的程序吗。谢谢！！

Question

我一新手，用UDP时总有错，望大家帮帮>

Answer 1

A:
Private Sub Form_Load()
    Winsock1.LocalPort = 2000
    Winsock1.RemoteHost = "192.168.0.4"
    Winsock1.RemotePort = 3000
    Winsock1.Bind 2000
End Sub
Private Sub Command1_Click()
    Winsock1.SendData "AAAA"
End Sub
B:
Private Sub Form_Load()
    Winsock1.LocalPort = 3000
    Winsock1.RemoteHost = "192.168.0.8"
    Winsock1.RemotePort = 2000
    Winsock1.Bind 3000
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    Dim S As String
    Winsock1.GetData S, vbString
    Text1 = S
End Sub

Answer 2

我在A，B中Winsock1.RemoteHost都＝“192.168.0.40”,为什么发送端告诉我“本地地址不可用”?

Answer 3

你的微机的IP地址是多少?
如果是两台机子的话,IP地址不会一样的