Command Ping

[Laymanball]

I learned programming.

Error here?

I just get it.

Thanks.

-------------------------------------

Switch @IPAddress1
    Case '127.0.0.1'
        $iURL = InputBox("Command Ping [OffLine]", "Your IP: "&@IPAddress1&@LF&@LF&"Enter: URL name", "localhost", "", 220, 140, 400, 300)
        If Not $iURL Then Exit
        Run(@ComSpec & " /k " & 'ping '& $iURL, "", @SW_SHOW)
    Case Else
        $iURL = InputBox("Command Ping [OnLine]", "Your IP: "&@IPAddress1&@LF&@LF&"Enter: URL name", "www.google.com", "", 220, 140, 400, 300)
        If Not $iURL Then Exit
        Run(@ComSpec & " /k " & 'ping '& $iURL, "", @SW_SHOW)
EndSwitch

Edited September 22, 2011 by Laymanball

[Laymanball]

Update: Add PingInfo.log.

#NoTrayIcon
maincommandping()
Func maincommandping()
    Global $iURL, $pid, $btn, $pidl
    Switch @IPAddress1
        Case '127.0.0.1'
            $iURL = InputBox("Command Ping [OffLine]", "Your IP: "&@IPAddress1&@LF&@LF&"Enter: URL name", "localhost", "", 220, 140, 400, 300)
            If Not $iURL Then Exit
            $pid = Run(@ComSpec & " /k " & 'ping '& $iURL, "", @SW_SHOW)
        Case Else
            $iURL = InputBox("Command Ping [OnLine]", "Your IP: "&@IPAddress1&@LF&@LF&"Enter: URL name", "www.google.com", "", 220, 140, 400, 300)
            If Not $iURL Then Exit
            $pid = Run(@ComSpec & " /k " & 'ping '& $iURL, "", @SW_SHOW)
    EndSwitch
    If ProcessWaitClose($pid)Then
        $btn = MsgBox(36, "", "Do you wante save log data?")
        If $btn = 7 Then Exit
        $pidl = Run(@ComSpec & " /k " & 'ping '& $iURL & " >"&$iURL&"_PingInfo.log", "", @SW_HIDE)
        If ProcessExists($pidl) Then ProcessClose($pidl)
    EndIf
EndFunc

[Laymanball]

Reply edit. info.log at not show.

#NoTrayIcon
#include <Process.au3>

maincommandping()
Func maincommandping()
    Global $iURL, $pid, $btn, $pidl
    Switch @IPAddress1
        Case '127.0.0.1'
            $iURL = InputBox("Command Ping [OffLine]", "Your IP: "&@IPAddress1&@LF&@LF&"Enter: URL name", "localhost", "", 220, 140, 400, 300)
            If Not $iURL Then Exit
            $pid = Run(@ComSpec & " /k " & 'ping '& $iURL, "", @SW_SHOW)
        Case Else
            $iURL = InputBox("Command Ping [OnLine]", "Your IP: "&@IPAddress1&@LF&@LF&"Enter: URL name", "www.google.com", "", 220, 140, 400, 300)
            If Not $iURL Then Exit
            $pid = Run(@ComSpec & " /k " & 'ping '& $iURL, "", @SW_SHOW)
    EndSwitch
    If ProcessWaitClose($pid)Then
        $btn = MsgBox(36, "", "Do you wante save log data?")
        If $btn = 7 Then Exit
         WinWaitActive("[Class:ConsoleWindowClass]", "", 1)
        _RunDOS('ping '& $iURL & " >"&$iURL&"_PingInfo.log")
        If ProcessWaitClose($pidl) Then ProcessClose($pidl)
    EndIf
EndFunc