資源描述：
《winsock編程實(shí)驗(yàn)報(bào)告》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在應(yīng)用文檔-天天文庫。
1、為了適應(yīng)公司新戰(zhàn)略的發(fā)展，保障停車場安保新項(xiàng)目的正常、順利開展，特制定安保從業(yè)人員的業(yè)務(wù)技能及個(gè)人素質(zhì)的培訓(xùn)計(jì)劃winsock編程實(shí)驗(yàn)報(bào)告 實(shí)驗(yàn)六：WinSock編程實(shí)驗(yàn)報(bào)告 1實(shí)驗(yàn)?zāi)康暮鸵蟆 ?）學(xué)習(xí)網(wǎng)絡(luò)中進(jìn)程之間通信的原理和實(shí)現(xiàn)方法； 2）掌握在VB或VC++等集成開發(fā)環(huán)境中編寫網(wǎng)絡(luò)程序的方法； 3）編寫一個(gè)簡單的聊天程序：最低要求實(shí)現(xiàn)兩人一組的兩臺(tái)計(jì)算機(jī)之間的收發(fā)文本及其顯示； 2實(shí)驗(yàn)設(shè)備及分組 1）WindowsXX以上操作系統(tǒng)； 2）VB和VisualC++語言環(huán)境； 3）每人一臺(tái)PC機(jī)?！ ?實(shí)驗(yàn)內(nèi)容和步驟 設(shè)計(jì)服務(wù)器界面目的-通過該培訓(xùn)員工可對(duì)保安行業(yè)有初
2、步了解，并感受到安保行業(yè)的發(fā)展的巨大潛力，可提升其的專業(yè)水平，并確保其在這個(gè)行業(yè)的安全感。為了適應(yīng)公司新戰(zhàn)略的發(fā)展，保障停車場安保新項(xiàng)目的正常、順利開展，特制定安保從業(yè)人員的業(yè)務(wù)技能及個(gè)人素質(zhì)的培訓(xùn)計(jì)劃 打開vb程序，新建一個(gè)工程，取名為server。在窗體中添加控件。將Winsock控件放入到窗體里，名稱屬性改為Winsockserver。在窗體里建立兩個(gè)按鈕，command1的caption屬性為發(fā)送，command2的caption屬性為退出。建立兩個(gè)richtextbox，richtextbox1的名稱屬性改為textget，ScrollBars屬性改為3-rtfBoth，Loc
3、ked屬性改為True，richtextbox2的名稱屬性改為textsend，ScrollBars屬性改為3-rtfBoth。然后建立兩個(gè)label，caption屬性改為接受窗口和發(fā)送窗口。如圖3-1所示?！ D3-1服務(wù)器界面 設(shè)計(jì)客戶端界面 先建立一個(gè)工程，取名為client。在窗體中加入控件:將Winsock控件添加到窗體里，名稱屬性改為winsockclien(轉(zhuǎn)載于:寫論文網(wǎng):winsock編程實(shí)驗(yàn)報(bào)告)t。建立兩個(gè)richtextbox，richtextbox1的名稱屬性改為textget，ScrollBars屬性改為3-rtfBoth，Locked屬性改為True，r
4、ichtextbox2的名稱屬性改為textsend，ScrollBars屬性改為3-rtfBoth。在窗體里 建立三個(gè)按鈕，command1的caption屬性為發(fā)送，command2的caption屬性為退出，command3的caption屬性為連接。建立一個(gè)text。再建立三個(gè)Lable，caption屬性分別為主機(jī)名，接收和發(fā)送，如圖3-2所示?！ D3-2客戶端界面 編寫程序及其說明 服務(wù)器程序 PrivateSubCommand1_Click()’發(fā)送選項(xiàng) DimaAsString a="服務(wù)器：" "("&Time&")"&vbCrLf&目的-通過該培訓(xùn)員工可
5、對(duì)保安行業(yè)有初步了解，并感受到安保行業(yè)的發(fā)展的巨大潛力，可提升其的專業(yè)水平，并確保其在這個(gè)行業(yè)的安全感。為了適應(yīng)公司新戰(zhàn)略的發(fā)展，保障停車場安保新項(xiàng)目的正常、順利開展，特制定安保從業(yè)人員的業(yè)務(wù)技能及個(gè)人素質(zhì)的培訓(xùn)計(jì)劃 =&a&"("&Time&")"&vbCrLf&&vbCrLf‘可自動(dòng)換行，并有時(shí)間顯示 =""‘發(fā)送完畢后，文本框自動(dòng)清空 EndSub PrivateSubCommand2_Click()’退出后結(jié)束運(yùn)行 End EndSub PrivateSubForm_Load()‘窗體加載時(shí)，發(fā)送文本框與接收文本框不可見=False‘發(fā)送信息文本框不可見 =Fals
6、e‘接收信息文本框可見 =1001‘服務(wù)器端口號(hào)設(shè)置 ‘服務(wù)器偵聽 EndSub PrivateSubWinsockserver_Close() ‘關(guān)閉服務(wù)器 EndSub PrivateSubWinsockserver_ConnectionRequest(ByValrequestIDAsLong)‘連接后，WinSock控件工作 =True =""‘清空文本框信息 =True目的-通過該培訓(xùn)員工可對(duì)保安行業(yè)有初步了解，并感受到安保行業(yè)的發(fā)展的巨大潛力，可提升其的專業(yè)水平，并確保其在這個(gè)行業(yè)的安全感。為了適應(yīng)公司新戰(zhàn)略的發(fā)展，保障停車場安保新項(xiàng)目的正常、順利開展，特制定
7、安保從業(yè)人員的業(yè)務(wù)技能及個(gè)人素質(zhì)的培訓(xùn)計(jì)劃 ="" IfsckClosedThen‘如果socket沒有關(guān)閉，則關(guān)閉socket requestID‘服務(wù)器接受請求，接受以后雙方才能發(fā)送數(shù)據(jù) MsgBox("連接SERVER成功！") EndSub PrivateSubWinsockserver_DataArrival(ByValbytesTotalAsLong)‘信息接收DimtmpstrAsString
