Question

我想要从一台电脑上的一个vb程序发一个1到局域网上的另一台电脑的一个vb程序，过程大概是哪几个步骤

Answer 1

虽然你就发一个数字，那也要五脏俱全，首先两个vb程序都要有winsock控件，
下面用UDP创建一个实例，供你研究一下

UDP 初步
创建 UDP 应用程序比创建 TCP 应用程序还要简单，因为 UDP 协议不需要显式的连接。在上面的 TCP 应用程序中，一个 Winsock 控件必须显式地进行“监听”，另一个必须使用 Connect 方法初始化连接。

UDP 协议不需要显式的连接。要在两个控件中间发送数据，需要完成以下的三步（在连接的双方）：

将 RemoteHost 属性设置为另一台计算机的名称。

将 RemotePort 属性设置为第二个控件的 LocalPort 属性。

调用 Bind 方法，指定使用的 LocalPort。
因为两台计算机的地位可以看成“平等的”，这种应用程序也被称为点到点的。为了具体说明这个问题，下面将创建一个“聊天”应用程序，两个人可以通过它进行实时的交谈。

要创建一个 UDP 伙伴，请按照以下步骤执行：

创建一个新的工程。

将缺省的窗体的名称修改为 frmPeerA。

将窗体的标题修改为“Peer A”。

在窗体中放入一个 Winsock 控件，并将其命名为 udpPeerA。

在“属性”页上，单击“协议”并将协议修改为 UDPProtocol。

在窗体中添加两个 TextBox 控件。将第一个命名为 txtSend，第二个命名为 txtOutput。

为窗体增加如下的代码。
Private Sub Form_Load()
'控件的名字为 udpPeerA
With udpPeerA
'重点:必须将 RemoteHost 的值
'修改为计算机的名字。
.RemoteHost= "PeerB"
.RemotePort = 1001 '连接的端口号。
.Bind 1002 '绑定到本地的端口。
End With
frmPeerB.Show '显示第二个窗体。
End Sub

Private Sub txtSend_Change()
'在键入文本时，立即将其发送出去。
udpPeerA.SendData txtSend.Text
End Sub

Private Sub udpPeerA_DataArrival _
(ByVal bytesTotal As Long)
Dim strData As String
udpPeerA.GetData strData
txtOutput.Text = strData
End 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 With
End Sub

Private Sub txtSend_Change()
'在键入后立即发送文本。
udpPeerB.SendData txtSend.Text
End Sub

Private Sub udpPeerB_DataArrival _
(ByVal bytesTotal As Long)
Dim strData As String
udpPeerB.GetData strData
txtOutput.Text = strData
End Sub

如果要试用上面的例子，按 F5 键运行工程，然后在两个窗体的 txtSend TextBox 中分别键入一些文本。键入的文字将出现在另一个窗体的 txtOutput TextBox 中。