Kleine Frage zum anpingen

[Klugscheißer]

Hi ich habe mit nem Kumpel ne Lan Verbindung aufbauen wollen und dazu ist es ja üblich, sich anzupingen um zu schauen, ob eine Verbindung besteht. Mein Ziel war es nun ein kleines Programm zu schreiben, in dem man die gewünschte IP in eine Inputbox eingetragen wird. Anschließend soll diese IP im im cmd Fenster erscheinen und davor sollte natürlich "ping " stehen. Dann soll ein Enter befehl gesendet werden. Ich hoffe es war verständlich, was ich will. ^^
Das ist auch alles ganz schick. Aber er sendet den enter Befehl nicht.
Hier nochmal der Code.

$IP = InputBox('Ping','Welche Ip-Adresse soll angepingt werden?')
If $IP = '' Then
ProcessClose('Ping')
ElseIf $IP = $IP Then
Run('cmd')
sleep(1000)
; WinWaitActive('C:\Windows\system32\cmd.exe')
WinActivate('C:\Windows\system32\cmd.exe')
Send('ping ' & $IP )
WinActivate('C:\Windows\system32\cmd.exe')
sleep(1000)
send('{Enter}')
Sleep(4000)
WinKill ('C:\Windows\system32\cmd.exe')
EndIf

[Jonas_93]

versuchs mal mit ControlSend

[BladeTiger12]

Hier mal:

PHP Code:

$IP = InputBox('Ping','Welche Ip-Adresse soll angepingt werden?')
If $IP = '' Then
ProcessClose('Ping')
ElseIf $IP = $IP Then
Run('cmd')
sleep(1000)
; WinWaitActive('C:\Windows\system32\cmd.exe')
WinActivate('C:\Windows\system32\cmd.exe')
ControlSend("" , ""  , "" , 'ping ' & $IP )
WinActivate('C:\Windows\system32\cmd.exe')
sleep(1000)
ControlSend("" , "" , "" ,'{Enter}')
Sleep(4000)
WinKill ('C:\Windows\system32\cmd.exe')
EndIf 


Ich hab nur

PHP Code:

ControlSend("" , ""  , "" , 'ping ' & $IP ) 


Da du vorher das Fenster Aktiviert mit:

PHP Code:

WinActivate('C:\Windows\system32\cmd.exe') 


Und wenn man da ein Title hinschreibt geht es nicht.
keine Ahnung warum.

[Lawliet]

Shellexecute("cmd.exe", "-ping" & $ip, default, default)

-

[Achat]

MfG

€dit:

Aus dem:

$IP = InputBox('Ping','Welche Ip-Adresse soll angepingt werden?')
If $IP = '' Then
ProcessClose('Ping')
ElseIf $IP = $IP Then
Run('cmd')
sleep(1000)
; WinWaitActive('C:\Windows\system32\cmd.exe')
WinActivate('C:\Windows\system32\cmd.exe')
Send('ping ' & $IP )
WinActivate('C:\Windows\system32\cmd.exe')
sleep(1000)
send('{Enter}')
Sleep(4000)
WinKill ('C:\Windows\system32\cmd.exe')
EndIf

Wir dann das:

$IP = InputBox('Ping','Welche Ip-Adresse soll angepingt werden?')
If @error then exit
$iPing=Ping($IP)
Msgbox(64,'Ping','Ping '&$IP&@crlf&$iPing&' ms')

MfG

[Klugscheißer]

Danke sehr!