WinSockAPI

wVersion wVersion wVersion

WinSockAPI的使用
1.WSAStartup 函式
為了在你的應用程式當中調用任何一個WinSock API 函式，首先第一件事情你就是必須通過WSAStartup函式完成對Winsock 服務的初始化，因此需要調用WSAStartup函式。
Declare Function WSAStartup Lib "ws2_32.dll" _
(ByVal wVersionRequired As Long, lpWSADATA As WSAData) As Long
這個函式有兩個參數： wVersionRequired 和 lpWSAData。wVersionRequired 參數定義Windows Sockets 提供能使用的最高版本，它的高位位元組定義的是次版本號，低位位元組定義的是主版本號。下面的2個Winsock版本在VB中使用的例子：
初始化1.1版本
lngRetVal = WSAStartup(&H101, udtWinsockData)
初始化2.2版本
lngRetVal = WSAStartup(&H202, udtWinsockData)
第二個參數是WSADATA 的數據結構 ，它是接收Windows Sockets 執行時的數據。
Type WSAData
wVersion As Integer
wHighVersion As Integer
szDescription As String * WSADESCRIPTION_LEN
szSystemStatus As String * WSASYS_STATUS_LEN
iMaxSockets As Integer
iMaxUdpDg As Integer
lpVendorInfo As Long
End Type
數據成員的描述在下表中：
Field 描述
wVersion Windows Sockets 版本信息。
wHighVersion 通過載入庫檔案得到的最高的支持Winsock 的版本，
它通常和wVersion值相同。
szDescription Windows Sockets 執行時的詳細描述
szSystemStatus 包含了相關的狀態和配置的信息
iMaxSockets 表示同時打開的socket最大數，為0表示沒有限制。
iMaxUdpDg 表示同時打開的數據報最大數，為0表示沒有限制。
lpVendorInfo 廠商指定信息預留
在Winsock的1.1和2.2版本中沒有lpVendorInfo的返回值。因為winsock 2支持多個傳輸協定，所以iMaxSockets 和iMaxUdpDg只能在僅支持TCP/TP的winsock1.1中使用。為了在Winsock 2中獲得這些值，你可以使用WSAEnumProtocols 函式。
如果成功或者返回一個錯誤代碼，則函式返回 0。
錯誤代碼 含義
WSASYSNOTREADY 指出網路沒有為傳輸準備好。
WSAVERNOTSUPPORTED 當前的WinSock實現不支持應用程式指定的Windows Sockets規範版本
WSAEINPROGRESS 一個阻塞WinSock調用正在進行
WSAEPROCLIM 請求的協定沒有在系統中配置或沒有支持它的實現存在。
WSAEFAULT lpWSAData 不是有效的指針
2.WSACleanup 函式
每次調用了WSAStartup函式，你都需要調用WSACleanup函式，通知系統來卸載庫檔案及清除已分配的資源，這個函式十分簡單，沒有任何參數：
Declare Function WSACleanup Lib "ws2_32.dll" () As Long
3.建立socket函式
Declare Function socket Lib "ws2_32.dll" (ByVal af As Long, _
ByVal s_type As Long,
ByVal Protocol As Long) As Long
函式有3個參數定義建立何種socket，三個參數分別是：
Argument Description Enum Type
af Address family specification. AddressFamily
s_type Type specification for the new socket. SocketType
Protocol Protocol to be used with the socket SocketProtocol
that is specific to the indicated address
family.
AddressFamily:
AF_UNSPEC = 0 '/* unspecified */
AF_UNIX = 1 '/* local to host (pipes, portals) */
AF_INET = 2 '/* internetwork: UDP, TCP, etc. */
AF_IMPLINK = 3 '/* arpanet imp addresses */
AF_PUP = 4 '/* pup protocols: e.g. BSP */
AF_CHAOS = 5 '/* mit CHAOS protocols */
AF_NS = 6 '/* XEROX NS protocols */
AF_IPX = AF_NS '/* IPX protocols: IPX, SPX, etc. */
AF_ISO = 7 '/* ISO protocols */
AF_OSI = AF_ISO '/* OSI is ISO */
AF_ECMA = 8 '/* european computer manufacturers */
AF_DATAKIT = 9 '/* datakit protocols */
AF_CCITT = 10 '/* CCITT protocols, X.25 etc */
AF_SNA = 11 '/* IBM SNA */
AF_DECnet = 12 '/* DECnet */
AF_DLI = 13 '/* Direct data link interface */
AF_LAT = 14 '/* LAT */
AF_HYLINK = 15 '/* NSC Hyperchannel */
AF_APPLETALK = 16 '/* AppleTalk */
AF_NETBIOS = 17 '/* NetBios-style addresses */
AF_VOICEVIEW = 18 '/* VoiceView */
AF_FIREFOX = 19 '/* Protocols from Firefox */
AF_UNKNOWN1 = 20 '/* Somebody is using this! */
AF_BAN = 21 '/* Banyan */
AF_ATM = 22 '/* Native ATM Services */
AF_INET6 = 23 '/* Internetwork Version 6 */
AF_CLUSTER = 24 '/* Microsoft Wolfpack */
AF_12844 = 25 '/* IEEE 1284.4 WG AF */
AF_MAX = 26
Socket types:
SOCK_STREAM = 1 ' /* stream socket */
SOCK_DGRAM = 2 ' /* datagram socket */
sock_raw = 3 ' /* raw-protocol interface */
SOCK_RDM = 4 ' /* reliably-delivered message */
SOCK_SEQPACKET = 5 ' /* sequenced packet stream */
Protocols:
IPPROTO_IP = 0 '/* dummy for IP */
IPPROTO_ICMP = 1 '/* control message protocol */
IPPROTO_IGMP = 2 '/* internet group management protocol */
IPPROTO_GGP = 3 '/* gateway^2 (deprecated) */
IPPROTO_TCP = 6 '/* tcp */
IPPROTO_PUP = 12 '/* pup */
IPPROTO_UDP = 17 '/* user datagram protocol */
IPPROTO_IDP = 22 '/* xns idp */
IPPROTO_ND = 77 '/* UNOFFICIAL net disk proto */
IPPROTO_RAW = 255 '/* raw IP packet */
IPPROTO_MAX = 256
該函式可以建立使用特定協定的網路套接字，例如對於UDP協定可以這樣寫：
s=socket(AF_INET, SOCK_DGRAM, IPPROTO_UDP)
s=socket(AF_INET, SOCK_STREAM, IPPROTO_TCP)
4.關閉Socket函式
Declare Function closesocket Lib "ws2_32.dll" (ByVal s As Long) As Long
函式有一個參數為建立socket時的Handle
5.連線函式
Declare Function connect Lib "ws2_32.dll" (ByVal s As Long, _
ByRef name As SOCKADDR_IN, _
ByVal namelen As Long) As Long
參數
s 連線的socket句柄。
name 建立連線的地址。
namelen 連線地址的長度。
返回值
成功時返回0。否則返回SOCKET_ERROR以及一個對應的錯誤號 Err.LastDllError。
顯然在調用這個函式時我們需要知道socket句柄，將連線的電腦的連線埠號和主機名稱（或主機IP位址）。我們知道Winsock 控制項的Connect方法依靠兩個變數：RemoteHost 和RemotePort。此方法不需要socket句柄，因其已經被封裝在COM對象中。你也許認為connect函式應該也接受相同的變數設定，然而，事實並非如此。connect函式的主機地址和連線埠號的傳送是依靠 sockaddr_in 結構。
Public Type sockaddr_in
sin_family As Integer
sin_port As Integer
sin_addr As Long
sin_zero(1 To 8) As Byte
End Type
6.套接字幫定函式
Declare Function bind Lib "ws2_32.dll" (ByVal s As Long, _
ByRef name As sockaddr_in, _
ByRef namelen As Long) As Long
s是使用Socket函式創建好的套接字，name指向描述通信對象的結構體的指針，namelen是該結構的長度。該結
構體中的分量包括：
IP位址：對應name.sin_addr.s_addr
連線埠號：對應name.sin_port
連線埠號用於表示同一台計算機上不同的進程（即應用程式），其分配方法有兩種：
第一種分配方法是，進程讓系統為套接字自動分配一連線埠號，這隻要在調用bind前將連線埠號指定為0即可。由系統自動分配的連線埠號位於1024~5000之間，而1~1023之間的任一TCP或UDP連線埠都是保留的，系統不允許任一進程使用保留連線埠，除非其有效用戶ID是零（即超級用戶）。
第二種分配方法是，進程為套接字指定一特定連線埠。這對於需要給套接字分配一眾所周知的連線埠的伺服器是很有用的。指定範圍在1024~65536之間。
地址類型：對應name.sin_family，一般都賦成AF_INET，表示是internet地址（即IP 地址）。IP位址通常使用點分表示法表示，但它事實上一個32位的長整數，這兩者之間可通過inet_addr()函式轉換。
7.套接字監聽函式
Declare Function listen Lib "ws2_32.dll" (ByVal s As Long, ByVal backlog As Long) As Long
listen函式用來設定Socket為監聽狀態，這種狀態表明Socket準備被連線了。注意，此函式一般在服務程式上使用，其中s是使用Socket函式創建好的套接字，backlog參數用於設定等待連線的客戶端數。
8.接受連線請求
Declare Function accept Lib "ws2_32.dll" (ByVal s As Long, ByRef addr As sockaddr_in, _
ByRef addrlen As Long) As Long
服務端應用程式調用此函式來接受客戶端Socket連線請求，accept()函式的返回值為一新的Socket，新Socket就可用來完成服務端和客戶端之間的信息傳遞與接收，而原來Socket仍可以接受其他可戶端的連線請求。
9.接收信息
Declare Function recv Lib "ws2_32.dll" (ByVal s As Long, _
ByRef buf As Any, _
ByVal buflen As Long, _
ByVal flags As Long) As Long
s 一個已連線的socket的識別符
buf 接受到的數據的緩衝區
len 緩衝區長度
flags 指定從哪調用的標識
第一個參數是socket的句柄-為socket函式返回值。那就是說：我們需要告訴recv函式，哪一個socket正訪問函式。
第二個參數是:函式執行之後能裝載一些數據的緩衝區。但它不是必須要有足夠的長度接收Winsock緩衝區的所有數據，緩衝區的大小限制為8192 位元組 (8 Kbytes)。因此如果Winsock緩衝區的數據的大小大於recv函式的緩衝區，你必需多次調用此函式，直到獲取所有的數據。
如果應用程式定義緩衝區的長度，則recv函式必須知道緩衝區可以存放多少位元組。第三個參數就是為了這個目的。
最後一個參數是可選的，今天我們不使用。該參數有兩個選擇標誌: MSG_PEEK 和 MSG_OOB，用於改變函式的行為。
MSG_PEEK 從輸入數據中取數。數據拷入緩衝區，但不從輸入佇列中移走。函式返回當前準備接收的位元組數。
MSG_OOB 處理OOB（Out-of-band帶外）數據。在網路上有兩種類型的數據包，正常包和帶外包。帶外包可以通過檢驗一個TCP/IP包頭的一個特定標誌來決定。
10.傳送信息
Declare Function send Lib "ws2_32.dll" (ByVal s As Long, _
ByRef buf As Any, _
ByVal buflen As Long, _
ByVal flags As Long) As Long
參數參看接收信息
四，伺服器與客戶機互動
目前最常用的方法是：服務程式在一個眾所周知的地址（其中包括連線埠信息）監聽對服務的請求，也就是說，服務進程一直處於休眠狀態，直到一個客戶對這個服務的地址提出了連線請求。這個時刻，服務程式被喚醒並對客戶的請求作出適當的反應。注意，伺服器與客戶機之間的互動可以是面向連線的（基於流套接字），也可以是無連線的（基於數據報套接字）。
伺服器
socket()
|
bind()
|
listen() 客戶機
|
| socket()
| 建立連線 |
accept() <------------------------- connect()
| 請求數據 |
recv() <----------------------------- send()
| |
處理服務請求 |
| 應答數據 |
send() ------------------------------> recv()
| |
close() close()