vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 vb@rchiv Offline-Reader - exklusiv auf der vb@rchiv CD Vol.4  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Allgemeine Diskussionen
Re: PROBLEME UNTER NT 
Autor: anaconda1985
Datum: 02.07.04 10:30
Sub SocketsInitialize()
Dim WSAD As WSADATA
Dim iReturn As Integer
Dim sLowByte As String, sHighByte As String, sMsg As String

iReturn = WSAStartup(WS_VERSION_REQD, WSAD)

If iReturn <> 0 Then
MsgBox "Winsock.dll is not responding."
End
End If

If lobyte(WSAD.wversion) < WS_VERSION_MAJOR Or (lobyte(WSAD.wversion) = _
WS_VERSION_MAJOR And hibyte(WSAD.wversion) < WS_VERSION_MINOR) Then

sHighByte = Trim$(str$(hibyte(WSAD.wversion)))
sLowByte = Trim$(str$(lobyte(WSAD.wversion)))
sMsg = "Windows Sockets version " & sLowByte & "." & sHighByte
sMsg = sMsg & " is not supported by winsock.dll "
MsgBox sMsg
End
End If

If WSAD.iMaxSockets < MIN_SOCKETS_REQD Then
sMsg = "This application requires a minimum of "
sMsg = sMsg & Trim$(str$(MIN_SOCKETS_REQD)) & " supported sockets."
MsgBox sMsg
End
End If

End Sub

Sub SocketsCleanup()
Dim lReturn As Long

lReturn = WSACleanup()

If lReturn <> 0 Then
MsgBox "Socket error " & Trim$(str$(lReturn)) & " occurred in Cleanup "
End
End If

End Sub
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
PROBLEME UNTER NT1.064anaconda198501.07.04 14:10
Re: PROBLEME UNTER NT912ModeratorDieter01.07.04 15:11
Re: PROBLEME UNTER NT829anaconda198502.07.04 09:01
Re: PROBLEME UNTER NT777ModeratorDieter02.07.04 09:27
Re: PROBLEME UNTER NT786anaconda198502.07.04 09:49
Re: PROBLEME UNTER NT763ModeratorDieter02.07.04 09:56
Re: PROBLEME UNTER NT996anaconda198502.07.04 10:19
Re: PROBLEME UNTER NT770Elwood02.07.04 10:26
Re: PROBLEME UNTER NT941anaconda198502.07.04 10:29
Re: PROBLEME UNTER NT764Joerg02.07.04 11:17
Re: PROBLEME UNTER NT884anaconda198502.07.04 11:29
Re: PROBLEME UNTER NT840Joerg02.07.04 13:37
Re: PROBLEME UNTER NT877Elwood02.07.04 15:41
Re: PROBLEME UNTER NT774anaconda198502.07.04 10:30
Re: PROBLEME UNTER NT902anaconda198502.07.04 10:30
Re: PROBLEME UNTER NT866anaconda198502.07.04 10:30
Re: PROBLEME UNTER NT763anaconda198502.07.04 10:31
Re: PROBLEME UNTER NT840anaconda198502.07.04 10:31
Re: PROBLEME UNTER NT760anaconda198502.07.04 10:32

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel