中国教程网论坛 » VB » VB网络篇游戏编程技巧指南

henrry365 发表于 2007-9-30 07:56

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

步骤一：首先要先把控制项给叫出来，你只要按下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 控制项就那么简单，只要会这些就可以写网路

zihebe 发表于 2007-11-22 17:15

呵呵``
虽然只是一点winsock的简单介绍,不过还不错,要是真这样的来发帖子``确实不错啊,可以看清怎么做,还可以看出作者的思路````````````
支持

锋火山林 发表于 2008-1-16 23:08

呵呵``
虽然只是一点winsock的简单介绍,不过还不错,要是真这样的来发帖子``确实不错啊,可以看清怎么做,还可以看出作者的思路````````````
支持

128168zeng 发表于 2008-3-20 16:34

个人认为在WINDOWS 下,在如今的硬件条件,VB是不错的编程语言,如果精通在如今的中国环境下在有可为?纯属个人观点,不要讨论,再讨论都是苍白无力的!

128168zeng 发表于 2008-3-20 16:35

只是现在具有实战项目,可操作性的书藉和教程实在瘳瘳无几啊!

查看完整版本: VB网络篇游戏编程技巧指南