在PB中使用WINSOCK.OCX做双向通信的简单例子

一、在窗口中添加WINSOCK控件：
在应用中新开一个窗口，在窗口画板中点击controls-->OLE菜单项，弹出
Insert object窗口，单击Insert control标签，从列表框中双击选定
Microsoft Winsock control，将winsock的图标贴在窗口上。
在程序中该控件名称定为winsock_a（甲方）和winsock_b（乙方）。
二、设置信息输入输出文本框：
在窗口中增加一个按钮cb_1,两个单行文本框sle_1,sle_2，分别用于输入
要发送的字符串和接受对方发送的字符串。
三、设置通讯协议：
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
//绑定通讯协议
在乙方（