VB游戏写作技巧（2）网络篇

核心提示：这一次写的是如何用VB来写网路程式的方法，你可不要以为这是什么深奥的程式，VB游戏写作技巧（2）网络篇，其实只要一个Winsock控制项就可以了，现在就来介绍一下Winsock的用法：步骤一：首先要先把控制项给叫出来，PrivataSubWinsock1_DtatArrival(ByValbytesTotalAslon

这一次写的是如何用VB来写网路程式的方法，你可不要以为这是什么深奥的程式，其实只要一个Winsock控制项就可以了，现在就来介绍一下Winsock的用法：

步骤一：首先要先把控制项给叫出来，你只要按下Ctrl T後选取WinsockControl5.0若是用VB6的就选WinsockControl6.0，这样就可以使用Winsock元件。

步骤二：再来我们必须先确定程式是作Server端还是Client端的，要先设定一些属性：

Server写法：winsock1.localPort=5400(数字可以随便设)
winsock1.Listen(等待连线)

Client写法：winsock1.RemoteHost="对方ip"
winsock1.RemotePRot=5400(必须要和Server端相同)
winsock1.LocalProt=0
winsock1.Connect(连线)

连线之前Client端要先知道Server端的IP，接著等到Server端等待连线时，Client端就可以呼叫Connect方法，双方连线成功後就可以传输资料。

步骤三：当Client连线的时候Server端会引发ConnectionRequest事件，Server的程式要这样子写：

PrivateSubWinsock1_ConnectionRequest(ByValrequestIDAslong)
winsock1.Close
winsock1.AcceptrequestID
EndSub

步骤四：这样一来就可以传送资料了，传送和接受资料的方法如下：

传送资料：mydata="你好吗?"
winsock1.sendDatamydata
这样就会把mydata给传到对方那里。

接受资料：当有资料送到的时候会引发DataArrival事件。

PrivataSubWinsock1_DtatArrival(ByValbytesTotalAslong)
DimmydataAsString
winsock1.GetDatamydata　会把送到的资料给mydata
EndSub
Winsock控制项就那么简单，只要会这些就可以写网路游戏了，相关的程式你可以参考网路五子棋(54K)。->