用VisualBasic学做“黑客”程序

首先，使用的控制

Winsock控件将在程序中使用。Winsock控件是一个ActiveX控件，它使用TCP或UDP协议连接到远程计算机并与之交换数据。像计时器控件一样，Winsock控件在运行时是不可见的。Winsock的工作原理是:客户端向服务器发送连接请求，服务器一直监听客户端的请求。当两种协议进行通信时，客户端和服务器之间的连接就建立了，然后就可以实现双向数据传输了。在实践中，必须分别建立服务器端应用程序和客户端应用程序，每个应用程序都有自己的Winsock控件。首先，设置Winsock控件使用的协议，这里我们使用TCP协议。现在，我们开始用VB构建两个程序，一个是客户端程序myclient，一个是服务器程序myserver。

其次，编写客户端程序

首先，构建客户机程序myclient。在myclient程序中设置一个窗体，加载Winsock控件，名为tcpclient，意思是使用TCP协议。添加两个文本框(text1和text2)输入服务器的IP地址和端口号，然后设置一个按钮(cd1)建立连接。按下后，可以初始化连接。代码如下:

私有子cd1_click()

TCP client . romote host = text 1 . text

TCP client . romoteport = val(text 2 . text)' '端口号，默认为1001。

Tcp.connect“”调用connect方法与具有指定IP地址的计算机连接。

cd1.enabled=false

末端接头

之后就是如何处理接收到的数据的问题。客户端与服务器建立连接后，如果任意一端接收到新的数据，就会触发该端winsock控件的dataarrival事件。作为对此事件的响应，您可以使用getdata方法来获取发送的数据。例如，可以在tcpclient的dataarrival事件中编写以下代码:
Private Sub TCP Client _ data arrival(Byval bytestotal as long)

将x标注为字符串

Tcpclient.getdata x ' '使用getdata获取发送的数据。

.......

末端接头

后面省略的部分表示接收数据的具体处理，读者可以根据实际情况来写。