VB網(wǎng)絡(luò)篇游戲編程技巧指南

步驟一：首先要先把控制項給叫出來，你只要按下Ctrl+T後選取Winsock Control 5.0若是用VB6 的就選Winsock Control 6.0，這樣就可以使用Winsock元件。
    步驟二：再來我們必須先確定程式是作Server端還是Client端的，要先設(shè)定一些屬性：
    Server寫法：winsock1.localPort = 5400 (數(shù)字可以隨便設(shè))
    winsock1.Listen (等待連線)
    Client寫法：winsock1.RemoteHost = "對方IP"
    winsock1.RemoteProt = 5400 (必須要和Server端相同)
    winsock1.LocalProt = 0
    winsock1.Connect (連線)
    連線之前Client端要先知道Server端的IP，接著等到Server端等待連線時，Client端就可以呼叫Connect方法，雙方連線成功後就可以傳輸資料。
    步驟三：當(dāng)Client連線的時候Server端會引發(fā)ConnectionRequest事件，Server的程式要這樣子寫：
    Private Sub Winsock1_ConnectionRequest(ByVal requestID As long)
    winsock1.Close
    winsock1.Accept requestID
    End Sub
    步驟四：這樣一來就可以傳送資料了，傳送和接受資料的方法如下：
    傳送資料：mydata = "你好嗎?"
    winsock1.sendData mydata
    這樣就會把mydata給傳到對方那里。
    接受資料：當(dāng)有資料送到的時候會引發(fā)DataArrival事件。
    Privata Sub Winsock1_DtatArrival(ByVal bytesTotal As long)
    Dim mydata As String
    winsock1.GetData mydata　會把送到的資料給mydata
    End Sub
    Winsock 控制項就那么簡單，只要會這些就可以寫網(wǎng)路