Verbindung übers Internet herstellen und HomePage afrufen?

[mhribernik]

Hallo!

Ich arbeite gerade an einem kleinem Updateprogramm für mein Projekt, doch leider habe ich keinen Plan wie das zu realisieren ist.

Nun meine Fragen:

1) Wie kann ich überprüfen ob eine Internetverbindung besteht?

2) Falls keine verbindung besteht, wie kann ich eine Verbindung zum Internet herstellen?


Ich danke für jede Antwort.

 

[mhribernik]

Noch was...

Ach ja, ich programmiere in VB.NET sein.

 

[mhribernik]

Danke euch, die sich die Mühe gemacht haben es zu lesen, doch mittlerweile, hab ich den Aufruf doch geschafft!

edit: Und für all die, die es wissen wollen:

' ------------------------------------------------------------ 
'                             Deklarationen 
' ------------------------------------------------------------ 
Private Const INTERNET_AUTODIAL_FORCE_ONLINE = 1 
Private Const INTERNET_AUTODIAL_FORCE_UNATTENDED = 2 
Private Const INTERNET_AUTODIAL_FAILIFSECURITYCHECK = 4 
Private Declare Function InternetAutodial Lib "wininet.dll" _ 
        (ByVal dwFlags As Long, _ 
          ByVal dwReserved As Long) As Long 
Private Declare Function InternetAutodialHangup Lib "wininet.dll" _ 
         (ByVal dwReserved As Long) As Long 
Die Aufrufe können dann innerhalb der Anwendung erfolgen, etwa in der Form 
' ------------------------------------------------------------ 
' Aufruf mit Öffnen des DFÜ-Wähldialogs  
' ------------------------------------------------------------ 
    If InternetAutodial(INTERNET_AUTODIAL_FORCE_ONLINE, 0) Then 
       MsgBox "Verbunden", vbInformation 
    End If 
' ------------------------------------------------------------ 
' Direkte Wahl ohne Dialog  
' ------------------------------------------------------------ 
    If InternetAutodial(INTERNET_AUTODIAL_FORCE_UNATTENDED, 0) Then 
       MsgBox " Verbunden", vbInformation 
    End If 
' ------------------------------------------------------------ 
' Verbindung wieder schließen 
' ------------------------------------------------------------ 
    If InternetAutodialHangup(0) Then 
       MsgBox "Verbindung getrennt", vbInformation 
    End If

Quelle: MSDN

Mit freundlichen Grüßen,
Marko