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

[kon73]

Φίλε Tassos, ομολογουμένος η συνάρτηση InternetGetConnectedState δεν μπορεί να ελένξει αν υπάρχει όντως πρόσβαση στο Internet και επομένως ακολουθώντας την τακτική του ελέγχου URL προτείνω με την σειρά μου αυτόν τον σύντομο κώδικα που κάνει χρήση της συνάρτησης InternetCheckConnection.
Τον παρακάτω κώδικα τον έλενξα σε Lan με Proxy οπότε και θα ήθελα να δοκιμαστεί και με άλλους συνδυασμούς λειτουργικών συστημάτων και τρόπων συνδέσεων στο Inet οπότε και έτσι θα έχουμε μια πλήρη κάλυψη του όλου θέματος.

Private Const FLAG_ICC_FORCE_CONNECTION = &H1
Declare Function InternetCheckConnection Lib "wininet" Alias "InternetCheckConnectionA" _
 (ByVal lpszUrl As String, ByVal dwFlags As Long,  _
ByVal dwReserved As Long) As Long
Public Sub CheckInet()
    If InternetCheckConnection("http://www.google.com", FLAG_ICC_FORCE_CONNECTION, 0&) = 0 Then
        MsgBox "No Internet connection", vbOKOnly + vbInformation, "INFO"
    Else
        MsgBox "There is Internet connection", vbOKOnly + vbInformation, "INFO"
    End If
End Sub

Φιλικά

iliadisk / kon73