Hallo alle zusammen,
bevor jetzt einige schon beim lesen des Titels genervt sind: Ich weiß, dass dieses Thema schon zum Xten male behandelt wurde. Ich hab' mich durch das Forum und Google gewühlt, und bin auf einige Threads und msdn Artikel gestoßen. Ich habe so ziemlich alles ausprobiert, stoße dabei aber auf ein Problem. Sobald das Programm startet prüft es alle paar Sekunden die Verbindung via Timer. Ich bin mir zu 100% sicher, dass dort nicht der Fehler liegt. Wie dem auch sei, als Test ließ ich mir dann mit folgendem Code eine MessageBox anzeigen:
Bin ich mit dem Internet verbunden, wird mir sofort die Internetverbindung bestätigt, trenne ich jedoch die Verbindung, wird mir nicht nur keine Nachricht angezeigt, das Programm hängt sich auch noch auf. Das gleiche passiert, wenn der Code per ButtonClick event ausgeführt wird. Auch wenn ich schon mit getrennter Verbindung das Programm starte, hängt es. Ich kann nicht mal den Sub bei der exception beenden. Mit oder ohne Sub bzw. Funktion und return-Anweisung, es passiert immer dasselbe. Vermutlich liegt es an mir, aber ich finde weder die Wurzel des Problems, noch eine Lösung. Auch im Internet habe ich keine hilfreichen Themen gefunden und wende mich nun an euch Tut mir leid, wenn ich mit sowas hier ankomme, aber anders wusste ich mir leider nicht zu helfen...
Viele Grüße,
Justin
bevor jetzt einige schon beim lesen des Titels genervt sind: Ich weiß, dass dieses Thema schon zum Xten male behandelt wurde. Ich hab' mich durch das Forum und Google gewühlt, und bin auf einige Threads und msdn Artikel gestoßen. Ich habe so ziemlich alles ausprobiert, stoße dabei aber auf ein Problem. Sobald das Programm startet prüft es alle paar Sekunden die Verbindung via Timer. Ich bin mir zu 100% sicher, dass dort nicht der Fehler liegt. Wie dem auch sei, als Test ließ ich mir dann mit folgendem Code eine MessageBox anzeigen:
Visual Basic-Quellcode
- Public Sub CheckConnection()
- Try
- My.Computer.Network.Ping("www.google.de")
- con = True
- Label11.Text = "Online"
- Label11.ForeColor = Color.Green
- PictureBox1.Image = My.Resources.globe_connected
- Label1.ForeColor = Color.Green
- MsgBox("Connected")
- Catch ex As Exception
- con = False
- Label11.Text = "Offline"
- Label11.ForeColor = Color.Red
- PictureBox1.Image = My.Resources.globe_disconnected
- Label1.ForeColor = Color.Red
- MsgBox("Disconnected")
- Exit Sub
- End Try
- End Sub
Bin ich mit dem Internet verbunden, wird mir sofort die Internetverbindung bestätigt, trenne ich jedoch die Verbindung, wird mir nicht nur keine Nachricht angezeigt, das Programm hängt sich auch noch auf. Das gleiche passiert, wenn der Code per ButtonClick event ausgeführt wird. Auch wenn ich schon mit getrennter Verbindung das Programm starte, hängt es. Ich kann nicht mal den Sub bei der exception beenden. Mit oder ohne Sub bzw. Funktion und return-Anweisung, es passiert immer dasselbe. Vermutlich liegt es an mir, aber ich finde weder die Wurzel des Problems, noch eine Lösung. Auch im Internet habe ich keine hilfreichen Themen gefunden und wende mich nun an euch Tut mir leid, wenn ich mit sowas hier ankomme, aber anders wusste ich mir leider nicht zu helfen...
Viele Grüße,
Justin