How to close command prompt

[dannydy]

#include <Constants.au3>

HotKeySet("{ESC}", "_Exit")
Global $up= Ping("www.bing.com")

Do
$date = @MDAY & "" & @MON & "" & @YEAR
$time = @HOUR & "" & @MIN & "" & @SEC
Run(@ComSpec & ' /c ping -t -s 1 myservername >> %userprofile%\desktop\' & $date & $time  & '.txt', @SystemDir, @SW_show)
ConsoleWrite($up & @LF)
sleep(5000)
Send("^+c")
_ProcessCloseEx("cmd.exe")
;Send("!+{F4}")
until $up=0


Func _Exit()
    Exit
 EndFunc   ;==>_Exit
 
 Func _ProcessCloseEx($sPID)
   ;ConsoleWrite($sPID & @LF)
   local $killLync = $sPID
     ;ConsoleWrite($killLync & @LF)
    If IsString($sPID) Then $sPID = ProcessExists($sPID)
   ;ConsoleWrite($sPID & @LF)
   
    If Not $sPID Then Return msgbox(64,"Lync Status","Lync is not Running");SetError(1, 0, 0)
    
    Return Run(@ComSpec & " /c taskkill /F /PID " & $sPID & " /T", @SystemDir, @SW_HIDE) & TrayTip($killLync,"Killed", 5, 1)

EndFunc

Hi Guys, need some helps here

This is my pinging code. I was trying to ping continuously to my office server. now the issue I hit was I couldn't get the cmd windows close once its running. It opens a new one after the and old one stayed after the looping.

I tried to search around, but no luck I couldn't find the solution. The workaround for me right now is kill the process by PID. Really appreciate someone can take a look into it.

Edited July 12, 2013 by dannydy

[BrewManNH]

AutoIt has a built-in ping command.

Also, if you insist on using the command prompt and you want it to close, don't use -t because the Ping will never stop until you kill the process. You'd probably be better off using -n and give it a count of how many times it pings the address. To stop the Ping in the command window, use Send("^c") not ^+c.

[Starstar]

try this code.......

this is better then send command...ControlSend("[CLASS:ConsoleWindowClass]","","","^c")

expandcollapse popup

#include <Constants.au3>

HotKeySet("{ESC}", "_Exit")
Global $up= Ping("www.bing.com")

Do
$date = @MDAY & "" & @MON & "" & @YEAR
$time = @HOUR & "" & @MIN & "" & @SEC
Run(@ComSpec & ' /c ping -t -s 1 myservername >> %userprofile%\desktop\' & $date & $time  & '.txt', @SystemDir, @SW_show)
ConsoleWrite($up & @LF)
sleep(5000)
ControlSend("[CLASS:ConsoleWindowClass]","","","^c")
_ProcessCloseEx("cmd.exe")
;Send("!+{F4}")
until $up=0


Func _Exit()
    Exit
 EndFunc   ;==>_Exit
 
 Func _ProcessCloseEx($sPID)
   ;ConsoleWrite($sPID & @LF)
   local $killLync = $sPID
     ;ConsoleWrite($killLync & @LF)
    If IsString($sPID) Then $sPID = ProcessExists($sPID)
   ;ConsoleWrite($sPID & @LF)
   
     If Not $sPID Then $ans = msgbox(5,"Lync Status","Lync is not Running");SetError(1, 0, 0)
       if $ans = 2 Then
          Exit
          Else
    Return Run(@ComSpec & ' /c ping -t -s 1 myservername >> %userprofile%\desktop\' & $date & $time  & '.txt', @SystemDir, @SW_show)

EndIf
EndFunc
Exit

Edited July 17, 2013 by adnanbaloch