Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Prüfe: Online oder nicht?
Autor: smither
Datum: 20.04.04 17:14
Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Long Public Const INTERNET_CONNECTION_LAN As Long = &H2 Public Const INTERNET_CONNECTION_MODEM As Long = &H1 Public Function Online() As Boolean 'If you are online it will return True, otherwise False Online = InternetGetConnectedState(0&, 0&) end function Public Function ViaLAN() As Boolean Dim SFlags As Long 'return the flags associated with the connection Call InternetGetConnectedState(SFlags, 0&) 'True if the Sflags has a LAN connection ViaLAN = SFlags And INTERNET_CONNECTION_LAN End Function Public Function ViaModem() As Boolean Dim SFlags As Long 'return the flags associated with the connection Call InternetGetConnectedState(SFlags, 0&) 'True if the Sflags has a modem connection ViaModem = SFlags And INTERNET_CONNECTION_MODEM End Function

Prüfe: Online oder nicht?	563	keiner	19.04.04 15:11
Re: Prüfe: Online oder nicht?	423	smither	20.04.04 17:14
Re: Prüfe: Online oder nicht?	319	keiner	21.04.04 15:31
Re: Prüfe: Online oder nicht?	337	keiner	22.04.04 17:47
Re: Prüfe: Online oder nicht?	339	smither	22.04.04 17:53

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übersicht

Suchen