Internetverbindung

Wenn eine Internetverbindung benötigt wird wie z.B. bei Nutzung der FTP-Funktionen oder Updatefunktion, ist es sinnvoll vorher zu testen, ob überhaupt eine Internetverbindung besteht. Das ist mit der Funktion InternetConnection auf einfache Weise möglich

if InternetConnection then
   msgbox "Sie sind mit dem Internet verbunden!,vbInformation,"Hinweis"
end if

1. —————————————————————————–

Function InternetConnection

Dim obj
Set obj = GetObject("winmgmts:Win32_PingStatus.address='" & "google.de" & "'")

if IsNull(obj.StatusCode) or obj.StatusCode <> 0 Then
   msgbox "Keine Internetverbindung!",vbInformation,"Hinweis"
   InternetConnection = false
else
   InternetConnection = true
end if

End Function
------------------------------------------------------------------------------
 

Als Testadresse wird "google.de" benutzt. Sie kann durch eine beliebige andere Adresse ersetzt werden.