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.

Ach ja, ich programmiere in VB.NET sein.

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:

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

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