Tilslutning til Internettet

\'---------------------------------- Module1 ----------------------------------
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
    Online = InternetGetConnectedState(0&, 0&)
End Function

Public Function ViaLAN() As Boolean
Dim SFlags As Long
    Call InternetGetConnectedState(SFlags, 0&)
    ViaLAN = SFlags And INTERNET_CONNECTION_LAN
End Function

Public Function ViaModem() As Boolean
Dim SFlags As Long
    Call InternetGetConnectedState(SFlags, 0&)
    ViaModem = SFlags And INTERNET_CONNECTION_MODEM
End Function
\'---------------------------------- Module1 ----------------------------------



\'----------------------------------- Form1 -----------------------------------
Private Sub Timer1_Timer()
    If Online() = True Then Text1.Text = \"Online\"
    If Online() = False Then Text1.Text = \"Offline\"
    If ViaLAN() = True Then Text2.Text = \"LAN\"
    If ViaModem() = True Then Text2.Text = \"Modem\"
End Sub
\'----------------------------------- Form1 -----------------------------------

Som sagt: det skal være event-driven. Ikke noget med at poll\'e på en eller anden værdi.

Point nu forhøjet til 50.

Øv.