Hallo Vb-Paradise-Gemeinde,
Ich will einen Netzwerktest einbauen, der anhand einer Lampe sagt, ob man verbunden ist oder nicht.
Hier ist meine Idee: - ein timer läuft und triggert eine Netzwerk-Test-Sub alle 20 Sekdunden
Test: - ist ein IntraNet-share da ? - wenn nein : - ist google.de ansprechbar ?
Wenn nur google da ist, schalte auf orange, wenn das share da ist schalte auf grün, ansonsten auf rot
Das Problem: - ohne Netzwerkverbindung friert die Form während des Tests ein (not responding)
Intern kann man nur den Proxy anpingen und der bietet auf einem Port ein PAC-File zum Download feil - den Download so einzubasteln habe ich bisher nicht richtig umsetzen können.
Die Frage ist nun: - bekomme ich das Grundproblem mit dem einfrieren irgendwie gelöst ?
Ich habe probiert: - if directory exist, network ping,
Mein code:
Ich will einen Netzwerktest einbauen, der anhand einer Lampe sagt, ob man verbunden ist oder nicht.
Hier ist meine Idee: - ein timer läuft und triggert eine Netzwerk-Test-Sub alle 20 Sekdunden
Test: - ist ein IntraNet-share da ? - wenn nein : - ist google.de ansprechbar ?
Wenn nur google da ist, schalte auf orange, wenn das share da ist schalte auf grün, ansonsten auf rot
Das Problem: - ohne Netzwerkverbindung friert die Form während des Tests ein (not responding)
Intern kann man nur den Proxy anpingen und der bietet auf einem Port ein PAC-File zum Download feil - den Download so einzubasteln habe ich bisher nicht richtig umsetzen können.
Die Frage ist nun: - bekomme ich das Grundproblem mit dem einfrieren irgendwie gelöst ?
Ich habe probiert: - if directory exist, network ping,
Mein code:
VB.NET-Quellcode
- Public Sub NetworkAvailiblity()
- If Directory.Exists("\\internesShare") = True Then
- 'If My.Computer.Network.Ping("proxy") Then
- 'MsgBox("success")
- BTN_NW.BackColor = Color.Green
- ElseIf My.Computer.Network.Ping("google.de") Then
- BTN_NW.BackColor = Color.Orange
- 'NWtimer.Interval = 20000
- 'MsgBox("no reply")
- Else
- BTN_NW.BackColor = Color.Red
- NWtimer.Interval = 20000
- End If
- End Sub