WSACLEANUP
Fermeture de Winsock.dll
Declare Function WSACleanUp Lib "wsock32" Alias "WSACleanup" () As Long
Paramètres :
retour : SOCKET_ERROR en cas d'erreur, 0 sinon.
Public Const SOCKET_ERROR = -1
Exemple :
Dim CR as long
Dim wsadata As WSA_DATA
CR = WSACleanUp
If CR <> 0 Then
MsgBox "Mauvaise version de Winsock.dll"
Exit Sub
End If
|
