MSDN中的MSWINSCK.OCX使用说明----vb.pdfVIP

MSDN中的MSWINSCK.OCX使⽤说明vb

UDP初步

创建UDP应⽤程序⽐创建TCP应⽤程序还要简单，因为UDP协议不需要显式的连接。

在上⾯的应⽤程序中，⼀个控件必须显式地进监听，另⼀个必须使⽤⽅法初始化连接。

TCPWinsock“”Connect

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

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

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

调⽤Bind⽅法，指定使⽤的LocalPort。（下⾯将详细地讨论该⽅法。）

因为两台计算机的地位可以看成平等的，这种应⽤程序也被称为点到点的。为了具体说明这个问题，下⾯将创建⼀个聊

“”“

天应⽤程序，两个⼈可以通过它进实时的交谈。

”

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

1.创建⼀个新的StandardEXE⼯程。

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

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

2.在窗体中放⼊⼀个Winsock控件，并将其命名为udpPeer。

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

“”“”UDPProtocol

3.在窗体中添加两个TextBox控件。将第⼀个命名为txtSend，第⼆个命名为txtOutput。

为窗体增加如下的代码。

PrivateSubForm_Load()

控件的名字为udpPeer

WithudpPeer

重点必须将:RemoteHost的值

修改为计算机的名字。

.RemoteHost=PeerB

.RemotePort=1001连接的端⼝号。

.Bind1002绑定到本地的端⼝。

EndWith

frmPeerB.Show显⽰第⼆个窗体。

EndSub

PrivateSubtxtSend_Change()

在键⼊⽂本时，⽴即将其发送出去。

udpPeer.SendDatatxtSend.Text

EndSub

PrivateSubudpPeer_Datarrival_

(ByValbytesTotalsLong)

DimstrDatasString

udpPeer.GetDatastrData

txtOutput.Text=strData

EndSub

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

在⼯程中添加⼀个标准窗体。

将窗体的名字修改为frmPeerB。

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

在窗体中放⼊⼀个Winsock控件，并将其命名为udpPeerB。

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

“”“”“UDPProtocol”

在窗体上添加两个TextBox控件。将第⼀个命名为txtSend，第⼆个命名为txtOutput。

在窗体中添加如下的代码。

PrivateSubForm_Load()

控件的名字为udpPeerB。

WithudpPeerB

重点必须将:RemoteHost的值改为

计算机的名字。

.RemoteHost=Peer

.RemotePort=1002要连接的端⼝。

.Bind1001绑定到本地的端⼝上。

EndWith

EndSub

PrivateSubtxtSend_Change()

在键⼊后⽴即发送⽂本。

udpPeerB.SendDatatxtSend.Text

EndSub

PrivateSubudpPeerB_Datarrival_

(ByValbytesTotalsLong)

DimstrData