最稳的pk10计划iphone 北京pk10计划手机软件 北京pk10数字的规律 超神手机版pk10软件 pk10北京赛车9码技巧 pk10四期倍投计划表 pk10极速赛车论坛 北京赛车冠军怎样选5码 北京赛车系统下载安装 pk10教程视频 北京pk10选号公式 北京赛车pk10赚钱技巧 北京赛车怎么提升概率 pk10技巧北京快三 北京pk10大小计划
VB.net 2010 視頻教程 VB.net 2010 視頻教程 VB.net 2010 視頻教程
SQL Server 2008 視頻教程 c#入門經典教程 Visual Basic從門到精通視頻教程
當前位置:
首頁 > 編程開發 > vb >
  • vb教程之利用Winsock控件實現局域網通信

  • 2017-09-22 14:56 來源:未知
對于局域網用戶中的編程愛好者來說,如果能自己編一個局域網通信程序,那么這一切將是多么美妙!可是,如果要從頭開始完全由自己來編寫一段用于通信的程序,必須對相關的網絡協議及其他的一些較底層的技術有較深入的了解,這可不是一件容易的事。而現在有了Winsock控件,一切就不同了,它已經替你封裝了所有煩瑣的技術細節,并提供了訪問TCP和UDP網絡服務的方便途徑。你只需通過設置控件的屬性并調用其方法就可輕易連接到一臺遠程計算機中,并且還可以雙向交換數據,而這一切都不需你了解TCP的細節或調用低級的Winsock APIs。
Winsock控件可以供Microsoft Acess、Visual Basic,Visual C++或Visual Foxpro的開發人員使用。本文以Visual Basic 6企業版為開發環境來向大家介紹一下Winsock控件的初步應用。
Winsock控件可以使用兩種協議:TCP協議和UDP協議,下面來分別介紹。
TCP協議即數據傳輸協議,它允許創建和維護與遠程計算機的連接,使其彼此可以進行數據傳輸。利用TCP協議通訊必須分別建立客戶應用程序和服務器應用程序。
在創建客戶應用程序時,必須知道服務器計算機名或其IP地址(存于RemoteHost屬性)、及服務器計算機進行偵聽的端口(存于RemotePort屬性),然后調用Connect方法。
創建服務器應用程序時,就應相應設置一個偵聽端口(LocalPort屬性)并調用listen方法。當客戶機需要連接時(connect),就會發生ConnectionRequest事件。為了完成連接,你可以在ConnectionRequest事件中調用Accept方法。建立連接后,任何一方計算機都可以發送、接收對方數據。如果你要發送數據,需調用SendData方法。當接收到數據時,會發生DataArrival事件,調用DataArrival事件中的GetData方法就可以獲得對方傳送的數據。
說了這么多,大家可能還是不太了解,讓我用程序來詳細說明。
如果只有兩臺計算機,那十分容易。假設甲機為客戶機,乙機為服務器,且其IP為192.192.192.1,接收端口為1200(任意選一個未被使用的端口即可)。首先在甲機客戶端程序中加入一個Winsock控件,起名為sckconnect,并設置其屬性:RemoteHost=“192.192.192.1”,(即甲機IP地址), RemotePort=1200(即甲機偵聽端口);再在乙機服務器程序中假如一個名為sckserver(0)的Winsock控件,其LocalPort=1200,
在乙機服務器程序中Form_Load()加入
sckserver(0).bind sckserver(0).LocalPort '與本地端口綁定
sckserver(0).listern ' 偵聽
如果要傳輸數據,兩機必須先建立連接。建立連接的程序如下:
甲機客戶機要先請求連接
sckconnect.connect sckconnect.RemoteHost, sckconnect.RemotePort
此句執行時會觸發服務器程序中的ConnectRequest事件,在此過程中決定是否建立連接,其代碼如下:
Private sub sckserver_connectionrequest(index as Integer,Byval requestid as long)
if sckserver.count=1 then
load sckserver(1)
sckserver(1).accept requestId
end if
end sub
連接建立好以后,甲機或乙機都可以應用SendData方法來傳送數據。例如,如果是甲機要傳送一個叫string的字符串,只需在代碼中加入:
sckconnect.SendData string
甲機傳送數據后,會觸發乙機的DataArrival事件,在其過程中用GetData方法可以收到傳送的數據:
Private sub sckserver_DataArrival(Index as integer,Byval BytesTotal as long)
dim sdata as string
sckserver(1).GetData sdata,vbstring
end sub
最后別忘了在關閉程序前要先關閉Winsock控件
privat sub form_unload(cancel as integer)
if sckconnect.state <>sckclosed then
sckconnect.close
end if 
end sub

這只是最簡單的情況,如果有多臺計算機,那就稍微復雜一些,客戶端程序可以不做改動,而服務器端程序需要略做改動:
Private sub sckserver_connectrequest(Index as Integer,Byval requestid as long)
dim sip as string
dim I as integer
sip=sckserver(0).RemoteHostIP '獲得登錄者的IP地址
I=1
Do while I<=sckserver.ubound '檢查是否已經有該地址的記錄
If sckserver(I).RemoteHostIP=sip then '如有,不必加載新的控件
Sckserver(I).Accept requestid 
Exit sub
End if
I=I+1
Loop
Load sckserver(I) '否則,加載新的控件
Scksrver(I).accept requestID
End sub
注意到:以上的信息交談實際上都發生在客戶機與服務器之間,如果要做成聊天室那樣,每個人的話都可以被別人“聽到”,那就要在服務器端的DataArrival事件中,把接收到的客戶機傳來的數據,轉發給所有客戶機即可。
其循環轉發信息的代碼如下:
For I=1 to sckserver.count
if sckserver(I).state<>sckclosed then
sckserver(I).SendData sdata
end if
next I 

怎么樣,這樣我們就作好了自己的通信軟件!

不過,不知大家注意到沒有,上述程序都需要有一臺計算機做為服務器,但如果我們的局域網中沒有哪臺計算機是可以常開的,也就是說,如果服務器端程序沒有運行的話,其他客戶端程序也沒有辦法通信。而這種情況卻可能是經常出現的!至少,我所用的局域網那就是這樣的。難道這樣我們就無法享受局域網通信的樂趣了嗎?
不要急,記得嗎,我們的Winsock控件還有另一個主角:UDP協議。
UDP協議也稱為用戶數據報文協議,是一個無連接協議。何謂無連接協議?就是說利用此協議連接時,不必象TCP協議那樣:需要服務器端偵聽,客戶機端請求連接,服務器端建立連接后雙方才能通信。另外,UDP應用程序可以是客戶機,也可以是服務器程序,而不必向TCP應用程序那樣必須分別建立客戶機程序和服務器程序。
下面,來簡述一下UDP協議通信的過程:UDP協議中,為了在甲乙兩機中傳輸數據,必須先分別設置兩機的LocalPort屬性;再將甲機的RemoteHost屬性設置為乙機的IP地址,RemotePort屬性設置為乙機的LocalPort屬性值,此時甲機調用SendData方法就可以傳送數據了,乙機同樣使用DataArrival事件中的GetData方法來獲取甲機發送給乙機的信息。如想乙機向甲機傳送數據,只需仿照上面的過程設置即可。
用UDP協議來傳輸信息較TCP協議來說簡單的多,它無須偵聽(LISTEN),也無須請求連接(CONNECT),就象我們平時發信一樣,只要寫好地址及收信人姓名并發送出去即可。我們可以借此來編寫一個局域網中的信息傳送程序,下面來簡單介紹以下程序中想實現的功能及其基本思想:
首先,我們一定想讓程序的圖標顯示在system tray中而不顯示在任務欄中吧!這要是自己編程實現可不是太容易,幸好VB光盤中在common\tools\vb\unsupport\systemTray 中有一個現成的程序,我們只要把它編譯成systray.ocx 控件,然后在編寫自己的程序時添加此控件即可。其使用方法十分簡單,它已經定義好了鼠標單擊、雙擊等事件,你只需編寫相應的鼠標事件即可,這里不再多說。
程序的關鍵是:UDP協議在通訊時要知道對方的IP和Port,這要如何實現呢?最簡單的方法是建立一個配置文件,里面放置了局域網上每臺計算機的名字、IP和Port,在程序初始化時讀出所有信息,在程序中只要知道向誰通信,讀出其對應的IP和Port即可。
我們知道了每臺計算機的IP和Port,但我們怎樣才能知道其它計算機是否在線呢,否則發出信息別人收不到怎么辦?我們可以把此程序放在啟動菜單中,讓其一開機就自動啟動,并最小化,放于窗口右下角的system tray中。在程序剛開始運行時,它會自動向它從配置文件中所知道的所有IP發一條信息:“我來了!”,如果有計算機在線,它會自動返回一條信息:“歡迎!”,如此則兩機通信成功,它們會分別把對方的名字加入到自己的可通信人名單中去;如果有計算機關機,程序在退出之前會自動向所有人告別:“再見!”,接收到此信息的計算機會自動把發送信息的計算機的名稱從自己的可通信人名單中去除。這樣,如果某人不在線,你將無法發送信息給它;如果除了你以外,其他人都沒有開機,那你的可發送人名單中將沒有任何人。而其它人只要一上線,會自動去你那里“登記”,其他人只要一離線,會自動去你那里“告別”,你可以據此知道他人是否正在使用計算機,你甚至可以以此程序來統計他人的每天上機時間,不錯吧!
好了,一個局域網通信的程序的基本模型已經有了,并不復雜吧!大家趕快動手吧,來享受用自己的程序來聊天的樂趣!
不過,要想編寫一個出色的程序,不光是要有良好的創意與功能,更重要的是程序的兼容性與容錯性。本例中,對錯誤處理沒有做詳細的解釋,關于這一點,大家可以在Winsock控件的error事件及其幫助中找到滿意的答案。
另外,還可以從以下幾方面來考慮功能的擴充:如傳送圖形、聲音等多媒體信息、局域網互傳文件(主動傳送)、歷史通話記錄、系統日志、個人上機時間統計等等,而所有的這一切僅僅取決于你的想象力與你的聰明才智!下面,筆者以傳送文件為例來講一講其功能實現的代碼。
你可以把本地的文件(圖形、聲音等可以先存成臨時文件)以二進制文件的方式來打開它,將其內容全部讀入一個byte類型的數組中,本地機代碼如下:
dim myfile () as byte
dim position as long
open "filename" for binary as #1
position=0
do while not eof(1)
position=positon+1
redim preserve myfile (1 to position)
get #1,,myfile(position)
loop
close #1
再向遠程機傳送這個字節數組
sckserver.SendData myfile
遠程機收到這個數組之后,再以二進制文件的方式打開一個新目標文件,將數組內容寫入這個新打開的文件,如果是bmp圖片就將其放入picture圖片框中,如果是wav文件,就播放。這樣,局域網中的兩個人就可以通過語言、圖片、文字來交流了。
遠程機代碼如下:
Private sub sckconnect_DataArrival(byval bytestotal as long)
dim receivefile(1 to bytestotal)as byte
sckconnect.GetData receivefile,vbarray+vbbyte
'告訴Winsock控件收到的是字節數組類型的數據
open "c:\temp\文件名" for binary as #1
for I=1 to bytestotal
put #1,,remotearray(I)
next I
clost #1
end sub
最后,希望大家能不吝賜教,我的mail為 [email protected]
pk10赛车冠军技巧
最稳的pk10计划iphone 北京pk10计划手机软件 北京pk10数字的规律 超神手机版pk10软件 pk10北京赛车9码技巧 pk10四期倍投计划表 pk10极速赛车论坛 北京赛车冠军怎样选5码 北京赛车系统下载安装 pk10教程视频 北京pk10选号公式 北京赛车pk10赚钱技巧 北京赛车怎么提升概率 pk10技巧北京快三 北京pk10大小计划
大学城附近宾馆赚钱吗 广西11选5开奖历史 吉林十一选五预测号码 诛仙手游云梦怎么赚钱 重庆时时彩开奖结果 挖掘机做工程能赚钱吗 给公众号投稿赚钱是真的吗 012彩票网安卓 多宝娱乐平台