winsock編程實例

⑴ 在windows下用C語言如何實現socket網路編程，需要用到哪些頭文件或者庫

需要用到的頭文件包含：

#include <winsock2.h>

#include <windows.h>

與Linux環境下socket編程相比，windows環境多了一個步驟：啟動或者初始化winsock庫

Winsock，一種標准API，一種網路編程介面，用於兩個或多個應用程序（或進程）之間通過網路進行數據通信。具有兩個版本：

Winsock 1:

Windows CE平台支持。

頭文件：WinSock.h

庫：wsock32.lib

Winsock 2:

部分平台如Windows CE貌似不支持。通過前綴WSA可以區別於Winsock 1版本。個別函數如WSAStartup、WSACleanup、WSARecvEx、WSAGetLastError都屬於Winsock 1.1規范的函數；

頭文件：WinSock2.h

庫：ws2_32.lib

mswsock.h用於編程擴展，使用時必須鏈接mswsock.dll

(1)winsock編程實例擴展閱讀

winsock庫的載入與卸載：

載入：int WSAStartup(WORD wVersionRequested, LPWSADATA lpWSAData);

載入成功，返回值為0。

WORD wVersionRequested：載入的winsock版本，使用宏MAKEWORD(x, y)，x表示高位元組,y表示低位元組。然而使用時MAKEWORD(2, 2)。高位元組與低位元組相同~~

LPWSADATA lpWSAData：WSADATA結構的指針，傳入參數後，系統幫助我們填充版本信息。有興趣的可以看看結構體內容，不過基本用不著。

卸載：int WSACleanup(void);比起載入，卸載的函數真是輕松愉快。

⑵ vb中基於TCP的網路編程中的WINSOCK控制項如何使用

用VB實現客戶——伺服器（TCP/IP）編程實例

-
現在大多數語言都支持客戶－伺服器模式編程，其中VB給我們提供了很好的客戶－伺服器編程方式。下面我們用VB來實現TCP／IP網路編程。
TCP／IP協議是Internet最重要的協議。VB提供了WinSock控制項,用於在TCP／IP的基礎上進行網路通信。當兩個應用程序使用Socket進行網路通信時，其中一個必須創建Socket伺服器偵聽，而另一個必須創建Socket客戶去連接伺服器。這樣兩個程序就可以進行通信了。
1．創建伺服器，首先創建一個服務埠號。並開始偵聽是否有客戶請求連接。
建立一窗體，並向其增加一個Winsock控制項(可在工程菜單中的部件項來添加此控制項)
添加兩文本框Text1,Text2,和一按鈕Command1
Private Sub Form_Load()
SockServer.LocalPort = 2000 ′伺服器埠號,最好大於1000
SockServer.Listen ′開始偵聽
End Sub
Private Sub Form_Unload(Cancel As Integer)
SockServer.Close
End Sub
Private Sub SockServer_Close()
SockServer.Close
End Sub
Private Sub SockServer_ConnectionRequest(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 String
SockServer.GetData s
Text1.Text = s
End Sub
當我需要向客戶發送數據時，只需調用SendData方法。
Private Sub Command1_Click()
SockServer .SendData Text2.Text
text1.text = text2.text
text2.text = ""
End Sub
2．創建客戶。要創建客戶連接伺服器，首先設置伺服器主機名，如IP地址、域名或計算機名，然後設置伺服器埠，最後連接伺服器。
建立一窗體，並向其增加一個Winsock控制項(可在工程菜單中的部件項來添加此控制項)，取名為：SockC1。添加兩文本框Text1,Text2,和一按鈕Command1
Private Sub Form_Load()
dim my as string
my = SockCl.RemoteHostIP
SockCl.RemoteHost = my
′表示伺服器主機名
SockCl.RemotePort = 2000
′表示伺服器埠名
SockCl.Connect
′連接到伺服器
End Sub
Private Sub Form_Unload(Cancel As Integer)
SockCl.Close
End Sub
Private Sub SockCl_Close()
SockCl.Close
End Sub
Private Sub SockCl_DataArrival(ByVal bytesTotal As Long)
Dim s As String
SockCl.GetData s ′接收數據到文本框中
Text1.Text = s
End Sub
Private Sub Command1_Click()
SockCl.SendData Text2.Text ′向伺服器發送數據
text1.text = text2.text
text2.text = ""
End Sub
3．進行通信。把這兩個窗體分別編譯成兩個EXE文件，伺服器Server.exe和客戶Client.exe程序，並把它們分別安裝在伺服器端和客戶端，這樣就可以實現兩者通信了。

Private Sub Form_Load()
Dim my As String
my = SockCl.RemoteHostIP
SockCl.RemoteHost = my
SockCl.RemotePort = 2000
SockCl.Connect
End Sub
Private Sub Form_Unload(Cancel As Integer)
SockCl.Close
End Sub
Private Sub SockCl_Close()
SockCl.Close
End Sub
Private Sub SockCl_DataArrival(ByVal bytesTotal As Long)
Dim s As String
SockCl.GetData s
Text1.Text = s
End Sub
Private Sub Command1_Click()
SockCl.SendData Text2.Text
Text1.Text = Text2.Text
Text2.Text = ""
End Sub

Private Sub Form_Load()
SockServer.LocalPort = 2000
SockServer.Listen
End Sub
Private Sub Form_Unload(Cancel As Integer)
SockServer.Close
End Sub
Private Sub SockServer_Close()
SockServer.Close
End Sub
Private Sub SockServer_ConnectionRequest(ByVal requestID As Long)
SockServer.Close
SockServer.Accept requestID
End Sub
Private Sub Command1_Click()
SockServer.SendData Text2.Text
Text1.Text = Text2.Text
Text2.Text = ""
End Sub
Private Sub SockServer_DataArrival(ByVal bytesTotal As Long)
Dim s As String
SockServer.GetData s
Text1.Text = s
End Sub