VB网络篇游戏编程技巧指南

第一步:首先，调用控件。你只需要按Ctrl+T，然后选择Winsock控件5.0。如果使用VB6，选择Winsock Control 6.0，这样就可以使用Winsock组件了。

第二步:还是那句话，首先要确定程序是在服务器端还是客户端，先设置一些属性:

写服务器:winsock1.localPort = 5400(数字可以任意设置)

Winsock1。听(等待连接)

编写客户端:winsock1。RemoteHost = "对方IP "

Winsock1。RemoteProt = 5400(必须与服务器端相同)

winsock1。LocalProt = 0

Winsock1。连接(连接)

在连接之前，客户端需要知道服务器的IP。然后在服务器等待连接时，客户端可以调用connect方法，双方连接成功后就可以传输数据了。

步骤3:当客户端连接时，服务器将引发ConnectionRequest事件。服务器的程序应该这样写:

私有Sub Winsock 1 _ connection request(ByVal request id为long)

winsock1。关闭

winsock1。接受requestID

末端接头

第四步:这样就可以传输数据了。发送和接收数据的方法如下:

传输:mydata = "你好吗？"

winsock1.sendData mydata

这将把我的数据发送给另一方。

接受数据:当数据被传递时，DataArrival事件将被引发。

privata Sub Winsock 1 _ DtatArrival(ByVal bytes total As long)

将我的数据显示为字符串

Winsock1。GetData mydata会将交付的数据交给mydata

末端接头

Winsock控件就是这么简单，可以写到网络上