说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB游戏写作技巧(2)网络篇

HTML文档下载 WORD文档下载 PDF文档下载
VB游戏写作技巧(2)网络篇
这一次写的是如何用VB来写网路程式的方法,你可不要以为这是什么深奥的程式,其实只要一个Winsock 控制项就可以了,现在就来介绍一下Winsock 的用法:

步骤一:首先要先把控制项给叫出来,你只要按下Ctrl+T後选取Winsock Control 5.0若是用VB6 的就选Winsock Control 6.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的程式要这样子写:

Private Sub Winsock1_ConnectionRequest(ByVal requestID As long)
winsock1.Close
winsock1.Accept requestID
End Sub

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

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

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

Privata Sub Winsock1_DtatArrival(ByVal bytesTotal As long)
Dim mydata As String
winsock1.GetData mydata 会把送到的资料给mydata
End Sub
Winsock 控制项就那么简单,只要会这些就可以写网路游戏了,相关的程式你可以参考网路五子棋(54K)。
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘