---

Her er et eksempel på, hvordan du kan checke, om du er på internettet over et modem, eller over lan net.

***********************************************

Option Explicit
Public Declare Function InternetGetConnectedState _
Lib "wininet.dll" (ByRef lpSFlags 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
'Hvis du er online, så retuneres true, ellers false
Online = InternetGetConnectedState(0& ,0&)
End Function

Public Function ViaLAN() As Boolean

Dim SFlags As Long
'Retunere status på forbindelsen.
Call InternetGetConnectedState(SFlags, 0&)

'Er forbindelsen lan forbindelse?
ViaLAN = SFlags And INTERNET_CONNECTION_LAN

End Function
Public Function ViaModem() As Boolean

Dim SFlags As Long
'Retunere status på forbindelsen.
Call InternetGetConnectedState(SFlags, 0&)

'Er forbindelsen modem forbindelse?
ViaModem = SFlags And INTERNET_CONNECTION_MODEM

End Function

---

---

---

---

Eftersom du ikke er logget ind i systemet, kan du ikke lave en bedømmelse til dette tip.

Hvis du ikke allerede er registreret, kan du gratis blive medlem, ved at trykke på "Bliv medlem" ude i menuen.