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 控制项就那么简单，只要会这些就可以写网路

视频学习

① 凡本网注明稿件来源为"原创"的所有文字、图片和音视频稿件，版权均属本网所有。任何媒体、网站或个人转载、链接转贴或以其他方式复制发表时必须注明"稿件来源：我考网"，违者本网将依法追究责任；

② 本网部分稿件来源于网络，任何单位或个人认为我考网发布的内容可能涉嫌侵犯其合法权益，应该及时向我考网书面反馈，并提供身份证明、权属证明及详细侵权情况证明，我考网在收到上述法律文件后，将会尽快移除被控侵权内容。