Question

VB中WinSock对话问题，求代码是否能进行远程对话

Private Sub Form_Laod()
With Winsock1
.RemoteHost = "***.***.***.***" ’IP地址
.RemotePort = 1011 ’对方端口
.LocalPort = 1010 ‘我的端口
.Bind 1010 ’绑定端口
End With
End Sub

Private Sub cmdSend_Click()'发送数据
UDPPeerB.SendData Text1.Text
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
UDPPeerB.GetData strData, vbString
Text2 = strData ‘时事数据
List1.AddItem strData ’接受纪录
End Sub
这段代码在都知道对方端口的情况下。可以进行远程对话吗？
Private Sub cmdSend_Click()'发送数据
Winsock1.SendData Text1.Text
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
Winsock1.GetData strData, vbString
Text2 = strData ‘时事数据
List1.AddItem strData ’接受纪录
End Sub
.改正下，我把原程序的控件名称改成默认名字。有2个地方忘了改！！！

Answer 1

远程对话用winsock控件需要有服务器端和客户端!请问你是否都制做了