計算機系統(tǒng)設計課程設計--利用vb6 winsock空間創(chuàng)建tcp—ip客戶機—服務器程序

上傳人：奔*** IP屬地：河北更新時間：2024-03-01 格式：doc 頁數(shù)：7 大小：638.00KB 人氣指數(shù)：12 舉報 版權(quán)申訴

計算機系統(tǒng)設計課程設計--利用vb6 winsock空間創(chuàng)建tcp—ip客戶機—服務器程序_第1頁

已閱讀1頁，還剩6頁未讀，繼續(xù)免費閱讀

版權(quán)說明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請進行舉報或認領

文檔簡介

1、　　計算機系統(tǒng)設計　　利用VB6 Winsock空間創(chuàng)建TCP—IP客戶機—服務器程序　　功能描述：利用Winsock編寫基于TCP/IP的客戶機----服務器程序，實現(xiàn)網(wǎng)絡的通信。　　服務器程序?qū)崿F(xiàn)的過程：　　服務

2、器程序必須設置好LOCAPORT屬性，作為偵聽端口，該值為一個整數(shù)。　　使用LISTEN方法進入偵聽狀態(tài)，等待客戶機程序的連接請求。　　客戶機程序發(fā)出連接請求，使服務器程序產(chǎn)生CONNECTIONREQUEST事件，該事件得到一個參數(shù)REQUESTID。　　服務器程序用ACCEPT方法接受客戶機程序的REQUES

3、TID請求。這樣服務器程序就可以用SENDDATA方法發(fā)送數(shù)據(jù)了。ACCEPT方法必須用上一步得到的REQUESTID作為其參數(shù)。　　當服務器程序接收到數(shù)據(jù)時，產(chǎn)生DATAARRIVAL事件，參數(shù)BYTESTOTAL包含接收到是數(shù)據(jù)字節(jié)數(shù)。在該事件中，可以用GETDATA事件方法接收數(shù)據(jù)。　　如果接收到CLOSE事件，則用CLOSE方法關(guān)閉TCP/IP連

4、接。　　客戶機程序的實現(xiàn)過程：　　客戶機程序設置REMOTEHOST屬性，以便指定運行服務器程序的主機名，該字符串可在“控制面版|網(wǎng)絡|標識|計算機名”中查到。　　設置REMOTEPORT屬性，以便指定服務器程序的偵聽端口。　　使用CONNECT方法，向服務器提出連接請求

5、。　　服務器接受客戶機程序的請求，客戶機程序產(chǎn)生CONNECT事件，就可以用SENDDATA方法發(fā)送數(shù)據(jù)了。　　當客戶機程序接收到數(shù)據(jù)時，產(chǎn)生DATAARRIVAL事件，參數(shù)BYTESTOAL包含接收到的數(shù)據(jù)字節(jié)數(shù)。在該事件中，可以用GETDATA方法接收數(shù)據(jù)。　　如果接收到CLOSE事件，則用CLOSE方法關(guān)閉

6、連接。　　服務端程序及圖解：　　SERVER端界面圖：　　* Command2---聊天記錄 Command3---發(fā)送 Command4---退出　　程序：&

7、lt;p>　　Public IsLong As Boolean　　--------------------------------------------------------------　　Private Sub Command2_Click()　　If IsLong = False Then</

8、p>　　Form1.Height = 6990　　IsLong = True　　Else　　Form1.Height = 2900　　IsLong = False&

9、lt;b>　　End If　　End Sub　　---------------------------------------------------------------　　Private Sub Command3_Click()</p&g

10、t;　　Dim sendtext As String　　sendtext = Text2.Text　　Winsocks.SendData sendtext　　Dim str As String　　str = (Now) & " &q

11、uot; & Winsocks.LocalHostName & ":" & (vbNewLine)　　Text3.Text = Text3.Text + str + sendtext + (vbNewLine)　　End Sub

12、---------------------------------------------------------------　　Private Sub Command4_Click()　　If MsgBox("您真的要退出嗎??？", vbYesNo, "警告！") = vbYes Then

13、　　End　　End If　　End Sub　　---------------------------------------------------------------<

14、/p>　　Private Sub Form_Load()　　Winsocks.LocalPort = 1000　　Winsocks.Listen　　Text2.Visible = False　　Text3.Visible = False<

15、/p>　　Form1.Height = 3000　　End Sub　　---------------------------------------------------------------　　Private Sub Text2_Change

16、()　　End Sub　　---------------------------------------------------------------　　Private Sub Text3_Change()　　En

17、d Sub　　---------------------------------------------------------------　　Private Sub Winsocks_ConnectionRequest(ByVal requestID As Long)　　If Winsock

18、s.State <> sckClosed Then Winsocks.Close　　Winsocks.Accept (requestID)　　Text2.Visible = True　　Text3.Visible = True　　End Su

19、b　　---------------------------------------------------------------　　Private Sub Winsocks_DataArrival(ByVal bytesTotal As Long)　　Dim gettext As Stri

20、ng　　Winsocks.GetData gettext　　Dim str As String　　str = (Now) & " " & Winsocks.RemoteHost & ":" & (vbNewLine)&

21、lt;p>　　Text3.Text = Text3.Text + str + gettext + (vbNewLine)　　End Sub　　退出程序端界面圖：　　* Command1---連接 Command2---聊天記錄

22、 Command3---發(fā)送 Command4---退出　　程序：　　Public IsLong As Boolean　　---------------------------------------------------------<p

23、>　　Private Sub Command1_Click()　　WinsockC.Connect　　End Sub　　---------------------------------------------------------<p&

24、gt;　　Private Sub Command2_Click()　　If IsLong = False Then　　Form1.Height = 7590　　IsLong = True　　Else<p&

25、gt;　　Form1.Height = 3550　　IsLong = False　　End If　　End Sub　　---------------------------------------

26、------------------　　Private Sub Command3_Click()　　Dim sendtext As String　　sendtext = Text2.Text　　WinsockC.SendData sendtext&

27、lt;p>　　Dim str As String　　str = (Now) & " " & WinsockC.LocalHostName & ":" & (vbNewLine)　　Text3.Text = Text3.Text + str + sendtext + (vbNew

28、Line)　　End Sub　　---------------------------------------------------------　　Private Sub Command4_Click()　　If MsgBox(&q

29、uot;您真的要退出嗎??？", vbYesNo, "警告！") = vbYes Then　　End　　End If　　End Sub<p&g

30、t;　　---------------------------------------------------------　　Private Sub Form_Load()　　WinsockC.RemotePort = 1000　　Text3.Visible = False

31、;　　Text2.Visible = False　　IsLong = False　　Form1.Height = 3550　　End Sub　　---------------------------------------------

32、------------　　Private Sub Text1_Change()　　WinsockC.RemoteHost = Text1.Text　　End Sub　　--------------------------------

33、-------------------------　　Private Sub WinsockC_Connect()　　MsgBox ("和服務器已經(jīng)連接成功！")　　Text3.Visible = True　　Text2.Visible = True&

34、lt;/p>　　End Sub　　---------------------------------------------------------　　Private Sub WinsockC_DataArrival(ByVal bytesTotal As Long)

35、　　Dim gettext As String　　WinsockC.GetData gettext　　Dim str As String　　str = (Now) & " " & WinsockC.RemoteHost & ":"

36、 & (vbNewLine)　　Text3.Text = Text3.Text + str + gettext + (vbNewLine)　　End Sub　　------------------------------------------------------

37、---　　Private Sub WinsockC_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Bool

38、ean)　　MsgBox ("服務器沒有響應！被迫退出程序")　　End　　End Sub　　連接服務器：<

眾賞文庫> 全部分類> 畢業(yè)設計

溫馨提示

1. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁內(nèi)容里面會有圖紙預覽，若沒有圖紙預覽就沒有圖紙。
4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
5. 眾賞文庫僅提供信息存儲空間，僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護處理，對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對任何下載內(nèi)容負責。
6. 下載文件中如有侵權(quán)或不適當內(nèi)容，請與我們聯(lián)系，我們立即糾正。
7. 本站不保證下載資源的準確性、安全性和完整性, 同時也不承擔用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

計算機系統(tǒng)設計課程設計--利用vb6 winsock空間創(chuàng)建tcp—ip客戶機—服務器程序

文檔簡介

溫馨提示

最新文檔

評論

計算機系統(tǒng)設計課程設計--利用vb6 winsock空間創(chuàng)建tcp—ip客戶機—服務器程序

文檔簡介

溫馨提示

最新文檔

評論

免費下載