| |

Suche Visual-Basic CodePing mit Timeout | |  | Autor: Gast Only4U | Datum: 14.05.03 00:03 |
| Hi
Wie kann ich es anstellen, daß die Ping-Routiene aus den Tips nicht beim Wechsel des Online-Status 10 Sekunden für den Ping braucht?
Habe ein Proggy geschrieben, welches einen INet-Server anpingt. Sobald der Server nicht mehr gefunden wird, ist wohl mein Router abgeschmiert. Durch Stecker ziehen und wieder einstecken bekomme ich den Router wieder flott, mich interessierte nur, wie lange der Router durchgehalten hat.
Nun zu meinem Problem:
Wenn der Router abschmiert (simuliere ich durch Stecker ziehen), wird das Fenster meiner Anwendung weiß (also keinerlei Anzeige mehr in dem Fenster).
Das dauert ca 10 Sekunden, danach zeigt mir mein Proggy an, daß der Router tot ist.
Wenn danach der Stecker wieder eingesteckt wird hängt mein Proggy ebenfalls wieder ca. 10 Sekunden, bis ich die nächste Anzeige bekomme, daß der Router wieder online ist.
Als kleine Spielerei lasse ich noch das Proggy-Icon von einem grünen in einen roten Punkt wechseln (und umgekehrt).
Anzeige sieht so aus:
17:09:02 online (Programmstart)
17:18:37 offline
17:19:20 online
20:37:54 offline
.....
Funktion ist 1a.
Das einzige was mich stört ist, daß mein Proggy erst Sekunden nach der Browser-Fehlermeldung (Server nicht gefunden) den neuen Status anzeigt, eben, da es irgendwie hängen bleibt.
Kann ich einen Timeout einstellen, daß nach max 1 Sek ohne erfolgfreichem Ping der Status False ausgegeben wird?
z.B.:
Status = Ping (2000) 'Timeout=2000ms
oder
Status = Ping ("192.168.1.1",30) ' IP 192.168.1.1 anpingen mit Timeout 30ms
Kann einer von euch so was proggen?
MfG
Only4U |  |
 | Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
Einloggen | Neu registrieren |
  |
|
Neu! sevPopUp 2.0 
Dynamische Kontextmenüs!
Erstellen Sie mit nur wenigen Zeilen Code Kontextmenüs dynamisch zur Laufzeit. Vordefinierte Styles (XP, Office, OfficeXP, Vista oder Windows 8) erleichtern die Anpassung an die eigenen Anwendung... Weitere InfosTipp des Monats Oktober 2025 Matthias KozlowskiUmlaute konvertierenErsetzt die Umlaute in einer Zeichenkette durch die entsprechenden Doppelbuchstaben (aus ä wird ae, usw.) Access-Tools Vol.1 
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 EURWeitere Infos
|
|
|
Copyright ©2000-2025 vb@rchiv Dieter Otter Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|