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

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 "端口冲突，退出！", vbOKOnly, "注意！"

End

End If

End Sub

Private Sub Winsock1_Close()

If Winsock1.State <> sckClosed Then Winsock1.Close

Winsock1.Listen 注释：关闭连接后继续监听

End Sub