vb

小光

字體大小 16px

10px 32px

ＶＢ遊戲寫作技巧﹝2﹞網路篇

　　這一次寫的是如何用ＶＢ來寫網路程式的方法，你可不要以為這是什麼深奧的程式
，其實只要一個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 控制項就那麼簡單，只要會這些就可以寫網路遊戲了，相關的程式你可以
參考我的網路五子棋，或者是VB的線上說明文件。

蕭堯中 1999.8.17
VB遊戲小站
https://netcity.hinet.net/syc837
https://netcity3.web.hinet.net/userdata/syc837/default.htm<!-- <SERVICE NAME="HiNetCity popAD"> -->
<SCRIPT language=JavaScript SRC="https://netcity.web.hinet.net/POPAD.JS">
</SCRIPT>
<!-- <SERVICE NAME="HiNetCity popAD"> -->
<b>vb</b><font color=yellow>vb</font id=yellow><font size="4">請輸入您要顯示的文字</font id=4>