winsocket编程问题。

Question

小弟刚学这个，第一次学就遇到一个书上的例子而出错的。
请大家帮帮我。我已经花了好长时间了。
这是一个UDP建立的聊天程序。
有两端。运行老是说连接从远程端重新设置。
聊天A的程序
Private Sub Command1_Click()
On Error GoTo l
Winsock1.SendData Text1.Text
l:
   MsgBox Err.Description
End Sub
Private Sub Form_Load()
Winsock1.LocalPort = 1025
Winsock1.RemoteHost = "172.18.112.192"
Winsock1.RemotePort = 1997End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim rec As String
Winsock1.GetData rec, vbString
Text2.Text = rec             
这是一个UDP建立的聊天程序。
有两端。运行老是说连接从远程端重新设置。
聊天A的程序
Private Sub Command1_Click()
On Error GoTo l
Winsock1.SendData Text1.Text
l:
   MsgBox Err.Description
End Sub
Private Sub Form_Load()
Winsock1.LocalPort = 1025
Winsock1.RemoteHost = "172.18.112.192"
Winsock1.RemotePort = 1997End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim rec As String
Winsock1.GetData rec, vbString
Text2.Text = rec

Answer 1

Private Sub Command1_Click()
On Error GoTo l
Winsock1.SendData Text1.Text
l:
   MsgBox Err.Description
End Sub
Private Sub Form_Load()
Winsock1.LocalPort = 1025
Winsock1.RemoteHost = "172.18.112.192"
Winsock1.RemotePort = 1997
Winsock1.Bind 1025
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim rec As String
Winsock1.GetData rec, vbString
Text2.Text = rec             
这是一个UDP建立的聊天程序。
有两端。运行老是说连接从远程端重新设置。
聊天A的程序
Private Sub Command1_Click()
On Error GoTo l
Winsock1.SendData Text1.Text
l:
   MsgBox Err.Description
End Sub
Private Sub Form_Load()
Winsock1.LocalPort = 1997
Winsock1.RemoteHost = "172.18.112.192"
Winsock1.RemotePort = 1025
Winsock1.Bind 1997
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim rec As String
Winsock1.GetData rec, vbString
Text2.Text = rec