au3scr Posted November 13, 2007 Share Posted November 13, 2007 Here is working script that dont work but it dont work with Autoit Beta 3,2.9.10 I just get errors C:\Documents and Settings\rain\Desktop\NUEVOS~3.AU3(32,53) : ERROR: _GUICtrlEdit_GetLineCount(): undefined function. $line = _GUICtrlEdit_GetLineCount ($CommandInput) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^ C:\Documents and Settings\rain\Desktop\NUEVOS~3.AU3(33,56) : ERROR: _GUICtrlEdit_GetLine(): undefined function. $Input = _GUICtrlEdit_GetLine ($CommandInput, $line) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^ C:\Documents and Settings\rain\Desktop\NUEVOS~3.AU3 - 2 error(s), 0 warning(s) [autoit]#include <GUIConstants.au3> #include <GUIEdit.au3> HotKeySet ("{enter}", "read_func") HotKeySet ("^{NUMPADADD}", "IncreaseFont") HotKeySet ("^{NUMPADSUB}", "DecreaseFont") ;~ HotKeySet ("^{mousewheelup}", "IncreaseFont") ;~ HotKeySet ("^{Mousewheeldown}", "DecreaseFont") #include <GUIConstants.au3> #include <GUIEdit.au3> $line = 1 $FontSize = 12 $Form1 = GUICreate ("Terminal", 499, 274, 201, 116, BitOr($GUI_SS_DEFAULT_GUI, $WS_SIZEBOX)) $fsize = 10 GUISetCursor (7) $CommandInput = GUICtrlCreateEdit ("", 0, 0, 497, 273, BitOR ($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN, $WS_VSCROLL, $WS_MAXIMIZEBOX, $WS_MINIMIZEBOX)) GUICtrlSetData (-1, "shell:") GUICtrlSetFont (-1, $fsize, 500, 0, "Terminal") GUICtrlSetColor (-1, 0xFFFFFF) GUICtrlSetBkColor (-1, 0x000000) GUISetState() While 1 $msg = GUIGetMsg () Switch $msg Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd Func read_func() $line = _GUICtrlEdit_GetLineCount ($CommandInput) - 1 $Input = _GUICtrlEdit_GetLine ($CommandInput, $line) $command = StringTrimLeft ($Input, 6) $Say = StringInStr ($command, "say") $Exit = StringInStr ($command, "exit") $sysinfo = StringInStr ($command, "sys") $ipconfig = StringInStr ($command, "ipconfig") $ping = StringInStr ($command, "ping") $run = StringInStr ($command, "run") $play = StringInStr ($command, "play") $kill = StringInStr ($command, "kill") $delfile = StringInStr ($command, "delfile") $soundvol = StringInStr ($command, "soundvol") $diskfree = StringInStr ($command, "diskfree") $tcmd = StringInStr ($command, "tcmd") $transparent = StringInStr ($command, "transparent") $untrans = StringInStr ($command, "untrans") $aptgetupdate = StringInStr ($command, "aptgetupdate") $FileCopy= StringInStr ($command, "filecopy") $dirCopy= StringInStr ($command, "dircopy") $filemove= StringInStr ($command, "filemove") $commands= StringInStr ($command, "commands") $textedit= StringInStr ($command, "textedit") $attribget= StringInStr ($command, "attribget") $attribset= StringInStr ($command, "attribset") $winminimizeall= StringInStr ($command, "winminimizeall") If $Say Then HotKeySet ("{enter}") $string = StringTrimLeft ($Input, 10) Send (@CRLF & $string & @CRLF & "shell:") $line = $line + 4 Sleep (100) HotKeySet ("{enter}", "read_func") Else If $Exit Then Exit Else If $sysinfo Then sys() ;HERE'S THE FIX======== HotKeySet ("{enter}") Send (@CRLF & "shell:") $line = $line + 30 HotKeySet ("{enter}", "read_func") ;========================== Else If $textedit Then HotKeySet ("{enter}") $string = StringTrimLeft ($Input, 15) GuiCtrlSetData($CommandInput,"") ;~ $Handle=FileOpen($string,2) $Text=FileRead($string) ClipPut($Text) Send("^v") Do Sleep(1) Until _IsPressed("71");71 for F2 $nano = GUICtrlRead($commandinput) FileWrite($string,$nano) ;~ FileWrite($Handle,"the new texti didnt understand u") ;HERE'S THE FIX======== HotKeySet ("{enter}") Send (@CRLF & "shell:") $line = $line + 30 HotKeySet ("{enter}", "read_func") ;========================== Else If $commands Then HotKeySet ("{enter}") $string = StringTrimLeft ($Input, 15) GuiCtrlSetData($CommandInput,"") $Text=FileRead(@ScriptDir & "\help.txt") ClipPut($Text) Send("^v") HotKeySet ("{enter}") Send (@CRLF & "shell:") $line = $line + 30 HotKeySet ("{enter}", "read_func") ;========================== Else If $winminimizeall Then WinMinimizeAll() WinWaitActive("Terminal") HotKeySet ("{enter}") $string = StringTrimLeft ($Input, 21) Send (@CRLF & "all windows minimized" & @CRLF & "shell:") $line = $line + 4 Sleep (100) HotKeySet ("{enter}", "read_func") Else If $attribget Then $string = StringTrimLeft ($Input, 16) $fileattrib = FileGetAttrib ($string) HotKeySet ("{enter}") ClipPut (@CRLF & "File has following attributes:" & $fileattrib & @CRLF) Send ("^v{enter}") HotKeySet ("{enter}", "read_func") ;HERE'S THE FIX======== HotKeySet ("{enter}") Send (@CRLF & "shell:") $line = $line + 30 HotKeySet ("{enter}", "read_func") ;========================== Else If $diskfree Then df() HotKeySet ("{enter}") Send (@CRLF & "shell:") $line = $line + 6 HotKeySet ("{enter}", "read_func") EndIf If $kill Then HotKeySet ("{enter}") $string = StringTrimLeft ($Input, 11) Send (@CRLF & "Killing " & $string & "...") $PID = ProcessExists ($string & ".exe") If $PID Then ProcessClose ($PID & ".exe") Send (@CRLF & "Shell:") $line = $line + 4 Else Send (@CRLF & "FATAL ERROR: could not find progress" & "..." & @CRLF & "Shell:") $line = $line + 6 EndIf HotKeySet ("{enter}", "read_func") Else If $tcmd Then HotKeySet ("{enter}") WinSetTrans ("Terminal", "", 128) Send (@CRLF & "Shell:") $line = $line + 4 HotKeySet ("{enter}", "read_func") Else If $transparent Then HotKeySet ("{enter}") $string = StringTrimLeft ($Input, 18) Send (@CRLF & "transparent " & $string & @CRLF & "Shell:") $line = $line + 4 Sleep (100) HotKeySet ("{enter}", "read_func") WinSetTrans ($string, "", 128) If @error Then HotKeySet ("{enter}") $string = StringTrimLeft ($Input, 10) Send (@CRLF & "FATAL ERROR: could not find external window title" & "..." & @CRLF & "Shell:") $line = $line + 4 Sleep (100) HotKeySet ("{enter}", "read_func") EndIf Else If $untrans Then HotKeySet ("{enter}") $string = StringTrimLeft ($Input, 14) Send (@CRLF & "untransparent " & $string & @CRLF & "Shell:") $line = $line + 4 Sleep (100) HotKeySet ("{enter}", "read_func") WinSetTrans ($string, "", 255) If @error Then HotKeySet ("{enter}") $string = StringTrimLeft ($Input, 10) Send (@CRLF & "FATAL ERROR: could not find external window title" & "..." & @CRLF & "Shell:") $line = $line + 4 Sleep (100) HotKeySet ("{enter}", "read_func") EndIf Else If $run Then HotKeySet ("{enter}") $string = StringTrimLeft ($Input, 10) Send (@CRLF & "running " & $string & "..." & @CRLF & "Shell:") $line = $line + 4 Sleep (100) HotKeySet ("{enter}", "read_func") Run ($string) If @error Then HotKeySet ("{enter}") $string = StringTrimLeft ($Input, 10) Send (@CRLF & "FATAL ERROR: could not find external program" & "..." & @CRLF & "Shell:") $line = $line + 4 Sleep (100) HotKeySet ("{enter}", "read_func") EndIf Else If $aptgetupdate Then Run(@ScriptDir&"\update.exe") Exit Else If $play Then HotKeySet ("{enter}") $string = StringTrimLeft ($Input, 11) Send (@CRLF & "running " & $string & "..." & @CRLF & "Shell:") $line = $line + 4 Sleep (100) HotKeySet ("{enter}", "read_func") SoundPlay ($string) If @error Then HotKeySet ("{enter}") $string = StringTrimLeft ($Input, 10) Send (@CRLF & "FATAL ERROR: could not find external program" & "..." & @CRLF & "Shell:") $line = $line + 4 Sleep (100) HotKeySet ("{enter}", "read_func") EndIf Else If $delfile Then HotKeySet ("{enter}") $string = StringTrimLeft ($Input, 11) Send (@CRLF & "Deleting" & $string & "..." & @CRLF & "Shell:") $line = $line + 4 Sleep (100) HotKeySet ("{enter}", "read_func") FileDelete ($string) If @error Then HotKeySet ("{enter}") $string = StringTrimLeft ($Input, 10) Send (@CRLF & "FATAL ERROR: could not delete file" & "..." & @CRLF & "Shell:") $line = $line + 4 Sleep (100) HotKeySet ("{enter}", "read_func") EndIf Else If $soundvol Then HotKeySet ("{enter}") $string = StringTrimLeft ($Input, 15) SoundSetWaveVolume ($string) Send (@CRLF & "Volume has been set to : " & $string & "%" & @CRLF & "shell:") $line = $line + 4 Sleep (100) HotKeySet ("{enter}", "read_func") Else If $ipconfig Then HotKeySet ("{enter}") Send (@CRLF & "Your IP address is :" & @IPAddress1 & @CRLF & "shell:") $line = $line + 4 Sleep (100) HotKeySet ("{enter}", "read_func") Else ;~ COPY If $filecopy Then $Comm=StringSplit($Input,"+") MsgBox(0,"",$Comm[0]) If $Comm[0]=3 Then HotKeySet ("{enter}") Send (@CRLF & "Copying :" & $Comm[2]&" to: "&$Comm[3] & @CRLF & "shell:") FileCopy($Comm[2],$Comm[3]) $line = $line + 4 Sleep (100) HotKeySet ("{enter}", "read_func") Else HotKeySet ("{enter}") Send (@CRLF & "Incorrect number of parameters in function call"& @CRLF & "shell:") $line = $line + 4 Sleep (100) HotKeySet ("{enter}", "read_func") EndIf ;~ COPY#2 Else If $attribset Then $Comm=StringSplit($Input,"+") MsgBox(0,"",$Comm[0]) If $Comm[0]=3 Then HotKeySet ("{enter}") Send (@CRLF & "Copying :" & $Comm[2]&" to: "&$Comm[3] & @CRLF & "shell:") FileSetAttrib($Comm[2],$Comm[3]) $line = $line + 4 Sleep (100) HotKeySet ("{enter}", "read_func") Else HotKeySet ("{enter}") Send (@CRLF & "Incorrect number of parameters in function call"& @CRLF & "shell:") $line = $line + 4 Sleep (100) HotKeySet ("{enter}", "read_func") EndIf Else If $dircopy Then $Comm=StringSplit($Input,"+") MsgBox(0,"",$Comm[0]) If $Comm[0]=3 Then HotKeySet ("{enter}") Send (@CRLF & "Copying :" & $Comm[2]&" to: "&$Comm[3] & @CRLF & "shell:") DirCopy($Comm[2],$Comm[3]) $line = $line + 4 Sleep (100) HotKeySet ("{enter}", "read_func") Else HotKeySet ("{enter}") Send (@CRLF & "Incorrect number of parameters in function call"& @CRLF & "shell:") $line = $line + 4 Sleep (100) HotKeySet ("{enter}", "read_func") EndIf Else If $filemove Then $Comm=StringSplit($Input,"+") MsgBox(0,"",$Comm[0]) If $Comm[0]=3 Then HotKeySet ("{enter}") Send (@CRLF & "Copying :" & $Comm[2]&" to: "&$Comm[3] & @CRLF & "shell:") FileMove($Comm[2],$Comm[3]) $line = $line + 4 Sleep (100) HotKeySet ("{enter}", "read_func") Else HotKeySet ("{enter}") Send (@CRLF & "Incorrect number of parameters in function call"& @CRLF & "shell:") $line = $line + 4 Sleep (100) HotKeySet ("{enter}", "read_func") EndIf ;~ END COPY Else HotKeySet ("{enter}") Send (@CRLF & "'" & $command & "'" & "is not a valid command" & @CRLF & "shell:") $line = $line + 4 Sleep (100) HotKeySet ("{enter}", "read_func") EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndFunc ;==>read_func Func sys () HotKeySet ("{enter}") ;~ run("notepad") $VOL = DriveGetLabel ("C:\") $SERIAL = DriveGetSerial ("C:\") $TOTAL = DriveSpaceTotal ("C:\") $FREE = DriveSpaceFree ("C:\") $FS = DriveGetFileSystem ("C:\") ;~ WinWaitActive("Untitled - Notepad") ;~ WinSetTitle("Untitled - Notepad","","system") ClipPut (@CRLF & "monitor:") Send ("^v{enter}") ClipPut ("Ekraanilaius: " & @DesktopWidth) Send ("^v{enter}") ClipPut ("Ekraanik Link to comment Share on other sites More sharing options...
Moderators SmOke_N Posted November 13, 2007 Moderators Share Posted November 13, 2007 You were told in your support thread why it didn't work... so fix it. Common sense plays a role in the basics of understanding AutoIt... If you're lacking in that, do us all a favor, and step away from the computer. Link to comment Share on other sites More sharing options...
Recommended Posts