Έλεγχος πρόσβασης στο Internet μέσω κώδικα

[kon73]

Αγαπητή φίλη ChryssaV,

Σε ένα Module τις Access βάλε τον παρακάτω κώδικα

Option Compare Database
Option Explicit
Public Enum Flags
   'Local system uses a modem to connect to the Internet.
   INTERNET_CONNECTION_MODEM = &H1
   'Local system uses a proxy server to connect to the Internet.
   INTERNET_CONNECTION_PROXY = &H4
   'Local system has RAS installed.
   INTERNET_RAS_INSTALLED = &H10
   'No Internet
   INTERNET_CONNECTION_OFFLINE = &H20
   'Internet connection Configured
   INTERNET_CONNECTION_CONFIGURED = &H40
End Enum

Declare Function InternetGetConnectedState Lib "wininet.dll" (lpdwFlags As Long, ByVal dwReserved As Long) As Long
Public Function Online() As Boolean
Dim lngFlags As Long
If InternetGetConnectedState(lngFlags, 0) Then
        'Not Connected
    If lngFlags And Flags.INTERNET_CONNECTION_OFFLINE Then
        MsgBox ("Not connected, no Internet.")
    ElseIf lngFlags And Flags.INTERNET_CONNECTION_MODEM Then
        'Modem connection.
         MsgBox ("Modem connection.")
    ElseIf lngFlags And Flags.INTERNET_CONNECTION_PROXY Then
        'Proxy connection.
         MsgBox ("Internet Thru Proxy connection.")
    Else
        MsgBox ("Not connected, no Internet.")
    End If
Else
    'not connected.
     MsgBox ("Not connected no Internet.")
End If
End Function

Απλά καλούμε την συνάρτηση OnLine και μας εμφανίζει σχετικό μήνυμα.

Για περισσότερες πληροφορίες δες http://msdn.microsoft.com/en-us/libr...28(VS.85).aspx

Να αναφέρω ότι δοκιμάστηκε σε LAN και μάλιστα με Proxy και όταν δεν είχε Internet και όταν είχε. Εύχομαι να σου δουλέψει και φυσικά να σου φανεί χρήσιμο.

Φιλικά

kon73 / iliadisk