1、實驗十 編寫 C/S 程序一、實驗?zāi)康膶W(xué)習(xí)掌握用 VB 編程實現(xiàn)簡單的客戶服務(wù)器程序的技術(shù)方法，理解 TCP 和 UDP 協(xié)議。二、實驗環(huán)境用以太網(wǎng)交換機(jī)連接起來的 WIN2000 server 操作系統(tǒng)計算機(jī)，安裝有 VB6.0 軟件。三、實驗內(nèi)容及步驟：1、理解 Winsock 控件2、編寫服務(wù)器程序3、編寫客戶端程序4、測試程序四、實驗過程1、 Winsock 控件簡介 :1) TCP/IP 技術(shù)的核心部分(傳輸層、互聯(lián)層和網(wǎng)絡(luò)接口層)通常在操作系統(tǒng)的內(nèi)核中實現(xiàn)2) Socket 調(diào)用： TCP/IP 網(wǎng)絡(luò)操作系統(tǒng)提供的典型網(wǎng)絡(luò)編程界面Windows 、 UNIX 、Linux 等都支持

2、 socketMicrosoft Visual C+ ： socket 被封裝成類( CAsyncSocket 和 Csocket)Microsoft Visual Basic ： socket 以 Winsock 控件的方式出現(xiàn)3) Winsock 控件 :(1) 主機(jī)之間利用 TCP 通信 :客戶程序 :RemoteHost 屬性、 RemotePort 屬性、 Connect 方法 服務(wù)器程序LocalPort 屬性、 Listen 方法、 ConnectionRequest 事件、 Accept 方法。 發(fā)送和接收數(shù)據(jù)SendData、 DataArrival 事件、 GetData

3、方法(2)主機(jī)之間利用 UDP 通信 :服務(wù)器程序LocalPort 屬性、 RemoteHost 屬性、 RemotePort 屬性SendData 方法、 DataArrival 事件、 GetData 方法客戶程序RemoteHost 屬性、 RemotePort 屬性、 SendData 方法、 DataArrival 事件、 GetData 方法2、利用 Winsock 控件編寫簡單的客戶 服務(wù)器程序1)服務(wù)器程序 :在 UDP 的 2000 端口守候客戶的請求信息收到客戶的“ Date請求：響應(yīng)日期收到客戶的“ Time請求：響應(yīng)時間客戶程序 :發(fā)送“ Date和“Time請求顯示

4、收到的響應(yīng)2) 服務(wù)器程序編寫過程：3 / 33I甜鹵堀.處耳止gw PfrJ*OHz沁;迎押I eke址 T DU.毗T CtjrtWVB Acdtifi .r越Y(jié)K VW*d町tmXH)rJflHCWMTl? ”魁& M*hMdtlnJ0K4P尸 tzJ.w(FormOcriTijJAtitiKE |citegmve ；|LjplBnrig i#it 血pUr rhi 曲*2 Cr btiow an V4A 1 iKw tl i 出 il峠 LB tht trylw *叭I血屯虛寥揺余團(tuán)回創(chuàng)矗審4回I童里I選擇牖制程序的類型1 rVHMAMUMr* r/nQjta1 gftf. (fCbw

5、g Sm* Chfr gvn lta $ gw *區(qū)鼻1DPft-卜 Mtf H W SiJj -ftC1* Tok MOGtt ? |iPraHWtl (IKilrrtll日 krml HrmlJ初始Msiial Basic集成幵發(fā)壞境界茴控件選擇對話框f Ptwjer t I. - MKruftdR. Vnual|dhMbpgnj|Efc 肚 &WECHebMQi 亦hrAnn $d弟卜p-.甜已尅甘壬國$二。勺I 韶 A HF I *I!同Prg|Kl nil IfvwT|KCA - FTSttl-搏 Pra釈il阿o)m訂亍 牙旺FtVTK& form 1、lwerLkei - lor

6、nikIfonBiFam*Uiat示to VrUlSOk扔牛石餉工具笛宙口r r f|l HMfMeHU-. LdrLj國口朋：ris,(udpd*f 憐)-vArrCL ierver (serrer.frm)iI F TiiIt?J口I km Fdifr-*)令）5由Ji akutcf E* f)ew 呑呃就吒片M O&Jd g5 Cvtiy Dsfutr ith 占妙此 wjHri&w 曲,ig| XII Ti 5W.W 廣的聘承4用助alwtr添柯標(biāo)簽和列表推5 / 33r 1 3 啊十耶山 Wrt.U4llJi*4iC山出出 供曲 W 令OM 標(biāo)*軻 3V Umtwlfe 羽*tw M

7、dew 并二iJ列揺-凸”73 0巳Z離轉(zhuǎn)：-：n W l* 0 U 1C 2 7 , HW, 2*0芒CO*20Jill 5!.ETKHiMoSmw-)& ts fwn&詢舊謝燈気 n to(wmatSnTwiSk Z).呷*| CJifiouvei |(AtoObT)Lustd)J3C*W0T*03応加WiK0k揑件幷倏改其膳性2X024QReturc ths name used n Oflds to idvitA mi i)Bd.19 / 33 III 中77-! ?：*：!i iILiPVf i 知End Subt?咖a d.udJiJST* 泌aCjftt cnM&Ju*AtvWI

8、t在Form Load申使用Wmsockft Bind旎孫定守鶴口-JillA *9a *Private Sub WinsockSrver byteaTfitil As long)Dim atrRecf str3end As St cinq用顯町讓方桓接吭耳尸諸為送殳疑尊匡申前信?arinsnServflrGetDiti strRBe, vbgtnng現(xiàn)搭揍收折信更卜曲出曲咯應(yīng)?rlect C&rti dtiK?cCase !)仏,*dteBf 嗆就上熔Pit求唆務(wù)器黔在主機(jī)的E期AtrSfrM DtttC(r亡Tirnf, %*二rnCEL，事尸讀求蚩菁器所在主現(xiàn)r肝間 jtrJflrd 5

9、 TijaeCisc 1事戶苗謀的請戲rtrSftnd =Hrid 3elr-7t，味務(wù)醴矚甌礦誦農(nóng)tfinsojkSiEVrc.8itiDftti strBsnd填號肢務(wù)轄日吉LtEQHAddltem Mow & 5J IP=* _k Kin3f?t9?EVTfkhnLcH9JI ( * Fmbt升賊MEFMt fiI *i. aKcktz i ，響應(yīng)(* i atrSsid 4 *| *Wmk 柑巧 理tt1*T1iritM “I鼻血：!I rw1 IhWlftr | Jit(4 rtiL LrFA F j *awii 餉席pbrSMfetah PrXIg2)ghTIzr :：；il站 _

10、#t 一 fl*E -：!邑一擁W 二肛辭:朋a)在集威開妬境期蜒行W鏗為EXE文件艇出開發(fā)開境斷UDP服務(wù)器日志日胡和時間響應(yīng)腿每器的運行卵eE3）客戶程序編寫過程:選擇塡制程序的類型r ft+Wll -叫(dullI$耳” P tUH ?初始Vi券成開按環(huán)境界直控件選擇對話框l = MM沖per|E訃窗rnl唧JIA5U 申Fcmrtl0|刈 亠 01 x| 芒 SlJOx 3135I -|chml fwryp E*&ct FVtf# S-tMfl F-JI Wf Tan wh 妙葉 Jwfc* 卄鶴-門 QP八一 .* 痕赳f?電,話獲旦 o,a-RoctlfPvoitL)& F*nl

11、Lfnl IStsRDTull-lMtS WtSiT 知hdn K 3嵐口 誠 占0 bec%- r.rftaWwsock控件宕的工具衲窗口f Wa Murewift 訥甲Tdtfignj -工昶* - Wint (Fofin)目 0 TE 皿 ft) fi M s 0 戈*2J；“ 工專1 (u*M*n 缶 f rFvim& 心fm；因t-B憂改窗體的名牛和標(biāo)理在固體上加入標(biāo)簽、兗帝櫃和命令捋鈕需要加入的標(biāo)簽、文沖框和命令按餐控件名稱需要修改的屬性標(biāo)簽LblHostC沖tioi冃艮務(wù)器IP地址標(biāo)簽LblPortCaptionp服務(wù)器端口標(biāo)簽LblConunandCaptionHff求命令標(biāo)簽

12、LblResponscCaption#器響應(yīng)文本框TxtHomtText=l92168088 （假設(shè)服務(wù)器程序在具有該IP地址的主機(jī)上運行文本框TXtPortText=2000文本框TxtConunandText=Date文桂TxtResponse命令按鈕BtiiSeiidCaption我送2召垮股口 darie (Q Jm：J 2Jgprtjtrt iiftHtM-idJ m|-J Ji xl/* IfrTSxl*ItXtHDft ToitBOF二:牛atH ckwckIITmtPeuwniWt-i the tM 9it*e r fro COntfiU-FQi-rMi dbuigSO 工 ”

13、 * qo縱務(wù)勞丁她址,A33 -倉蜩福端口,1世曰：口倉rs彗” FElflilo曰口 口也420k 42DI片 X*lvnulfrMc dr*gn = (TW1 打屮比(1)rrtiMMi WmocfciThcnt?d c （9 * 囚書MEMl禍目* r 丙 iil X L- -1-封h 3舞處目必:*總IA l*i HQ$壬前】(UripT亦i 一贏 r j Fcrrns-Q .|rm；WvVHKKfe WhKCt添加3如*拄件并憶改其屬性a.lKi *m顯11 EH r 卜.卻衽節(jié)骨呈2宋d 蘆片*1 F* ；仲卩曾Me ：補(bǔ)（#”片卉 ? &lnrMtf!l #dbiWI留4l恤（

14、如右 *|伽BilLJ訂時 em1T站疋葉IKMHPrivate Sub Fora Load() 喀尸躺口 2咖魏被瀏EWinsockClient*Bind 2002End Sub訂程序內(nèi)Forai Load程序代碼繆！itfj血出#鋼忍腳（呻e出少屈 * nIrm 匸田！! $ fAJ8|mr譏*鈿,9 Wilf巳賽鰹卄H.才磷:卩:廿理弘勺*,44條il +詢譏冶曲4叩 櫛 1 w：*ixitiTd止出*一3zaonDI 0BflllMtMltiU瓠特frivute 3uh btnSend_ClidODin 瞰ftt As Stdnj擬詡E需加刪Si 口VinsodCli entRKooU

15、Ho$t = txtHortJextsClientH RenotePort - tKtmxt吐就ttrTxt = txtCo=3iiind,Te!ttMinsadCLient. SendIHta stiTxtgd 9ui魏令ftfl CM事件難牆戶酬冊啊睿嚴(yán)環(huán)昱序的逗行卄直2）測試編寫的客戶 一服務(wù)器程序：ir wopspk服務(wù)器IF葩址t 1168.0,88請求命令:Tine服務(wù)器響應(yīng) P：54：05客戶發(fā)送“Tim/字符串請求段務(wù)器的則瓦UDF月艮務(wù)器HI卷工2.OO1 若llsRp 二？Sa 0-5 一21* 耳3VQ rd芳sirvsaa焯 E- s 5 5 5 2 5 S?B _&

16、io.l: Q:il晉 s -X 桁鬥-窈泊 XKFc.fip iq _a-aL1L 112-L J L L 口1,T“暫it注“I* ii、W,.DATA.；鏟2】an = _一 & -= s:2:g;s:s: FprpkRFPPPPPF 8SV68O0S8888S88 68Q.o.mo.o.6o.6666 再服ra.阪臥皈盛甩販電嶽H咸 一o$ o 6 _h右 E _u酉百日66 miilm ill .2.cj2.2-2. 1X111 1 1 .1 I .1 I 1 匸口|一|1匕比*一一 F F F F p _FF F 戶 p p p F rmnxIILIT-

17、L-owwmxT4TTr*TrmmmFwn 篇鄒洶14劇酬 :亠 T ; : i a +* +* . H Ta i* TA ; &55SSSS6SSIAS& * #- rK ._ ra -0 $ s 6 s 6 8 s 6 6 0 6 1 VA 1 1 j 1 1 1 1 4 X X- T4777W- 7T77rtiw-3-a-3r-A3.-* )2-釘 A A A A3-A2-2-L2-肺算薜的曰擊五、實驗總結(jié)：通過這個實驗讓學(xué)生掌握一個簡單c/s程序的編寫及測試。六、實驗思考題：在VB中WINSOCKET 控件的作用是什么？實驗十三電子郵件的使用、實驗?zāi)康恼莆?Microsoft Outl

18、ook Express 的操作使用和簡單 SMTP 服務(wù)器的編程、實驗環(huán)境WIN2000 sever 操作系統(tǒng)計算機(jī)，安裝有 VB6 程序三、實驗內(nèi)容及步驟：1、Microsoft Outlook Express 的操作使用2、編寫一個簡化的 SMTP 服務(wù)器3、觀察 SMTP 客戶與服務(wù)器的交互過程四、實驗過程1 、電子郵件客戶端應(yīng)用程序 Microsoft Outlook Express 的操作使用：熟悉 Outlook Express 的外觀21 / 33/碣超杵 見示文件壬名帚一菜肇吟 舉謝鑿乍宿今L工真欄：畏供操作翹23 / 33kF intlMk liEfKt主窗口 :昱示郵件列表

19、.空內(nèi)容Outlook 欄1）創(chuàng)建郵件賬號LiRintt 號“對話框裡 理32汁“讒接 向異”對話槪中幀 哇石在iSIft fl*pp 對is芹匡中1ft入屯于也回牛地址25 / 337E lute nut誣須問對中輔入咽于PH牛JW務(wù)器呂在匹燈冏刃簾犯中輛人由幔沖豈錄叫 耳2）調(diào)整賬號的設(shè)置鼻工百flKP主宀脈號厲煙:一服昂霑對話框3）檢索POP3服務(wù)器上的新郵件（收郵件）5謹(jǐn)存権-Xff V Hlftxi 看 |J - Ct : ffiram=r ）工地更詩賽命收件藉IKcjj nrw 葫舫叩Stii和踴*1*jWWiiBlfLH4)Ctrl*譽送主碩件臣）逹訊朋 QTCtrl+5hUi*

20、l如Mt All嗽譏）件規(guī)別$】卜g巳覽遇律 G巳H軸胖耳耳 審ill*卑 d）4）閱讀郵件:27 / 33一IfiTiMn*7VLT IT.*strMnifi!* 34# 時加拄山 it悔.j幻I* 叩4M1.TJB.iizlJ時畫悄現(xiàn)町氓 融fulrIHI 曰，電耳聽11 A皿枯毎衛(wèi) 一T*s、 r號-n專陽的呀 叫W審 Keft, K召11和工5口 &:硅ffi十咄邏芝 sle咖*B 代也飯丈開普* WT卑T力建 -橫軸棚的HL-J. 亍雷4V審去 亦密.*切慌 !乩小日古rl. 對-fr Iftla肌臺応鼻r*1 芋世咼ise-的的 戦的-.*浮琢程？ .X代*;!t;l 扎和IrK巫

21、里 癥茁出池T n相龍r和初* 桂釗硏帖 藝租畠住世 加：FariEe爐工 號10空訥廠口的 的走町t#腑&申 L 干址 削砂辦白att T*偉慮翻的扛 劉*霽憶目快. 金 相匸氣拎皎*-ii triLlflOntlsak Eprefl 牧件箱祝工作驗10*-IS屮q.詆a 3池Jim 上叫舍“ IMJ- hlWW器穴 _凄霧季 黑r盃金 忡象監(jiān) 莎&49W * 嘗調(diào)過 驀世r在 信曲扶88點S- 盍;r點們 鼻苗耆刃”* . 票于詢Ml 詳Z鳥T 應(yīng)用iffJRt.仙滬最 他碎1*俛建Mix ss. 垢總器5 刑硒下的癌加槪町 莘.瓷益中 孟提身旳 亭宜空科k年IMI 澄n5）查看郵件附件:

22、29 / 33衛(wèi)什J?M -XA 4f*at-w iCEH4iT*rdHte* VwhLxsJfcf! A .m t- .inriri.i . i -ri -i - 井人j1 I , r,h -r r r、，F(xiàn)-1i I Tis .-T-fr-J b P 啣舊 dH I 庁百* 旳 L?!1 件py?nt 翩 tha： vu wtD FPtum to 匸thr- hiriErr 14CbUm *! Jl Mi-0 tlfit帯陽件的郵件的預(yù)燉窗口HI有附件廠對4舌揮 眄vil汽學(xué)HA * g1支件旳dm A y m aikrin a 書：口審巧伯 UH:町 Li o 4 f； f yow re

23、cent r-rnctpttnJekL sp .-n.scrr Edi hy LL-twI1 Wr h住pu that yu r-ryr&yr:-d EHcnnd flk.ift 抻住U Will i(4 C tn|L-efc r . Of r eft y-.-Lli lli&ndj lizdi4 fiaijirrIS7c woijdjUk-e toihu: PF -rtujaitv vrivitr 賞口矽.to jthe AjS GcmEtoo. fo C? oin(i Km NLa匸 Funrry. lhe WoiliJ s p.LEL亡iullN誠 如洛和2r備With 4曙打 80.0

24、00 rikiht rl備怙-ACMIf 鼻疋中卄焯- -f yUF (BhW f ftJi-Iciral- 押司 卜.住山*曲快話排A*TM members：hap* will jagne you v?ai rcmjKi Access to n閃lii of tught R_la卜w J止 p r tIst-i ul R fB* rhiwT r 亀 J a at- h I -i j -n6）書寫并發(fā)送電子郵件:“新祁件” ffl 7）管理通訊簿:&就入fttW亦收中g(shù)押 C J# / 33f* *Of* = M諒 PutlgkrE.竝*H 哥門薊F”：ItTxtNMMOGO*trt5rwCr

25、tRS&S*rtwt2-gp心,儘改窗體的Nmw和Cation Httf 1|*. i I i皆.*B| I I- - ili 1Die l* 勺a#1 arTr* LcLvj tz-Ji gf r Livtfn ubn 工r嘰y Ufi?塘加 MIqm 5iTdF KI lUlLap 傢爸f rnftTlk爼嵐JftN:國、芒右* A - ll!4QJ 叩口口brt.TP*Jl” TcptUddri1如、Lfautfri!. Cl Eta也aJ! *gT0E 0 Hruli = nm 竝E. i J+YJjrw.2渭加IxiM諒文龍甫和HilMil懺二Jg nA回+ _i=軸空屯菩蟲也命 W

26、Q, 2i0 十 PCi difl一 N?d91TP服務(wù)器日志 接收的郵件內(nèi)容：】：nvrtlil96_r 3忝汨曲冋d控件弁橋銳附生=7H斤心iiPmmCaavBKlSESTFwJ-QSK+qIdceQ sth CmuiiEdaWtEI恤 屁 itdqwut b JtwtJ Mri,創(chuàng)吐緞A片計兒恤賊皿加J討2面? 妝卜辭禪劭甘剛腳護(hù)葩怖艸J!Din sUBKj rtrRpuise A: String血 I皿如 Isjuit Ai Integerhivate抽ha皿訓(xùn)訕ta將擁訴鴻籠iffi luuffiM1或血:0I 血t = 0strtec:希誡牖瞰幀JW輒mshickWff.Iocil

27、lirt5 25址SXIPJi痕1啊誠IUo MH幡熾鶴滬End $ub鼻靜護(hù)悴4護(hù)利崢,沖X冋M泊艸決也汕 *: *：?邑稅毗卅| . * rlL.T 諾時射 Elut3 肄 W昨.4帥刖!郵:酈第 kuwcg J 幗IfliPrtf rtSTO.Srit 0 曲:吠軸 ：4T!. lift嶺叫甲吧刊哮酣ZU?上叩啊rhllSgMC# z 11護(hù)R*哺P笫味護(hù)f?W昭 kr詁；h監(jiān),rddUiMiit * IM j M $imr bk L1L1曲ihSvJm Hdbr* 麻t- 叫護(hù)期Private Sub 3：i JMf P_Cc naiec ti-n eqe a t: ByVd requ

28、ests- As Long)lrtL助Adiltea $附$徘$附LltLog.Addlt 和瀾連撕秣，If sdSMTP.ame addojed thenjckSMTf.CloseEnd If畑耳t能錨尸瞞邃jck3KTPrcept isq-aejtIDhxLoj.Addlte建工建拓譚掘勵 翊嘈媲&痢也詢翰 嚼碼尸遜E淮丄測時姻冷耕 stRespoUt=*220 SimpieHftil aervcrRcadylH Kil sckSNTLSendta strAeipoue vbCrl： 他皿憔陵肺latLog.AddlteH F; * strF.ejponse End Sub凰II?加誡翔C

29、imii湎血腳事件違n.Pmk TMnPIT件內(nèi)曾右人討仙 戊豐框lEtMul.Tzt = WNmI. Trt 1 P4 tCrW * JTrfecSMTTScn-crE件前DMArrivaL事件過程示童6BPrivate Suh ackSKTPataArrivaHByVal bytcsTotal A? Long) 咱麗辭枷泅x應(yīng)連件恥皿訊說方潴搭牒蛛躺為 過是不淸驟鬼等待肝胭輙待號冊命 ESOSDim strTenp As String3Ck3MTP,G#tData StrTftiftpstrFlec = JtrRec str Temp咖臬歸奸接收DATA翅的時饒VbCrLf也襪腮醪伶乞，曲

30、答劉vbCrlf,vfcCrLfn才鱗束接枚DATAIf (IsDati = 1) And (RightS(strRec, 5) = vbCrLf *.* vbCrLf) Then 謂郵件端呂入txtM山文本柢txtikiliText = txtKailiTcxt & $* & vbCxlf & strK 喉収悶堿向客戶淞送以250為開頭的(獨通潞戶幣默酬令黠 stcHec =IsMi - 0strResponse = 250 NB9&ge accepted for deliverysckSKTP.SendData strResponsc & vbCrLfIstLofiAdditem & * i. strRespohseExit SubEnd IfIf (IsDatt = 0) And (Rights2) = rtCrliJ) Then LstLogAddlten C: r & left?(strKecx Len(strRec - 2)嚇西犧觥的縣蔻備令血詭CM為結(jié)勒觀遞哺跑。鈔的燒攜幡監(jiān)麗鴨戶戯期250開頭的勰趣噬齡令凝IE lettS(strHe 4) - BHBW KteftstrResyonse = *250 OS * 9ck3MTP*RejnoteHo3tIP調(diào)KAI!. FROM:軸豁業(yè)鑒接牧信為麗礴戶臥笈戕250開頭的信崽貉嚇求Els e