Some help for this Script ?

[armoros]

My friends i found this script witch outputs cmd commands in the Gui, but the problem is that you got to scroll a lot to see the result of the command, how can we fix this ?

If you have the time to test the script you will see what i mean.

Thank you

expandcollapse popup

#NoTrayIcon
Global $output = ""
$xWin = @DesktopWidth * .5
$yWin = @DesktopHeight * .5
$gui = GUICreate("CMD Tool",$xWin,$yWin,-1,-1)
$inputbox = GUICtrlCreateInput("VER",$xWin * .025,$yWin * .05,$xWin * .875,$yWin * .05)
    GUICtrlSetFont (-1,9, 400, 0, "Arial")
$outputwin = GUICtrlCreateEdit("",$xWin * .025,$yWin * .15,$xWin * .95,$yWin * .8,2048+2097152)
    GUICtrlSetFont (-1,9, 400, 0, "Lucida Console")
$btnGo = GUICtrlCreateButton("GO",$xWin * .925,$yWin * .05,$xWin * .05,$yWin * .05)
    GUICtrlSetState(-1,512)
GUISetState()
While 1
    $msg = GUIGetMsg()
    If $msg = -3 Then ExitLoop
    If $msg = $btnGo Then
        $strCMD = GUICtrlRead($inputbox)
        $CMD = Run(@Comspec & " /c " & $strCMD,"",@SW_HIDE,6)
        While 1
            $line = StdoutRead($CMD)
            If @error Then ExitLoop
            $output &= $line & @CRLF
        WEnd
        While 1
            $line = StdErrRead($CMD)
            If @error Then ExitLoop
            $output &= $line & @CRLF
        WEnd
        ProcessClose($CMD)
        $output &= "---------------------------------------------------------------------------------------" & @CRLF & @CRLF
        GUICtrlSetData($inputbox,"")
        If StringInstr($output,"") Then
            GUICtrlSetData($outputwin,"")
            $output = ""
        EndIf
        GuiCtrlSetData($outputwin,$output)
        GUICtrlSetState($inputbox,256)
        GUICtrlSetState($btnGo,512)
    EndIf
WEnd
Exit

And something else when i copy this in SCITE it saws this character , is this obfuscated by the author ?

the red FF in the end

Edited May 5, 2012 by armoros

[stormbreaker]

Try changing your code with something like this:

While 1
            $line = StdoutRead($CMD)
            If @error Then ExitLoop
            If $line = "" then
              $output &= $line
              else
              $output &= $line & @CRLF
              EndIf
        WEnd
        While 1
            $line = StdErrRead($CMD)
            If @error Then ExitLoop
            If $line = "" then
              $output &= $line
              else
              $output &= $line & @CRLF
              EndIf
        WEnd

As for FF, try changing the encoding of your AU3 script file.

[armoros]

Try changing your code with something like this:

As for FF, try changing the encoding of your AU3 script file.

Yes MKISH that solved the issue..you rock brother

As for the FF i changed the encoding but nothing,

I just erase it and still the script works, so no harm is done.

Thank you my friend

expandcollapse popup

#NoTrayIcon
Global $output = ""
$xWin = @DesktopWidth * .5
$yWin = @DesktopHeight * .5
$gui = GUICreate("CMD Tool",$xWin,$yWin,-1,-1)
$inputbox = GUICtrlCreateInput("VER",$xWin * .025,$yWin * .05,$xWin * .875,$yWin * .05)
    GUICtrlSetFont (-1,9, 400, 0, "Arial")
$outputwin = GUICtrlCreateEdit("",$xWin * .025,$yWin * .15,$xWin * .95,$yWin * .8,2048+2097152)
    GUICtrlSetFont (-1,9, 400, 0, "Lucida Console")
$btnGo = GUICtrlCreateButton("GO",$xWin * .925,$yWin * .05,$xWin * .05,$yWin * .05)
    GUICtrlSetState(-1,512)
GUISetState()
While 1
    $msg = GUIGetMsg()
    If $msg = -3 Then ExitLoop
    If $msg = $btnGo Then
        $strCMD = GUICtrlRead($inputbox)
        $CMD = Run(@Comspec & " /c " & $strCMD,"",@SW_HIDE,6)
While 1
            $line = StdoutRead($CMD)
            If @error Then ExitLoop
            If $line = "" then
              $output &= $line
              else
              $output &= $line & @CRLF
              EndIf
    WEnd
        While 1
            $line = StdErrRead($CMD)
            If @error Then ExitLoop
            If $line = "" then
              $output &= $line
              else
              $output &= $line & @CRLF
              EndIf
    WEnd
    ProcessClose($CMD)
        $output &= "---------------------------------------------------------------------------------------" & @CRLF & @CRLF
        GUICtrlSetData($inputbox,"")
        If StringInstr($output,"") Then
            GUICtrlSetData($outputwin,"")
            $output = ""
        EndIf
        GuiCtrlSetData($outputwin,$output)
        GUICtrlSetState($inputbox,256)
        GUICtrlSetState($btnGo,512)
    EndIf
WEnd
Exit

Edited May 5, 2012 by armoros

[sponk]

Dont know if I understood it right, but try search for $SB_SCROLLCARET; this will autoscroll down to the last line in your GUI.

Regards

edit: Just saw you got help already

Edited May 5, 2012 by sponk

[armoros]

Dont know if I understood it right, but try search for $SB_SCROLLCARET; this will autoscroll down to the last line in your GUI.

Regards

edit: Just saw you got help already

Thanks for ur help too mate..

I learned something from ur post too..

Thank you guys