WCM Forum - 15 IPs pingen und antowrt erhalten (mit vb)

Seite 3 von 3

40 Beiträge dieses Themas auf einer Seite anzeigen

WCM Forum (http://www.wcm.at/forum/index.php)

- Programmierung (http://www.wcm.at/forum/forumdisplay.php?f=17)

- - 15 IPs pingen und antowrt erhalten (mit vb) (http://www.wcm.at/forum/showthread.php?t=117486)

Potassium

03.12.2003 00:23

das is doch ziemlich sehr umständlich.....ich dacht ich kann das umgehen eben mit einem APIaufruf oä :(

Potassium

03.12.2003 19:50

Zitat:

Original geschrieben von flinx
Könntets nicht mit dem Shell-Aufruf das Ergebnis vom Ping in eine Datei umleiten und diese dann Öffnen und das Ergebnis ausgeben?

hab das jetzt nochmal probiert aber irgendwie funzt das gar ned. er führt den shellbefehl ned richtig aus oder er findet die datei ned oder wos was i.....:motz:
i hob mi heute damit 5 stunden gespüt.... :mad:
da muss es doch noch was geben.......:heul: :heul: :heul:

flinx

03.12.2003 21:26

Zitat:

hab das jetzt nochmal probiert aber irgendwie funzt das gar ned.

??
Habs nur unter Excel probiert, aber des funktioniert:

Code:

Sub irgendwas()

    Test = Shell("cmd.exe /C ping 10.1.1.4 >d:\myip.txt")  

    Open "d:\myip.txt" For Input As #1

         Do Until EOF(1)

            Line Input #1, meintext

            If meintext <> "" Then MsgBox meintext

         Loop

         Close #1



End Sub

Potassium

04.12.2003 19:37

das geht ned. weil das pingen und in datei ausgeben vergleichsweise ewig dauert. und er aber sofort öffnen will. :(

flinx

04.12.2003 19:42

Zitat:

Original geschrieben von potassium
das geht ned. weil das pingen und in datei ausgeben vergleichsweise ewig dauert. und er aber sofort öffnen will. :(

Dann baust halt ein 'sleep' zum warten ein.

Potassium

04.12.2003 19:49

is sleep vb? in der msdn steht nix über sleep in vb.

daytrader

04.12.2003 20:02

aber hier:

http://www.vbarchiv.net/vbapi/Sleep.php

Alle Zeitangaben in WEZ +2. Es ist jetzt 05:16 Uhr.

Seite 3 von 3

40 Beiträge dieses Themas auf einer Seite anzeigen