meta data for this page
  •  

Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen gezeigt.

Link zu der Vergleichsansicht

internetverbindung [2015/08/10 13:41] (aktuell)
Zeile 1: Zeile 1:
 +====== Internetverbindung ======
 +\\  Wenn eine Internetverbindung benötigt wird wie z.B. bei Nutzung der **[[/​FTP-Funktionen|FTP-Funktionen]]** oder **[[/​Updatefunktion|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.