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
 
------------------------------------------------------------------------------
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.