网络在计算机世界里，越来越发挥着举足轻重的作用。在WINDOWS应用程序中，处理实时通讯最常用到的还是MICROSOFT公司提供的WINSOCK控件。

下面以一个简单程序为例，说明WINSOCK控件在PB中的使用：

1.在窗口中添加WINSOCK控件：

在应用中新开一个窗口，在窗口画板中点击controls-->OLE菜单项，弹出Insert object窗口，单击Insert control标签，从列表框中双击选定Microsoft Winsock control，将winsock的图标贴在窗口上。

在程序中该控件名称定为winsock_a（甲方）和winsock_b（乙方）。

2.设置信息输入输出文本框：

在窗口中增加一个按钮cb_1,两个单行文本框sle_1,sle_2，分别用于输入要发送的字符串和接受对方发送的字符串。

3.设置通讯协议：

 WINSOCK控件允许用户以UDP和TCP两种协议中任选一种进行通讯。

 (1)UDP协议设置：UDP协议是一种无连接的通讯协议，在通讯之前，需要绑定remotehost和remoteport属性，如果需要双向通讯，还要设置localport属性。

在甲方（本机地址为：134.1.1.1)窗口的Open事件中加入如下语句：

winsock_a.object.protocol=1                       //winsock通讯协议设为UDP协议
winsock_a.object.remotehost="134.1.1.2"  //对方的ip地址
winsock_a.object.remoteport=6000           //对方的winsock通讯端口号
winsock_a.object.localport=6001               //本机的winsock通讯端口号
winsock_a.object.bind                               //绑定通讯协议

在乙方（本机地址为：134.1.1.2)窗口的Open事件中加入如下语句：

winsock_b.object.protocol=1                       //winsock通讯协议设为UDP协议
winsock_b.object.remotehost="134.1.1.1"  //对方的ip地址
winsock_b.object.remoteport=6001            //对方的winsock通讯端口号
winsock_b.object.localport=6000               //本机的winsock通讯端口号
winsock_b.object.bin                                  //绑定通讯协议

(2)TCP协议设置：TCP协议在通讯前需要进行连接。

在甲方（作为服务器端）窗口的Open事件中加入如下语句：

winsock_a.object.protocol=0                //winsock通讯协议设为TCP协议
winsock_a.object.localport=6001         //本机的winsock通讯端口号
winsock_a.listen()                                //启动监听

在甲方winsock_a控件的Connectionrequest事件中加入如下语句：

//接受到对方的连接请求后
if winsock_a.object.state<>0 then
winsock_a.close()
end if
winsock_a.accept(requestID)
//建立直接连接
//requestID是Connectionrequest事件自己的参数

在乙方（作为客户端）窗口的Open事件中加入如下语句：

winsock_b.object.protocol=0                        //winsock通讯协议设为TCP协议
winsock_b.object.remotehost="134.1.1.2"   //对方的ip地址
winsock_b.object.remoteport=6000             //对方的winsock通讯端口号
winsock_b.connect()                      &nbs