Question

vb里怎么通过winsock实现两台计算机的数据传输，，每台计算机一个程序，，求大侠指导~~

Answer 1

UDP 初步
创建 UDP 应用程序比创建 TCP 应用程序还要简单，因为 UDP 协议不需要显式的连接。在上面的 TCP 应用程序中，一个 Winsock 控件必须显式地进行“监听”，另一个必须使用 Connect 方法初始化连接。
UDP 协议不需要显式的连接。要在两个控件中间发送数据，需要完成以下的三步（在连接的双方）：
将 RemoteHost 属性设置为另一台计算机的名称。
将 RemotePort 属性设置为第二个控件的 LocalPort 属性。
调用 Bind 方法，指定使用的 LocalPort。（下面将详细地讨论该方法。）
因为两台计算机的地位可以看成“平等的”，这种应用程序也被称为点到点的。为了具体说明这个问题，下面将创建一个“聊天”应用程序，两个人可以通过它进行实时的交谈。
要创建一个 UDP 伙伴，请按照以下步骤执行：
创建一个新的 Standard EXE 工程。
将缺省的窗体的名称修改为 frmPeerA。
将窗体的标题修改为“Peer A”。
在窗体中放入一个 Winsock 控件，并将其命名为 udpPeerA。
在“属性”页上，单击“协议”并将协议修改为 UDPProtocol。
在窗体中添加两个 TextBox 控件。将第一个命名为 txtSend，第二个命名为 txtOutput。
为窗体增加如下的代码。 Private Sub Form_Load()
'控件的名字为 udpPeerAWith udpPeerA'重点:必须将 RemoteHost 的值
'修改为计算机的名字。
.RemoteHost= "PeerB" .RemotePort = 1001 '连接的端口号。
.Bind 1002 '绑定到本地的端口。
End WithfrmPeerB.Show '显示第二个窗体。
End SubPrivate Sub txtSend_Change()'在键入文本时，立即将其发送出去。
udpPeerA.SendData txtSend.TextEnd SubPrivate Sub udpPeerA_DataArrival _(ByVal bytesTotal As Long)Dim strData As StringudpPeerA.GetData strDatatxtOutput.Text = strDataEnd Sub
要创建第二个 UDP 伙伴，请按照以下步骤执行：
在工程中添加一个标准窗体。
将窗体的名字修改为 frmPeerB。
将窗体的标题修改为“Peer B”。
在窗体中放入一个 Winsock 控件，并将其命名为 udpPeerB。
在“属性”页上，单击“协议”并将协议修改为“UDPProtocol”。
在窗体上添加两个 TextBox 控件。将第一个命名为 txtSend，第二个命名为 txtOutput。
在窗体中添加如下的代码。 Private Sub Form_Load()
'控件的名字为 udpPeerB。
With udpPeerB'重点:必须将 RemoteHost 的值改为
'计算机的名字。
.RemoteHost= "PeerA".RemotePort = 1002 '要连接的端口。
.Bind 1001 '绑定到本地的端口上。
End WithEnd SubPrivate Sub txtSend_Change()'在键入后立即发送文本。udpPeerB.SendData txtSend.TextEnd SubPrivate Sub udpPeerB_DataArrival _(ByVal bytesTotal As Long)Dim strData As StringudpPeerB.GetData strDatatxtOutput.Text = strDataEnd Sub

追问

这不是在一个程序里么？我想要那种两个程序，在不同的计算机上的。

追答

你把两个窗体分到两个工程，放到两台机器就可以了。

追问

我分成两个程序在一台计算机上运行 它提示地址被占用

Answer 2

1、winsock控件；
2、winsock 的 Windows API 调用：WinSock2.0