108.htm

一些简单的编程例子 都是网页的形式

<p>《 {在VB中利用UDP协议编写聊天程序} 》 </p>
<p></p>
<p>{　　UDP 协议是一种无连接协议，两台计算机之间的数据传输类似于传递邮件：消息从一台计算机发送到另一台计算机，但是两者之间没有明确的连接。</p>
<p>　　由于UDP 协议不需要显式的连接，就需要在两个Winsock控件中间发送数据，关键需要完成以下的三步：</p>
<p>　　1．将RemoteHost属性设置为另一台计算机的名称。</p>
<p>　　2．将RemotePort属性设置为第二个控件的LocalPort属性。</p>
<p>　　3．调用Bind方法，指定使用的LocalPort。</p>
<p>　　因为两台计算机的地位可以看成“对等的”，这种应用程序也被称为点对点的应用程序。</p>
<p>　　下面将创建一个聊天应用程序，两个人可以通过它进行实时的交谈。请按照以下步骤制作：</p>
<p>　　1．创建一个新的 Standard EXE 工程。将缺省的窗体的名称修改为frmPeerA，将窗体的标题修改为“Peer A”。</p>
<p>　　2．在窗体中放入一个 Winsock 控件，并将其命名为 udpPeerA。在“属性”页上，单击“协议”并将协议修改为 UDPProtocol。</p>
<p>　　3．在窗体中添加两个 TextBox 控件。将第一个命名为 txtSend，第二个命名为 txtOutput。</p>
<p>　　4．为窗体添加如下的代码。</p>
<p>　　Private Sub Form_Load()</p>
<p>　　′控件的名字为udpPeerA</p>
<p>　　With udpPeerA</p>
<p>　　′重点:必须将 RemoteHost 的值修改为对方计算机的名字。</p>
<p>　　RemoteHost= ″PeerB″</p>
<p>　　RemotePort = 1001 ′连接的端口号。</p>
<p>　　Bind 1002 ′绑定到本地的端口。</p>
<p>　　End With</p>
<p>　　frmPeerB.Show′显示第二个窗体。</p>
<p>　　End Sub</p>
<p>　　Private Sub txtSend_Change()</p>
<p>　　′在键入文本时，立即将其发送出去。</p>
<p>　　udpPeerA.SendData txtSend.Text</p>
<p>　　End Sub</p>
<p>　　Private Sub udpPeerA_DataArrival _</p>
<p>　　(ByVal bytesTotal As Long)</p>
<p>　　Dim strData As String</p>
<p>　　udpPeerA.GetData strData</p>
<p>　　txtOutput.Text = strData</p>
<p>　　End Sub</p>
<p>　　要创建第二个 UDP 伙伴，请按照以下步骤执行：</p>
<p>　　1．在工程中添加一个标准窗体，将窗体的名字修改为 frmPeerB，将窗体的标题修改为“Peer B”。</p>
<p>　　2．在窗体中放入一个 Winsock 控件，并将其命名为 udpPeerB。</p>
<p>　　3．在“属性”页上，单击“协议”并将协议修改为“UDPProtocol”。</p>
<p>　　 4．在窗体上添加两个 TextBox 控件。将第一个命名为 txtSend，第二个命名为 txtOutput。</p>
<p>　　5．在窗体中添加如下代码</p>
<p>　　Private Sub Form_Load()</p>
<p>　　′控件的名字为 udpPeerB。</p>
<p>　　With udpPeerB</p>
<p>　　′重点:必须将RemoteHost的值改为对方计算机的名字。</p>
<p>　　RemoteHost= ″PeerA″</p>
<p>　　RemotePort = 1002 ′要连接的端口。</p>
<p>　　Bind 1001 ′绑定到本地的端口上。</p>
<p>　　End With</p>
<p>　　End Sub</p>
<p>　　Private Sub txtSend_Change()</p>
<p>　　′在键入后立即发送文本。</p>
<p>　　udpPeerB.SendData txtSend.Text</p>
<p>　　End Sub</p>
<p>　　Private Sub udpPeerB_DataArrival _</p>
<p>　　(ByVal bytesTotal As Long)</p>
<p>　　Dim strData As String</p>
<p>　　udpPeerB.GetData strData</p>
<p>　　txtOutput.Text = strData</p>
<p>　　End Sub</p>
<p>　　运行工程，然后在两个窗体的txtSend TextBox中分别键入一些文本。键入的文字将出现在另一个窗体的 txtOutput TextBox中。</p>
<p>　　　　（广东　刘亮）  </p>