autoit console

[zeroZshadow]

Hi,

I'm making a GUI controled Console to test my/your autoit commands.

but i'm kinda stuck on the last point.

"execute autoit command"

This is the code

expandcollapse popup

;Fileinstallers
FileInstall("C:\Documents and Settings\zeroZshadow\Mijn documenten\autoitscripts\AutoIt.chm",@ScriptDir & "\AutoIt.chm")
FileInstall("C:\Documents and Settings\zeroZshadow\Mijn documenten\autoitscripts\AutoIt3Help.exe",@ScriptDir & "\AutoIt3Help.exe")

;Creation of the GUI
#include <GUIConstants.au3>
Opt("GUIOnEventMode", 1)
GUICreate("Console")
$Mfile = GUICtrlCreateMenu ( "&File")
$MfileS = GUICtrlCreateMenuitem ( "&Save",$Mfile)
$input=GUICtrlCreateEdit ("",10,280,360,97,$ES_AUTOVSCROLL+$WS_VSCROLL)
$output=GUICtrlCreateEdit ("====================== Console Output ========================"&@CRLF,10,10,380,200,$ES_AUTOVSCROLL+$WS_VSCROLL+$ES_READONLY)
$Button1 = GUICtrlCreateButton("OK",370,280,25,100,)
GUISetOnEvent(-1, "_Command")
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
GUISetState ()
HotKeySet("{F1}","_help")
HotKeySet("{Enter}","_Command")

;Looping script
while 1
    
WEnd

;Functions
Func _Exit()
    If @GUI_CTRLID = $GUI_EVENT_CLOSE Then
        Exit
    EndIf
EndFunc
Func _help()
    Run (@scriptDir & "\AutoIt3Help.exe")
EndFunc

;Run command
Func _Command()
    global $command = (GUICtrlRead ($input))
    GUICtrlSetData ($output,(_Go()&@CRLF),1)
EndFunc
Func _Go()
    Return ($command)
EndFunc

i hope you guys wanna help me.

P.S. the installed files are found in the autoit folder.

[Andre]

Hi,

Perhaps this is an stupid question, but what will the purpose be of your tool/program ?

Andre

Edited February 9, 2005 by Andre

[Andre]

Hi,

Back again.

To prevent a 100% cpu usage make your waiting loop like this :

While 1

Sleep(5)

Wend

Andre

[zeroZshadow]

thanks for the tip,

but i stil need to know how i can let the script execute the command.

(u could use the command for real-time control over windows.)

[Andre]

as far as i know u will have to save the file and then runit with autoit3.exe

So real-time no !

Andre

[zeroZshadow]

ur opinion

but can somebody pleas help me with my problem.

this IS the support forum not the scrap forum.

you your just spamming

Edited February 9, 2005 by zeroZshadow

[Domonoky]

Hi..

..IMHO Andre already posted a solution to your problem..

..so you let autoit save the commands in a file, and the run it with autoit3.exe ..

something like:

FileWriteLine("test.au3","MsgBox(0,"test","testing",20)")
Run("Autoit3.exe test.au3")

(untested)

..and.. please have a look about spelling.. so its easier to read your posts :-)

mfg Domonoky

[gosu]

FileWriteLine("test.au3","MsgBox(0,"test","testing",20)")
Run("Autoit3.exe test.au3")

<{POST_SNAPBACK}>

How could that work? AutoIt doesn´t know when the String does end.

FileWriteLine("test.au3",'MsgBox(0,"test","testing",20)')
Run("Autoit3.exe test.au3")

[zeroZshadow]

I saw that to....

I made a little update.

the only problem i have now is that the made script can't return the output to the other script.

I tryed the #include command but then you need to enter the command

re-run the script and press enter again.

Like a very heavy LAG.

expandcollapse popup

;Fileinstallers
FileInstall("C:\Documents and Settings\zeroZshadow\Mijn documenten\autoitscripts\AutoIt.chm",@ScriptDir & "\AutoIt.chm")
FileInstall("C:\Documents and Settings\zeroZshadow\Mijn documenten\autoitscripts\AutoIt3Help.exe",@ScriptDir & "\AutoIt3Help.exe")

;Creation of the GUI
#include <GUIConstants.au3>
Opt("GUIOnEventMode", 1)
GUICreate("Console")
$Mfile = GUICtrlCreateMenu ( "&File")
$MfileS = GUICtrlCreateMenuitem ( "&Save",$Mfile)
$input=GUICtrlCreateEdit ("",10,280,360,97,$ES_AUTOVSCROLL+$WS_VSCROLL)
$output=GUICtrlCreateEdit ("====================== Console Output ========================"&@CRLF,10,10,380,200,$ES_AUTOVSCROLL+$WS_VSCROLL+$ES_READONLY)
$Button1 = GUICtrlCreateButton("OK",370,280,25,100)
GUISetOnEvent($Button1, "_Command")
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
GUISetState ()
HotKeySet("{F1}","_help")
HotKeySet("{Enter}","_Command")

;Looping script
while 1
sleep(5)
WEnd

;Functions
Func _Exit()
    If @GUI_CTRLID = $GUI_EVENT_CLOSE Then
        Exit
    EndIf
EndFunc
Func _help()
    Run (@scriptDir & "\AutoIt3Help.exe")
EndFunc

;Run command
Func _Command()
    global $command = (GUICtrlRead ($input))
    $file = FileOpen ( "input.au3",2)
    FileWriteLine("input.au3","Global $result = "&$command&@CRLF&"sleep(500)")
    Fileclose($file)
    Run("autoit3.exe input.au3")
    sleep(500)
    GUICtrlSetData ($output,($result&@CRLF),1)
EndFunc

thanks for your support so far!

[Andre]

ur opinion

but can somebody pleas help me with my problem.

this IS the support forum not the scrap forum.

you your just spamming

<{POST_SNAPBACK}>

I 'm just trying to help u.

Don't say i'm just spamming !

Andre

[SlimShady]

Use my _Execute UDF, available here:

http://www.autoitscript.com/forum/index.php?showtopic=7607

I updated several things and added my UDF.

It believe it works now.

expandcollapse popup

;Fileinstallers
FileInstall("C:\Documents and Settings\zeroZshadow\Mijn documenten\autoitscripts\AutoIt.chm",@ScriptDir & "\AutoIt.chm")
FileInstall("C:\Documents and Settings\zeroZshadow\Mijn documenten\autoitscripts\AutoIt3Help.exe",@ScriptDir & "\AutoIt3Help.exe")

;Creation of the GUI
#include <GUIConstants.au3>
Opt("GUIOnEventMode", 1)
GUICreate("Console")
$Mfile = GUICtrlCreateMenu ( "&File")
$MfileS = GUICtrlCreateMenuitem ( "&Save",$Mfile)
$input=GUICtrlCreateEdit ('MsgBox(64, "Test", "1234")',10,280,360,97,$ES_AUTOVSCROLL+$WS_VSCROLL)
$output=GUICtrlCreateEdit ("====================== Console Output ========================"&@CRLF,10,10,380,200,$ES_AUTOVSCROLL+$WS_VSCROLL+$ES_READONLY)
$Button1 = GUICtrlCreateButton("OK",370,280,25,100,)
GUICtrlSetOnEvent($Button1, "_Command")
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
GUISetState ()
HotKeySet("{F1}","_help")
HotKeySet("{Enter}","_Command")

;Looping script
while 1
    Sleep(100)
WEnd

;Functions
Func _Exit()
    If @GUI_CTRLID = $GUI_EVENT_CLOSE Then
        Exit
    EndIf
EndFunc
Func _help()
    Run (@scriptDir & "\AutoIt3Help.exe")
EndFunc

;Run command
Func _Command()
     Local $command
    $command = GUICtrlRead ($input)
    GUICtrlSetData ($output, $command & @CRLF, 1)
    _Execute ($command)
EndFunc

Func _Execute ($LineofCode, $rUsername = "", $rDomain = "", $rPassword = "", $rOpts = 1)
   Local $PrevSett, $RetVal, $RunAs = 0
   $LineofCode = StringReplace($LineofCode, '"', '""')
   If @NumParams > 1 Then
      If @OSVersion = "WIN_XP" OR @OSVersion = "WIN_2000" Then $RunAs = 1
   EndIf
   If $RunAs Then
      If $rUsername = "" Then $rUsername = @UserName
      If $rDomain = "" Then $rDomain = @ComputerName
      If $rPassword = "" Then
         $rPassword = InputBox('_Execute', 'Enter the password for username "' & $rUsername & '"')
         If @error Then Return 1
      EndIf
      $PrevSett = Opt("RunErrorsFatal", 0)
      RunAsSet($rUsername, $rDomain, $rPassword, $rOpts)
   EndIf
   $RetVal = RunWait(@AutoItExe & ' /c "Exit(' & $LineofCode & ')"', @WorkingDir)
   If @error Then
      MsgBox(16, "_Execute Error", "Error: Incorrect password or unknown username.")
      Return 1
   ElseIf $RunAs Then
      RunAsSet()
      Opt("RunErrorsFatal", $PrevSett)
   EndIf
   Return $RetVal
EndFunc

[zeroZshadow]

mmm...

i don't think you understood my problem(not that i don't thank you for help)

i'll explane my program:

1. you can type any autoit command in the input box

2. press enter or push the button (button doesn't work??)

3. the command wil be run and the return wil be written in the output box. (not the command itself!)

4in the later version it wil rember all of the returns so you can control an window by this console.

example.

1. WinSetTitle ( "test", "", "test2" )

so you won't need to make new programs.

you can just test ur idea right away

[SlimShady]

Use the updated script I posted.

1. Works

2. Use the $BS_DEFPUSHBUTTON style to make the button respond to the enter key. And remove the enter hotkey from the script.

3. I didn't know. Change

Func _Command()
     Local $command
    $command = GUICtrlRead ($input)
    GUICtrlSetData ($output, $command & @CRLF, 1)
    _Execute ($command)
EndFunc

to

Func _Command()
     Local $command, $RetVal
    $command = GUICtrlRead ($input)
    $RetVal = _Execute ($command)
    GUICtrlSetData ($output, $RetVal & @CRLF, 1)
EndFunc

4. Explain what "returns" are. Because that sentence doesn't make sense to me.

[zeroZshadow]

When i type the command MsgBox(1,"test","test") it normaly returns a number (i thought 1 for ok and 2 for cancel, not sure)

THAT return should be written in the ouput box.

[SlimShady]

When i type the command MsgBox(1,"test","test") it normaly returns a number (i thought 1 for ok and 2 for cancel, not sure)

THAT return should be written in the ouput box.

<{POST_SNAPBACK}>

Hello?

I said:

I didn't know. Change

Func _Command()
     Local $command
    $command = GUICtrlRead ($input)
    GUICtrlSetData ($output, $command & @CRLF, 1)
    _Execute ($command)
EndFunc

to

Func _Command()
     Local $command, $RetVal
    $command = GUICtrlRead ($input)
    $RetVal = _Execute ($command)
    GUICtrlSetData ($output, $RetVal & @CRLF, 1)
EndFunc

Edited February 9, 2005 by SlimShady

[zeroZshadow]

oke sorry.

it works now but now i have some other problems.

i can't store variables.

so when i type $mem = memgetstats() then it will give an error.

while it should store the outcome in $mem so could see later see what $mem[0] till[8] was

[zeroZshadow]

can nobody help me with this one???

[zeroZshadow]

isn't there any way to use a command like consolewrite and make my program catch that??

[Insolence]

I don't understand the point of this.

If it's to just run simple commands, great, but if you want this to 'record' things... it's not going to catch on. I could just write it in Scite and test it there.

A console is a cool idea, but not a very slow linear script writer -.-

[zeroZshadow]

I now updated the program again, with a solution the the write to console command.

expandcollapse popup

;Fileinstallers
FileInstall("C:\Documents and Settings\zeroZshadow\Mijn documenten\autoitscripts\AutoIt.chm",@ScriptDir & "\AutoIt.chm")
;Creation of the GUI
#include <GUIConstants.au3>
GUISetHelp (@ScriptDir&"\AutoIt.chm")
Opt("GUIOnEventMode", 1)
GUICreate("Console")
$Mfile = GUICtrlCreateMenu ( "&File")
$MfileS = GUICtrlCreateMenuitem ( "&Save",$Mfile)
$input=GUICtrlCreateEdit ("",10,280,360,97,$ES_AUTOVSCROLL+$WS_VSCROLL)
$output=GUICtrlCreateEdit ("====================== Console Output ========================"&@CRLF,10,10,380,200,$ES_AUTOVSCROLL+$WS_VSCROLL)
$Button1 = GUICtrlCreateButton("OK",370,280,25,100)
GUISetOnEvent($Button1, "_Command")
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
GUISetState ()
HotKeySet("{Enter}","_Command")

;Looping script
while 1
sleep(5)
WEnd

;Functions
Func _Exit()
    If @GUI_CTRLID = $GUI_EVENT_CLOSE Then
        Exit
    EndIf
EndFunc

;Run command
Func _Command()
    global $command = (GUICtrlRead ($input))
    $file = FileOpen ( "input.au3",2)
    FileWriteLine("input.au3","$result = ("&$command&")"&@CRLF)
    FileWriteLine("input.au3","sleep(500)"&@CRLF)
    FileWriteLine("input.au3","ControlSend ( 'Console','',6,$result)")
    Fileclose($file)
    Run("autoit3.exe input.au3")
    sleep(500)
EndFunc

but it stil doesn't work like i want to.

it doesn't remember valua's i stores in variables,by the console and so i can't call there information. (so i can't use $mem = MemGetstats() and then use $mem)