分布式系统中通信的设计与实现是至关重要的环节，它的数据采集站可直接与现场带有标准 ＲＳ — ２３２Ｃ 接口的智能仪表、ＰＬＣ和单片机等链接，并可通过扩展控制卡形成一个数据采集子网，以高速准确地获取数据。ＶＢ 的 ＭＳＣＯＭＭ 通信控件具有完善的串口数据发送和接受功能，利用它可以屏蔽对硬件的操作，简易快捷地进行串行通信编程。
WW.W_PLC※JS_C,OM－PL,C－技.术_网
一、实例分析
WWW.PLCJS.COM——可编程控制器技术门户
本文举分布式系统中两个节点间连接的实例，其中节点 Ａ（ＩＰ地址１９２．１６８．０．１）作为服务器负责某一区域的数据采集与处理，程序内有一名为ＴＣＰＳｅｒｖｅｒ的Ｗｉｎｓｏｃｋ控件；节点Ｂ（ＩＰ地址１９２．１６８．０．２）是同级或上一级的某一节点，作为客户机，其程序内有一名为 ＴＣＰＣｌｉｅｎｔ 的 Ｗｉｎｓｏｃｋ 控件。WWW_PLCJS※COM－PLC－技×术_网(可编程控※制器技术门户)
节点Ａ 服务器核心程序如下：
WWW_PLC※JS_COM－PmLC－技.术_网
（１）初始化程序
WWW.PLCJS.COM——可编程控制器技术门户
ｔｃｐｓｅｒｖｅｒ（０）．ＲｅｍｏｔｅＨｏｓｔＩＰ ＝ １９２．１６８．０．２P.L.C.技.术.网——可编程控制器技术门户
ｔｃｐｓｅｒｖｅｒ（０）．ＬｏｃａｌＰｏｒｔ ＝ １００１ ＇ｔｃｐｓｅｒｖｅｒ（０）专用于侦听WW.W_PLCJS_COM－PLC－技.术_网
ｔｃｐｓｅｒｖｅｒ（０）．ＬｉｓｔｅｎWWcW_PLCJS_COM－PLC－技.术_网
（２）发送数据程序
——可——编——程——控－制－器－技——术——门——户
ｔｃｐｓｅｒｖｅｒ（Ｉｎｄｅｘ）．ＳｅｎｄＤａｔａ Ｔｅｘｔ１．Ｔｅｘｔ
——可——编——程——控－制－器－技——术——门——户
（３）处理客户机连接请求程序
WWW_PLCJS※COM－PLC－技.术_网(可※编程控※制器技术门户)
Ｐｒｉｖａｔｅ Ｓｕｂ ＴＣＰＳｅｒｖｅｒ＿ＣｏｎｎｅｃｔｉｏｎＲｅｑｕｅｓｔ（Ｉｎｄｅｘ ＡｓＩｎｔｅｇｅｒ， ＢｙＶａｌ ｒｅｑｕｅｓｔＩＤ Ａｓ Ｌｏｎｇ） Ｌｏａｄ ｔｃｐｓｅｒｖｅｒ（Ｉｎｄｅｘ） ｔｃｐｓｅｒｖｅｒ（Ｉｎｄｅｘ）．Ａｃｃｅｐｔ ｒｅｑｕｅｓｔＩＤ Ｅｎｄ Ｓｕｂ
WWW_P※LCJS_COM－PLC－)技.术_网
（４）客户机数据到达处理程序
——可——编——程——控－制－器－技——术——门——户
Ｐｒｉｖａｔｅ Ｓｕｂ ＴＣＰＳｅｒｖｅｒ＿ＤａｔａＡｒｒｉｖａｌ（Ｉｎｄｅｘ Ａｓ Ｉｎｔｅｇｅｒ，WWW_P※LCJS_COM－PLC－)技.术_网
ＢｙＶａｌ ｂｙｔｅｓＴｏｔａｌ Ａｓ Ｌｏｎｇ） Ｄｉｍ ＲＤ Ａｓ Ｓｔｒｉｎｇ ｔｃｐｓｅｒｖｅｒ（Ｉｎｄｅｘ）．ＧｅｔＤａｔａ ＲＤ， ｖｂＳｔｒｉｎｇ ｔｘｔＲＤ．ｔｅｘｔ＝ＲＤWWW_P※LCJS_CO※M－PLC－技－.术_网
ｔｃｐｓｅｒｖｅｒ（Ｉｎｄｅｘ）．ＳｅｎｄＤａｔａ ＲＤ Ｅｎｄ Ｓｕｂ
plcjs.技.术_网
（５）关闭连接程序
WWW_PLCJS_COM－PLC－技.术_网
Ｐｒｉｖａｔｅ Ｓｕｂ ＴＣＰＳｅｒｖｅｒ＿Ｃｌｏｓｅ（Ｉｎｄｅｘ Ａｓ Ｉｎｔｅｇｅｒ）P_L_C_技_术_网——可——编——程——控－制－器－技——术——门——户
ｔｃｐｓｅｒｖｅｒ（Ｉｎｄｅｘ）．ＣｌｏｓｅWWW_P※LCJS_CO※M－PLC－技－.术_网
Ｕｎｌｏａｄ ｔｃｐｓｅｒｖｅｒ（Ｉｎｄｅｘ）WWW_PLCJS※COM－PLC－技.术_网(可※编程控※制器技术门户)
Ｅｎｄ ＳｕｂWWW_PL※CJS_COM－PLC－技.术_网
以上程序着重说明Ｗｉｎｓｏｃｋ控件的主要属性、方法和事件，如要实现多进程（多个客户程序同时运行），可应用创建控件数 组来代表已连接的控件实例的方法处理。——可——编——程——控－制－器－技——术——门——户
节点 Ｂ 客户机核心程序如下：
plcjs.技.术_网
Ｐｒｉｖａｔｅ ＣｏｎｎｅｃｔＦｌａｇ Ａｓ Ｂｏｏｌｅａｎ ’P.L.C.技.术.网——可编程控制器技术门户
设置判断是否连接标志WWW_PLC※JS_COM－PmLC－技.术_网
（１）初始化程序
WW.W_PLC※JS_C,OM－PL,C－技.术_网
ＴＣＰＣｌｉｅｎｔ．ＲｅｍｏｔｅＨｏｓｔ ＩＰ＝ １９２．１６８．０．１ WWW_PLCJ－S_COM－PLC－技.术_网(可－编程控－制器技术－门户)
远程计算机ＩＰ地址
——可——编——程——控－制－器－技——术——门——户
ＴＣＰＣｌｉｅｎｔ．ＲｅｍｏｔｅＰｏｒｔ ＝ １００１ WWW_P※LCJS_COM－PLC－)技.术_网
远程计算机端口
WWW_PLCJ－S_COM－PLC－技.术_网(可－编程控－制器技术－门户)
ＣｏｎｎｅｃｔＦｌａｇ ＝ ＦａｌｓｅWWW_PLC※JS_COM－PLC－技.术_网(可编程控※制器技术门户)
（２）申请连接程序
WWW※PLCJS_COM－PL＃C－技.术_网(可编※程控※制器技术门户)
Ｉｆ Ｎｏｔ ＣｏｎｎｅｃｔＦｌａｇ ＴｈｅｎWWW_PLCJS※COM－PLC－技×术_网(可编程控※制器技术门户)
ＴＣＰＣｌｉｅｎｔ．ＣｌｏｓｅWWW.PLCJS.COM——可编程控制器技术门户
ＴＣＰＣｌｉｅｎｔ．ＣｏｎｎｅｃｔWWW_PLC※JS_COM－PLC－技.术_网(可编程控※制器技术门户)
Ｄ ｏWWW_PLC※JS_COM－PLC－技.术_网(可编程控※制器技术门户)
ＤｏＥｖｅｎｔｓWWW※PLCJS_COM－PL＃C－技.术_网(可编※程控※制器技术门户)
Ｌｏｏｐ Ｕｎｔｉｌ ＴＣＰＣｌｉｅｎｔ．Ｓｔａｔｅ ＝ ｓｃｋＣｏｎｎｅｃｔｅｄP_L_C_技_术_网——可——编——程——控－制－器－技——术——门——户
ＣｏｎｎｅｃｔＦｌａｇ ＝ ＴｒｕｅWWW_PLCJS※COM－PLC－技×术_网(可编程控※制器技术门户)
Ｅｎｄ ＳｕｂW1WW_P4LCJS_COM－PLC－技.术_网