VB6.0网络篇-游戏写作技巧
添加时间: 2006-2-16 5:40:00 作者: VB教程 阅读次数:65 来源: http://www.d9soft.com
步骤二：再来我们必须先确定程式是作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 控制项就那么简单，只要会这些就可以写网路
上下文章:
上一篇文章: 如何获得计算机的机器名 下一篇文章: 认识一下VB 6.0的编程环境
相关文章: