VB5中利用Wiock和msD控件

《VB5中利用Wiock和msD控件》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、窗体顶端窗体底端窗体顶端用户名：密码：窗体底端，会员中心

2、退出登录·首页·行业动态·案例·教程·软件下载·模型下载·交流社区首页教程软件开发vb在VB5中利用Wiock和msD控件进行-Wiock-技术应用-2010-05-2722:42:41作者：admin来源：浏览次数：898网友评论0条关键字：Office助手  VB.net2005  VB.NET窗体  VB访问数据库  Visual Basic 9  Visual Basic 9.0              本文详细介绍在VB5中利用Wiock和msD控件进行                     

3、      　　...关键字：Office助手VB.net2005VB.NET窗体VB访问数据库VisualBasic9VisualBasic9.0本文详细介绍在VB5中利用Wiock和msD控件进行一.认识Wiock和msD控件首先我们要认识Wiock控件，Wiock控件是微软提供的，是win98的内部控件，利用Wiock控件可以与远程计算机建立连接，Wiock包含有用户数据文报协议(UDP)和传输控制协议(TCP)。可用这两种协议来建立客户与服务器应用程序来进行数据交换。而msD是个人编写的共享控件，需要的可到（wch_email@163.net）联系。Wio

4、ck是进行数据交换的，msD是用来查找对方的IP地址。二.Wiock的基础1.TCP基础：TCP（TraferControlProtocol）是传输控制协议的简称，是基于连接的协议，在数据传输之前必须先建立连接。2.UDP基础:UDP(UserDataProtocol)是用户数据文报协议的简称，两台计算机之间的传输类似于传递邮件；两者之间没有明确的连接，可作为服务器，也可作为客户机。3.属性：BytesReceived:返回接收到的（当前在接收端缓冲区内的）数据的数量。使用GetData方法来获取数据。LocalHostName:返回本地机器名。LocalIP:返

5、回本地机器的IP地址。LocalPort:返回或者设置所用到的本端口；如果指定的是端口0，就使用一个随机端口。Protocol:返回或设置Wiock所用的协议是TCP或UDP。RemoteHostIP：返回远程机器的IP地址。State:返回控件的状态，用枚举类型来表示。SocketHandle:返回一个与连接字句对应的值。4.方法：Listen：用于服务器程序，等待客户访问。格式：Wiock对象.listenCoect：用于向远程主机发出连接请求格式：Wiock对象.coect[远程主机IP,远程端口]Accept：用于接受一个连接请求格式：Wiock对象.ac

6、ceptRequestIDSenddata：此方法用于发送数据格式：Wiock对象.senddata数据Getdata：用来取得接收到的数据格式：Wiock对象.getdata变量[,数据类型[,最大长度]]Close：关闭当前连接格式：Wiock对象.close5.事件：DataArrival：新数据到达时出现；获取一个GetData调用中的全部数据。CoectionRequest：当远程计算机请求连接时接受连接请求。SendComplete：在完成一个发送操作时出现。SendProgre：在发送数据期间出现。Error：后台处理中出现错误（例如，连接失败，或者

7、在后台收发数据失败）事件就会出现。Close：当远程计算机关闭连接时出现。三.程序代码：通过远程控制计算机，使远程计算机重新启动或关闭，需设置一个服务器程序和一个客户机程序，服务器受客户机的控制。1.服务器程序：在VB5的编程环境下，新建一个工程，在Form1中添加一个Wiock控件，Wiock的“名称"为Wiock1,属性Protocol设置为0-sckTCrotocol，Form1的属性Visible=False,这样运行该程序就会隐藏起来不可见;其代码如下：OptionExplicit"该函数（ExitWindowsEx)是win98里的API函数，是用来重

8、启或关闭计算机的PrivateDeclareFunctionExitWindowsExLib"user32"(ByValuFlagsAsLong,ByValdwReservedAsLong)AsLongCotEWX_LOGOFF=0CotEWX_SHUTDOWN=1CotEWX_REBOOT=2CotEWX_FORCE=4CotEWX_POWEROFF=8CotEWX_RESET=EWX_LOGOFF+EWX_FORCE+EWX_REBOOTPrivateSubForm_Load()　OnErrorGoToskip"如此端口出现冲突程序则退出　Wiock1.Loc

9、alPor