利用VB進(jìn)行服務(wù)器編程實(shí)例匯 總

現(xiàn)在大多數(shù)語(yǔ)言都支持客戶-服務(wù)器模式編程，其中VB給我們提供了很好的客戶-服

務(wù)器編程方式。下面我們用 VB來(lái)實(shí)現(xiàn)TCP/IP網(wǎng)絡(luò)編程。

Socket進(jìn)行網(wǎng)絡(luò)通信時(shí)，其中一個(gè)必須TCP/ IP協(xié)議是In ternet 最重要的協(xié)議。VB提供了 Win Sock控件,用于在TCP/ IP

Socket進(jìn)行網(wǎng)絡(luò)通信時(shí)，其中一個(gè)必須

創(chuàng)建Socket服務(wù)器偵聽(tīng)，而另一個(gè)必須創(chuàng)建Socket客戶去連接服務(wù)器。這樣兩個(gè)程序 就可以進(jìn)行通信了

1 ?創(chuàng)建服務(wù)器，首先創(chuàng)建一個(gè)服務(wù)端口號(hào)。并開(kāi)始偵聽(tīng)是否有客戶請(qǐng)求連接。

建立一窗體，并向其增加一個(gè) Win sock控件(可在工程菜單中的部件項(xiàng)來(lái)添加此控

件)，添加兩文本框Text1,Text2,和一按鈕

件)

Private Sub Form_Load()

SockServer.LocalPort = 2000'服務(wù)器端口號(hào)，最好大于 1000

SockServer 丄iste n'開(kāi)始偵聽(tīng)

End Sub

Private Sub Form_Unl oad(Ca ncel As In teger)

SockServer.Close

End Sub

Private Sub SockServer_Close()

SockServer.Close

End Sub

Private Sub SockServer_C onn ectio nRequest(ByVal requestID As Long) SockServer.Close

SockServer.Accept requestID'表示客戶請(qǐng)求連接的 ID號(hào)

End Sub

'當(dāng)客戶向服務(wù)器發(fā)送數(shù)據(jù)到達(dá)后,產(chǎn)生DataArrival事件,在事件中接收數(shù) 據(jù),GetData方法接收數(shù)據(jù)。

Private Sub SockServer_Data

Arrival(ByVal bytesTotal As Long)

Dim s As Stri ng

SockServer.GetData s

Text1.Text = s

End Sub

當(dāng)我需要向客戶發(fā)送數(shù)據(jù)時(shí)，只需調(diào)用Se ndData方法。

Private Sub Comma nd1_Click()

SockServer .Se ndData Text2.Text

End Sub

2?創(chuàng)建客戶。要?jiǎng)?chuàng)建客戶連接服務(wù)器，首先設(shè)置服務(wù)器主機(jī)名，如IP地址、域名

或計(jì)算機(jī)名，然后設(shè)置服務(wù)器端口，最后連接服務(wù)器。

建立一窗體，并向其增加一個(gè) Win sock控件(可在工程菜單中的部件項(xiàng)來(lái)添加此控

件)，取名為：SockCI。添加兩文本框 Text1,Text2,和一按鈕Command1

Private Sub Form_Load()

SockCl.RemoteHost = '

'表示服務(wù)器主機(jī)名

SockCl.RemotePort = 2000

'表示服務(wù)器端口名

SockCl.Co nnect

'連接到服務(wù)器

EndSub

End

Private Sub Form_Unl oad(Ca ncel As In teger) SockCl.Close

End Sub

Private Sub SockCl_Close() SockCl.Close

End Sub

Private Sub SockCI_DataArrival(ByVal bytesTotal As Long) Dim s As Stri ng

SockCl.GetData s '接收數(shù)據(jù)到文本框中 Text1.Text = s

End Sub

Private Sub Comma nd1_Click()

SockCl.Se ndData Text2.Text'向服務(wù)器發(fā)送數(shù)據(jù)

End Sub

3.進(jìn)行通信。把這兩個(gè)窗體分別編譯成兩個(gè) EXE文件，服務(wù)器Server.exe和客戶 Clie nt.exe程序，并把它們分別安裝在服務(wù)器端和客戶端，這樣就可以實(shí)現(xiàn)兩者通信

了。

VB Socket編程(Winsock控件創(chuàng)建TCP/IP客戶機(jī)/服務(wù)器程序)

Win sock控件建立在TCP UDP協(xié)議的基礎(chǔ)上，完成與遠(yuǎn)程計(jì)算機(jī)的通信。即使對(duì) TCP/IP不太熟悉的用戶，使用該控件也可以在十幾分鐘內(nèi)創(chuàng)建一個(gè)簡(jiǎn)單的客戶機(jī)/服

務(wù)器程序。下面我們對(duì) Win sock控件的事件、方法、屬性按其在程序中出現(xiàn)的順序分別 作詳細(xì)的介紹，以便更好地理解程序源代碼。

下面是Win sock控件的相關(guān)屬性，方法和事件。(略去一些暫用不到的)

屬性

LocalHostName |本地機(jī)器名

LocallP | 本地機(jī)器IP地址

LocalPort |本地機(jī)器通信程序的端口 (0

RemoteHos

總結(jié)

以上是生活随笔為你收集整理的vb文件服务器例程,利用VB进行服务器编程实例汇总.docx的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。