VisualBasic60實(shí)現(xiàn)網(wǎng)絡(luò)通訊程序設(shè)計(jì)

VBWinSockUDP〔用戶數(shù)據(jù)報(bào)協(xié)議〕或TCPUDPTCP網(wǎng)絡(luò)談天程序的運(yùn)行過(guò)程及原理第一步：建立連接主要過(guò)程是：由客戶端程序向效勞端程序發(fā)出連接懇求，效勞通道。其次步：開頭談天主要過(guò)程是：在客戶機(jī)的“發(fā)送的信息”文本框中輸入文字時(shí)，效勞器端的“收到的信息”文本框中就會(huì)實(shí)時(shí)地顯示一樣的文字，反之亦然。效勞器的界面設(shè)計(jì)件中找到MicrosoftWinsockControlForm1的名稱改為Form_Load，并在其中添加兩個(gè)命令按鈕〔Command1CaptionCommand2Caption為“發(fā)送”。在窗體是添加三個(gè)TextBox控件，其名稱分別為txtServerIP，txtSendtxtReceive。WinsockProtocol〔協(xié)議〕屬性設(shè)置為0〔即sckTCPProtoco。效勞器端的源代碼：PrivateSubForm_Load”設(shè)置偵聽端口WinsockServer.LocalPort=10001”IP地址txtServerIP.Text=WinsockServer.LocalIP”開頭偵聽WinsockServer.ListenEndSubPrivateSubCommand1_Click”點(diǎn)擊“退出”按鈕后關(guān)閉應(yīng)用程序UnloadMeEndSubPrivateSubCommand2_Click”只要txtSend文本框的內(nèi)容寫好以后就由WinsockServer控件發(fā)送WinsockServer.SendDatatxtSend.TextEndSubPrivate Sub WinsockServer_ConnectionRequest(ByValrequestID AsLong)”當(dāng)收到連接懇求時(shí)，Winsock處于偵聽狀態(tài)CloseWinsockAccept方法承受連接懇求WinsockServer.CloseWinsockServer.AcceptrequestIDEndSubPrivateSubWinsockServer_DataArrival(ByValBytesTotalAsLong)”當(dāng)客戶端有信息發(fā)送來(lái)時(shí)，利用WinsockServer控件的GatData方法讀取數(shù)據(jù)”txtReceive文本框中DimMyStrAsStringWinsockServer.GetDataMyStrtxtReceive.Text=MyStrEndSub運(yùn)行界面如以以下圖：客戶端的界面設(shè)計(jì)創(chuàng)立一個(gè)的“標(biāo)準(zhǔn)EXE”工程，并添加Winsock控件。將Form1的名稱改為Form_Load，并在其中添加兩個(gè)命令按鈕〔Command1Caption屬性為“退出”，Command2Caption屬性連接效勞器”，Command3的Caption發(fā)送”。在窗體是添加四個(gè)TextBox控件，其名稱分別為txtClientIP，txtServerIP，txtSend和txtReceive。WinsockProtocol〔協(xié)議〕屬性設(shè)置為0〔即sckTCPProtoco?？蛻舳说脑创a：PrivateSubForm_Load”設(shè)置談天效勞器的偵聽端口WinsockClient.RemotePort=10001”讀取本機(jī)的IP地址txtClientIP.Text=WinsockClient.LocalIPEndSubPrivateSubCommand1_Click”點(diǎn)擊“退出”按鈕后關(guān)閉應(yīng)用程序UnloadMeEndSubPrivateSubCommand2_Click”依據(jù)txtServerIP文本框中輸入的效勞器IP，連接談天效勞器WinsockClient.RemoteHost=txtServerIP.TextWinsockClient.ConnectEndSubPrivateSubCommand3_Click”輸入txtSend文本框的內(nèi)容后由WinsockServer控件發(fā)送WinsockClient.SendDatatxtSend.TextEndSubPrivateSubWinsockClient_Connect”假設(shè)與效勞器連接成功，則向用戶供給以下信息MsgBox你成功地與談天效勞器進(jìn)展了連接“,vbInformationEndSubPrivateSubWinsockClient_DataArrival(ByValBytesTotalAsLong)”WinsockClient控件的GatData方法讀取數(shù)據(jù)”txtReceive文本框中DimMyStrAsStringWinsockClient.GetDataMyStrtxtReceive.Text=MyStrEndSub運(yùn)行界面如以以下圖：通訊實(shí)現(xiàn)過(guò)程通過(guò)以上的預(yù)備工作后，分別把效勞器和客戶端生成exe(可執(zhí).exe。今后我們只需要用這兩個(gè)軟件就行，就算我們計(jì)算機(jī)上沒有安裝VisualBasic6.0首先翻開這兩個(gè)軟件效勞器.exe和客戶端.exe，在效勞器中軟IP端軟件也能檢測(cè)出本臺(tái)計(jì)算機(jī)的IP自發(fā)自接型我們先在客戶端軟件中的“txtServerIP”中輸入要連接的效勞IP后，則會(huì)彈出連接成功對(duì)話框，如以以下圖之后在客戶端的txtSend戶端發(fā)來(lái)的消息。同時(shí)，效勞器也可以向客戶端發(fā)送消息，這時(shí)客戶面如以以下圖兩臺(tái)計(jì)算機(jī)間通訊型把效勞器.exe.exe跟上面的方法類似，區(qū)分在于不是寫自己的IP，而是寫另外一臺(tái)計(jì)算機(jī)的IP,另外一臺(tái)計(jì)算機(jī)寫你的IP。這里我的IP10.1.214.28，另一臺(tái)計(jì)算機(jī)IP10.1.214.121。這樣兩臺(tái)計(jì)算機(jī)就可以連接并進(jìn)展通訊了。通訊界面如以以下圖12UDPUDP(UserDatagramProtocol)TCP操UDP應(yīng)用可同時(shí)作為應(yīng)用的客戶或效勞器方。APrivateSubCommand1_ClickWinsock1.SendDataText1.TextEndSubPrivateSubForm_LoadWithWinsock1.RemoteHost=“user-PC“”要連接到的計(jì)算機(jī)名.RemotePort=1010”要連接到的端口號(hào).LocalPort=1011”該Winsock把握將要使用的本地端口號(hào)，便于其它端與該Winsock.Bind1011”將該WinsockEndWithEndSubPrivateSubWinsock1_DataArrival(ByValbytesTotalAsLong)DimstrDataAsStringWinsock1.GetDatastrData,vbStringText2.Text=strDataEndSubBPrivateSubForm_LoadWithWinsock1.RemoteHost=“user-PC“”要連接到計(jì)算機(jī)的IP.RemotePort=1011”要連接到的端口號(hào).LocalPort=1010Winsock便于其它方與之通訊.Bind1010”將該WinsockEndWithEndSubPrivateSubtxtSend_ChangeWinsock1.SendDatatxtSend.TextEndSubPrivateSubWinsock1_DataArrival(ByValbytesTotalAsLong)DimstrDataAsStringWinsock1.GetDatastrData,vbStringText2.Text=strDataEndSubPrivateSubCommand1_ClickWinsock1.SendDataText1.TextEndSub通訊實(shí)現(xiàn)過(guò)程自發(fā)自接型B.exe。然后在同一臺(tái)計(jì)算機(jī)上翻開它們〔計(jì)算機(jī)上沒有安裝VisualBasic6.0也可以翻開，這樣談天A.exe和談天B.exe兩臺(tái)計(jì)算機(jī)間發(fā)送信息型假設(shè)要在不同的計(jì)算機(jī)上發(fā)送信息，則需要在源代碼中把RemoteHostIPIP,雙方都需要改動(dòng)。比方，一方是10.1.214.28，而另一方是10.1.214.121。然后再生成可執(zhí)行文件，方法過(guò)程同上。通訊過(guò)程如以以下圖12心得體會(huì)總結(jié)：TCP和UDPVBWinsock機(jī)自己與自己