利用VB進行服務器編程實例匯 總

現在大多數語言都支持客戶-服務器模式編程，其中VB給我們提供了很好的客戶-服

務器編程方式。下面我們用 VB來實現TCP/IP網絡編程。

Socket進行網絡通信時，其中一個必須TCP/ IP協議是In ternet 最重要的協議。VB提供了 Win Sock控件,用于在TCP/ IP

Socket進行網絡通信時，其中一個必須

創建Socket服務器偵聽，而另一個必須創建Socket客戶去連接服務器。這樣兩個程序 就可以進行通信了

1 ?創建服務器，首先創建一個服務端口號。并開始偵聽是否有客戶請求連接。

建立一窗體，并向其增加一個 Win sock控件(可在工程菜單中的部件項來添加此控

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

件)

Private Sub Form_Load()

SockServer.LocalPort = 2000'服務器端口號，最好大于 1000

SockServer 丄iste n'開始偵聽

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'表示客戶請求連接的 ID號

End Sub

'當客戶向服務器發送數據到達后,產生DataArrival事件,在事件中接收數 據,GetData方法接收數據。

Private Sub SockServer_Data

Arrival(ByVal bytesTotal As Long)

Dim s As Stri ng

SockServer.GetData s

Text1.Text = s

End Sub

當我需要向客戶發送數據時，只需調用Se ndData方法。

Private Sub Comma nd1_Click()

SockServer .Se ndData Text2.Text

End Sub

2?創建客戶。要創建客戶連接服務器，首先設置服務器主機名，如IP地址、域名

或計算機名，然后設置服務器端口，最后連接服務器。

建立一窗體，并向其增加一個 Win sock控件(可在工程菜單中的部件項來添加此控

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

Private Sub Form_Load()

SockCl.RemoteHost = '

'表示服務器主機名

SockCl.RemotePort = 2000

'表示服務器端口名

SockCl.Co nnect

'連接到服務器

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 '接收數據到文本框中 Text1.Text = s

End Sub

Private Sub Comma nd1_Click()

SockCl.Se ndData Text2.Text'向服務器發送數據

End Sub

3.進行通信。把這兩個窗體分別編譯成兩個 EXE文件，服務器Server.exe和客戶 Clie nt.exe程序，并把它們分別安裝在服務器端和客戶端，這樣就可以實現兩者通信

了。

VB Socket編程(Winsock控件創建TCP/IP客戶機/服務器程序)

Win sock控件建立在TCP UDP協議的基礎上，完成與遠程計算機的通信。即使對 TCP/IP不太熟悉的用戶，使用該控件也可以在十幾分鐘內創建一個簡單的客戶機/服

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

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

屬性

LocalHostName |本地機器名

LocallP | 本地機器IP地址

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

RemoteHos

總結

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

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。