Jump to content

Bug,terminal scripting

au3scr

By au3scr,
in AutoIt General Help and Support

 Share

Recommended Posts

au3scr Universalist

au3scr

Posted
Posted

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
  • Moderators
SmOke_N Universalist

SmOke_N

Posted
  • Moderators
Posted

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
Guest
This topic is now closed to further replies.
 Share
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...