#cs
Nome del programma: -I.Ren console-
Descrizione: Nuovo mini linguaggio di programmazzione... [Non può essere veramente definito un linguaggio di programmazione, pèoichè non ci sono variabili, cicli ecc., ma può assomigliare molto al batch]
Comandi:
Reset: cancella tutto quello che c'è scritto nello schermo, ma lasciando la stringa: welcome to -I.Ren console- live command line. Sintassi: reset
Write: Stampa a schermo una parola o una frase. Sintassi: write, testo
Popup: Crea un popup, con titolo, e testo scelto prima. Sintassi: popup, titolo, testo
Exit: Esce dal programma. Sintassi: Exit
Run: Fa partire un file exe. Sintassi: run, programma.exe
Program: Fa partire un programma (scite, o -I.Ren console-). Sintassi: program, au3 (oppure), -i.ren console-
input popup: Crea una inputbox. Sintassi: input popup, titolo, testo
xcopy: Taglia un file. Sintassi: xcopy, pathFile, destinazioneFile
FileCopy: copia un file. Sintassi: filecopy, pathFile, destinazioneFile
Computer: mostra le informazioni sul computer. Sintassi: computer
Gui: crea una nuova gui (interfaccia grafica). Sintassi: Gui, width, height. Esempio: Gui, 700,600
Title: Cambia il titolo della gui create con il comando: Gui. Sintassi: title, nuovoTitolo. Esempio: Gui, 700,600 {invio} title, esempio {invio}
Color: Cambia il colore della console. Sintassi: color, green (oppure) black (oppure) pink (oppure) rose (oppure) blue
new color: Selezioni te il colore della console. Sintassi: new color, 0xCodiceColore. Esempio: new colore, 0xFF0000
beep: suona un 'beep'. Sintassi: beep, frequenza, durata. Esempio: beep, 500,1000
cd: Apre o chiude il cd. Sintassi: cd, open (oppure) close.
download: scarica un file da internet. Sintasssi: download, urlInternet, destinazioneFile
regwrite: scrive una chiave di registro. Sintassi: Regwrite,nomeDellaChiave,ValoreDellaChiave,TipoDiChiave,Valore. Esempio: regwrite, HKEY_LOCAL_MACHINE\SOFTWARE\Test, asd, REG_SZ, Esempio
regread: legge una chiave di registro. Sintassi: Regread,nome della chiave, valore della chiave. Esempio: regread, HKEY_LOCAL_MACHINE\SOFTWARE\Test, asd
regdelete: elimina una chiave di registro. Sintassi: regdelete, nomeDellaChiave,ValoreDellaChiave. Esempio: regdelete, HKEY_LOCAL_MACHINE\SOFTWARE\Test, asd
filecreate: crea un file. Sintassi: filecreate, nomeFile.estensione, testoDelFile
fileread: legge un file. Sintass: fileread, nomeFile.estensione
inicreate: crea un'ini file. Sintassi: inicreate,nomeFile.estensione, sezione, chiave, valore.
iniread: legge un'ini file. Sintassi: iniread,nomeFile.estensione,sezione,chiave,defoult
inidelete: elimina una parte di un'ini file. Sintassi: inidelete,nomeFile.estensione,Sezione
logCreate: crea un file log. Sintassi: logcreate, nomeFile.estensione, chiave
process: crea una lista con tutti i processi attivi. Sintassi: process
clear: cancella tutto quello scritto nello schermo. Sintassi: clear
bye: a seconda del parametro ti spegne, riavvia, log off, il pc. Sintassi: bye, codice. Per vedere i codici scrivere nella riga di comando: help, shutdown
bat: esegue un comando batch. Sintassi: bat, comando
screencapture: cattura uno screenshot. Sintass: screencapture, nomefile.estensione, aspetta
______________________________________________________________________________________________________________________________________________________________________________________________________________
ATTENZIONE: Per maggiore informazioni sui comandi scrivere nella linea di comando: help, comando. N.B.: nel help non appariranno tutti questi comandi perchè alcuni non sapevo come scriverli in inglese :P .. Comunque quelli che ci sono sono questi:
-popup
-write
-reset
-computer
-shutdown
-Exit
-beep
-color
-CD
-?
-title
-gui
#ce
#include <guiconstants.au3>
#include <misc.au3>
#include <string.au3>
#include <array.au3>
#include <inet.au3>
#include <file.au3>
#include <process.au3>
#include <screencapture.au3>
AutoItSetOption ("TrayIconDebug", 1)
Global $var = _ArrayCreate("State 0", "State 0", "State 0", "State 0", "State 0", "State 0", "State 0", "State 0", "State 0", "State 0", "State 0", "State 0", "State 0", "State 0", "State 0", "State 0", "State 0", "State 0", "State 0", "State 0", "State 0")
Call ("ConsoleInterface")
Func ConsoleInterface ()
Global $f11pressed = 0
Global $Form1 = GUICreate("-I.Ren console-", 500, 480)
Global $IRenconsoleGroup1 = GUICtrlCreateGroup("-I.Ren console- Central",4, 5, 492, 468, 0)
Global $Execute = GUICtrlCreateButton("Execute", 390, 440, 97, 20, 0,0 + 40)
Global $cLine = GUICtrlCreateInput("about", 6, 440, 384, 21)
GUICtrlSetBkColor(-1,0x000000)
GUICtrlSetFont($cLine,9,4000,1,'Courier new')
GUICtrlSetColor($cLine,0xFFFFFFF)
Global $txt = GUICtrlCreateEdit("", 6, 20, 480, 420, $ES_READONLY + $WS_VSCROLL + 40)
Global $font = "courier new"
Global $textline = ("> Welcome to the -I.Ren console- live command line!")
GUICtrlSetFont(-1, 9, 400, 1, $font)
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetColor(-1, 0x7FFF00)
GUICtrlSetData($txt, $textline & @CRLF)
GUISetState(@SW_SHOW)
GUISetState($Execute, $GUI_DEFBUTTON)
While 1
$msg = GuiGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
Exit
Case _IsPressed("1B")
Exit
Case _IsPressed("7A")
If $f11pressed = 0 Then
GUICtrlSetStyle($Form1, $WS_MAXIMIZE)
$f11pressed = 1
ElseIf $f11pressed = 1 Then
GUICtrlSetState($Form1, $WS_MINIMIZE)
$f11pressed = 0
EndIf
Case $msg = $GUI_EVENT_CLOSE
Exit
Case $msg = $Execute
$cLineRead = GuiCtrlRead($cLine)
$stringmid = StringMid($cLineRead, 0)
If $stringmid > 200 Then
_ConsoleWrite("ERROR! Cannot parse command.")
ExitLoop
EndIf
Global $string = StringSplit($cLineRead, Chr(44))
If $string[0] > 0 Then
$string[1] = _TrimSpaces($string[1])
$string[1] = StringLower($string[1])
EndIf
If $string[0] > 1 Then
$string[2] = _TrimSpaces($string[2])
$string[2] = StringLower($string[2])
EndIf
If $string[0] > 2 Then
$string[3] = _TrimSpaces($string[3])
$string[3] = StringLower($string[3])
EndIf
If $string[0] > 3 Then
$string[4] = _TrimSpaces($string[4])
$string[4] = StringLower($string[4])
EndIf
Switch $string[1]
Case "reset"
GUICtrlSetFont($txt, 9, 400, 4, $font)
GUICtrlSetBkColor($txt, 0x000000)
GUICtrlSetColor($txt, 0x7FFF00)
GUICtrlSetData($txt, "> Welcome to the -I.Ren console- live command line!")
GUICtrlSetData($cLine, "")
Case "write"
_ConsoleWrite($string[2])
GuiCtrlSetData($cLine,"","")
Case "popup"
MsgBox(0, $string[2], $string[3])
_ConsoleWrite("--------------------------------")
_ConsoleWrite("<popup Executed>")
_ConsoleWrite("--------------------------------")
GuiCtrlSetData($cLine,"","")
Case "exit"
Exit
Case "Run"
If $string[0] = 2 Then
Run ($string[2])
_ConsoleWrite("--------------------------------")
_ConsoleWrite("<run Complete>")
_ConsoleWrite("--------------------------------")
ElseIf $string[0] = 3 Then
If $string[3] = 1 Then
Run (@ScriptDir & "\" & $string[2])
_ConsoleWrite("--------------------------------")
_ConsoleWrite("<run Complete>")
_ConsoleWrite("--------------------------------")
Else
Run ($string[2])
_ConsoleWrite("--------------------------------")
_ConsoleWrite("<run Complete>")
_ConsoleWrite("--------------------------------")
EndIf
Else
_ConsoleWrite("ERROR! Cannot parse command.")
EndIf
GUICtrlSetData($cLine, "", "")
Case "popup+"
If $string[0] = 4 Then
MsgBox($string[2], $string[3], $string[4])
_ConsoleWrite("--------------------------------")
_ConsoleWrite("<popup+ Executed>")
_ConsoleWrite("--------------------------------")
Else
_ConsoleWrite("ERROR! Cannot parse command.")
EndIf
GUICtrlSetData($cLine, "", "")
Case "program"
If $string[0] = 2 Then
Switch $string[2]
Case StringLower("Au3")
Run (@ScriptDir & "\AutoIt3\SciTe\SciTe.exe")
Case StringLower("-I.Ren console-")
_ConsoleWrite("--------------------------------")
_ConsoleWrite("ERROR. Already Running -I.Ren console-!")
_ConsoleWrite("--------------------------------")
EndSwitch
Else
_ConsoleWrite("--------------------------------")
_ConsoleWrite("<error. String Incomplete>")
_ConsoleWrite("--------------------------------")
EndIf
GUICtrlSetData($cLine, "", "")
Case "input popup"
If $string[0] = 3 Then
$input = InputBox($string[2], $string[3])
_ConsoleWrite("--------------------------------")
_ConsoleWrite("<input Popup Executed>")
_ConsoleWrite("--------------------------------")
_ConsoleWrite("<user Wrote: " & $input & ">")
_ConsoleWrite("--------------------------------")
ElseIf $string[0] = 4 Then
If $string[4] = 0 Then
$input = InputBox($string[2], $string[3])
_ConsoleWrite("--------------------------------")
_ConsoleWrite("<input Popup Executed>")
_ConsoleWrite("--------------------------------")
_ConsoleWrite("<user Wrote: " & $input & ">")
_ConsoleWrite("--------------------------------")
ElseIf $string[4] = 1 Then
$input = InputBox($string[2], $string[3], "", "*")
_ConsoleWrite("--------------------------------")
_ConsoleWrite("<input Popup Executed>")
_ConsoleWrite("--------------------------------")
_ConsoleWrite("<user Wrote: " & $input & ">")
_ConsoleWrite("--------------------------------")
Else
_ConsoleWrite("--------------------------------")
_ConsoleWrite("<error. String Incomplete>")
_ConsoleWrite("--------------------------------")
EndIf
Else
_ConsoleWrite("--------------------------------")
_ConsoleWrite("<error. String Incomplete>")
_ConsoleWrite("--------------------------------")
EndIf
GUICtrlSetData($cLine, "", "")
Case "inputpopup"
If $string[0] = 3 Then
$input = InputBox($string[2], $string[3])
_ConsoleWrite("--------------------------------")
_ConsoleWrite("<input Popup Executed>")
_ConsoleWrite("--------------------------------")
_ConsoleWrite("<user Wrote: " & $input & ">")
_ConsoleWrite("--------------------------------")
ElseIf $string[0] = 4 Then
If $string[4] = 0 Then
$input = InputBox($string[2], $string[3])
_ConsoleWrite("--------------------------------")
_ConsoleWrite("<input Popup Executed>")
_ConsoleWrite("--------------------------------")
_ConsoleWrite("<user Wrote: " & $input & ">")
_ConsoleWrite("--------------------------------")
ElseIf $string[4] = 1 Then
$input = InputBox($string[2], $string[3], "", "*")
_ConsoleWrite("--------------------------------")
_ConsoleWrite("<input Popup Executed>")
_ConsoleWrite("--------------------------------")
_ConsoleWrite("<user Wrote: " & $input & ">")
_ConsoleWrite("--------------------------------")
Else
_ConsoleWrite("--------------------------------")
_ConsoleWrite("<error. String Incomplete>")
_ConsoleWrite("--------------------------------")
EndIf
Else
_ConsoleWrite("--------------------------------")
_ConsoleWrite("<error. String Incomplete>")
_ConsoleWrite("--------------------------------")
EndIf
GUICtrlSetData($cLine, "", "")
Case "xcopy"
If $string[0] = 3 Then
FileCopy($string[2], $string[3])
FileDelete($string[2])
_ConsoleWrite("--------------------------------")
_ConsoleWrite("<xcopy Completed>")
_ConsoleWrite("--------------------------------")
Else
_ConsoleWrite("--------------------------------")
_ConsoleWrite("<error. String Incomplete>")
_ConsoleWrite("--------------------------------")
EndIf
Case "filecopy"
If $string[0] = 3 Then
FileCopy($string[2], $string[3])
_ConsoleWrite("--------------------------------")
_ConsoleWrite("<copy Completed>")
_ConsoleWrite("--------------------------------")
Else
_ConsoleWrite("--------------------------------")
_ConsoleWrite("<error. String Incomplete>")
_ConsoleWrite("--------------------------------")
EndIf
Case "filedelete"
If $string[0] = 2 Then
FileDelete($string[2])
_ConsoleWrite("--------------------------------")
_ConsoleWrite("<filedelete Completed>")
_ConsoleWrite("--------------------------------")
Else
_ConsoleWrite("--------------------------------")
_ConsoleWrite("<error. String Incomplete>")
_ConsoleWrite("--------------------------------")
EndIf
Case "file copy"
If $string[0] = 3 Then
FileCopy($string[2], $string[3])
_ConsoleWrite("--------------------------------")
_ConsoleWrite("<copy Completed>")
_ConsoleWrite("--------------------------------")
Else
_ConsoleWrite("--------------------------------")
_ConsoleWrite("<error. String Incomplete>")
_ConsoleWrite("--------------------------------")
EndIf
Case "file delete"
If $string[0] = 2 Then
FileDelete($string[2])
_ConsoleWrite("--------------------------------")
_ConsoleWrite("<filedelete Completed>")
_ConsoleWrite("--------------------------------")
Else
_ConsoleWrite("--------------------------------")
_ConsoleWrite("<error. String Incomplete>")
_ConsoleWrite("--------------------------------")
EndIf
Case "computer"
_ConsoleWrite("> Your username is: " & @Username)
_ConsoleWrite("> Your computer name is: " & @ComputerName)
_ConsoleWrite("> Your Operating System is: " & @OSVersion)
_ConsoleWrite("> Service Pack is: " & @OSServicePack)
_ConsoleWrite("> OS Build: " & @OSBuild)
_ConsoleWrite("> Language: " & @OSLang)
_ConsoleWrite("> Hour: " & @HOUR & ':' & @MIN & ':' & @SEC)
_ConsoleWrite("> Day: " & @MON & ' ' & @MDAY & ' ' & @YEAR)
_ConsoleWrite("> Windows dir " & @WindowsDir)
_ConsoleWrite("> System32 dir " & @SystemDir)
_ConsoleWrite("> Startup dir " & @StartupDir)
_ConsoleWrite("> Active dir " & @ScriptFullPath)
_ConsoleWrite("> Documents dir " & @MyDocumentsDir)
_ConsoleWrite("> Program file dir " & @ProgramFilesDir)
_ConsoleWrite("> Start menu dir " & @StartMenuDir)
_ConsoleWrite("> Temp file dir " & @TempDir)
_ConsoleWrite("> Desktop dir " & @DesktopDir)
_ConsoleWrite("> Monitor width: " & @DesktopWidth)
_ConsoleWrite("> Monitor height: " & @DesktopHeight)
_ConsoleWrite("> Monitor refresh: " & @DesktopRefresh)
_ConsoleWrite("> C:\ drive label: " & DriveGetLabel("C:\"))
_ConsoleWrite("> C:\ drive serial: " & DriveGetSerial("C:\"))
_ConsoleWrite("> C:\ drive space total: " & DriveSpaceTotal("C:\"))
_ConsoleWrite("> C:\ drive space free: " & DriveSpaceFree("C:\"))
_ConsoleWrite("> Ip adress 1: " & @IPAddress1)
_ConsoleWrite("> Ip adress 2: " & _GetIP())
GuiCtrlSetData($cLine, "", "")
Case "gui"
$checkline = GUICtrlRead($cLine)
If $checkline = ">gui" Then
_ConsoleWrite("> You have not specified width and height to create a GUI.")
Else
_ConsoleWrite("> Creating GUI")
Sleep(1000)
_NewGUI()
EndIf
GuiCtrlSetData($cLine, "", "")
Case "title"
WinSetTitle($ngui, "", $string[2])
GuiCtrlSetData($cLine, "", "")
Case "new color"
If $string[0] = 2 Then
GUICtrlSetBkColor($txt, $string[2])
GuiCtrlSetData($cLine, "", "")
EndIf
Case "newcolor"
If $string[0] = 2 Then
GUICtrlSetBkColor($txt, $string[2])
GuiCtrlSetData($cLine, "", "")
EndIf
Case "color"
If $string[0] = 2 Then
Switch $string[2]
Case "green"
GUICtrlSetBkColor($txt, 0xaaffbb)
GuiCtrlSetData($cLine, "", "")
Case "white"
GUICtrlSetBkColor($txt, 0xffffff)
GuiCtrlSetData($cLine, "", "")
Case "blue"
GUICtrlSetBkColor($txt, 0x00ffff)
GuiCtrlSetData($cLine, "", "")
Case "rose"
GUICtrlSetBkColor($txt, 0xddacaa)
GuiCtrlSetData($cLine, "", "")
Case "pink"
GUICtrlSetBkColor($txt, 0xddacee)
GuiCtrlSetData($cLine, "", "")
Case "black"
GUICtrlSetBkColor($txt, 0x000000)
GuiCtrlSetData($cLine, "", "")
Case Else
_ConsoleWrite("--------------------------------")
_ConsoleWrite("<error. String Incomplete>")
_ConsoleWrite("--------------------------------")
EndSwitch
Else
_ConsoleWrite("--------------------------------")
_ConsoleWrite("<error. String Incomplete>")
_ConsoleWrite("--------------------------------")
EndIf
GuiCtrlSetData($cLine, "", "")
Case "screencapture"
If $string[0] = 3 Then
_ScreenCapture_SetBMPFormat(4)
_ScreenCapture_SetJPGQuality(100)
Sleep($string[3])
_ScreenCapture_Capture($string[2])
GuiCtrlSetData($cLine, "", "")
_ConsoleWrite("--------------------------------")
_ConsoleWrite(">Screen captured!")
_ConsoleWrite("--------------------------------")
Else
GuiCtrlSetData($cLine, "", "")
_ConsoleWrite("--------------------------------")
_ConsoleWrite("<error. String Incomplete>")
_ConsoleWrite("--------------------------------")
EndIf
Case "bat"
If $string[0] = 2 Then
_RunDOS($string[2])
GuiCtrlSetData($cLine, "", "")
_ConsoleWrite("--------------------------------")
_ConsoleWrite(">Bat completed")
_ConsoleWrite("--------------------------------")
Else
GuiCtrlSetData($cLine, "", "")
_ConsoleWrite("--------------------------------")
_ConsoleWrite("<error. String Incomplete>")
_ConsoleWrite("--------------------------------")
EndIf
Case "bye"
If $string[0] = 2 Then
Shutdown($string[2])
GuiCtrlSetData($cLine, "", "")
_ConsoleWrite("--------------------------------")
_ConsoleWrite(">Shutdown: ok")
_ConsoleWrite("--------------------------------")
Else
GuiCtrlSetData($cLine, "", "")
_ConsoleWrite("--------------------------------")
_ConsoleWrite("<error. String Incomplete>")
_ConsoleWrite("--------------------------------")
EndIf
Case "clear"
GUICtrlSetData($txt,'','')
GUICtrlSetFont($txt, 9, 400, 4, $font)
GUICtrlSetBkColor($txt, 0x000000)
GUICtrlSetColor($txt, 0x7FFF00)
GUICtrlSetData($cLine, "")
Case "processkill"
If $string[0] = 2 Then
ProcessClose($string[2])
GuiCtrlSetData($cLine, "", "")
_ConsoleWrite("--------------------------------")
_ConsoleWrite(">Process killed")
_ConsoleWrite("--------------------------------")
Else
GuiCtrlSetData($cLine, "", "")
_ConsoleWrite("--------------------------------")
_ConsoleWrite("<error. String Incomplete>")
_ConsoleWrite("--------------------------------")
EndIf
Case "process"
$proc = ProcessList()
for $i = 1 to $proc[0][0]
_ConsoleWrite("> " & $proc[$i][0])
next
GuiCtrlSetData($cLine, "", "")
Case "fileread"
If $string[0] = 2 Then
$c = FileRead($string[2])
GuiCtrlSetData($cLine, "", "")
_ConsoleWrite("--------------------------------")
_ConsoleWrite(">Read: " & $c)
_ConsoleWrite("--------------------------------")
Else
GuiCtrlSetData($cLine, "", "")
_ConsoleWrite("--------------------------------")
_ConsoleWrite("<error. String Incomplete>")
_ConsoleWrite("--------------------------------")
EndIf
Case "logcreate"
If $string[0] = 3 Then
_FileWriteLog($string[2],$string[3])
GuiCtrlSetData($cLine, "", "")
_ConsoleWrite("--------------------------------")
_ConsoleWrite("<logcreate complete>")
_ConsoleWrite("--------------------------------")
Else
GuiCtrlSetData($cLine, "", "")
_ConsoleWrite("--------------------------------")
_ConsoleWrite("<error. String Incomplete>")
_ConsoleWrite("--------------------------------")
EndIf
Case "inidelete"
If $string[0] = 3 Then
IniDelete($string[2],$string[3])
GuiCtrlSetData($cLine, "", "")
_ConsoleWrite("--------------------------------")
_ConsoleWrite("<inidelete complete")
_ConsoleWrite("--------------------------------")
Else
GuiCtrlSetData($cLine, "", "")
_ConsoleWrite("--------------------------------")
_ConsoleWrite("<error. String Incomplete>")
_ConsoleWrite("--------------------------------")
EndIf
Case "iniread"
If $string[0] = 5 Then
$b = IniRead($string[2],$string[3],$string[4],$string[5])
GuiCtrlSetData($cLine, "", "")
_ConsoleWrite("--------------------------------")
_ConsoleWrite(">Read: " & $b)
_ConsoleWrite("--------------------------------")
Else
GuiCtrlSetData($cLine, "", "")
_ConsoleWrite("--------------------------------")
_ConsoleWrite("<error. String Incomplete>")
_ConsoleWrite("--------------------------------")
EndIf
Case "inicreate"
If $string[0] = 5 Then
IniWrite($string[2],$string[3],$string[4],$string[5])
GuiCtrlSetData($cLine, "", "")
_ConsoleWrite("--------------------------------")
_ConsoleWrite("<inicreate complete>")
_ConsoleWrite("--------------------------------")
Else
GuiCtrlSetData($cLine, "", "")
_ConsoleWrite("--------------------------------")
_ConsoleWrite("<error. String Incomplete>")
_ConsoleWrite("--------------------------------")
EndIf
Case "filecreate"
If $string[0] = 3 Then
FileWrite($string[2],$string[3])
GuiCtrlSetData($cLine, "", "")
_ConsoleWrite("--------------------------------")
_ConsoleWrite("<filecreate complete>")
_ConsoleWrite("--------------------------------")
Else
GuiCtrlSetData($cLine, "", "")
_ConsoleWrite("--------------------------------")
_ConsoleWrite("<error. String Incomplete>")
_ConsoleWrite("--------------------------------")
EndIf
Case "reg delete"
If $string[0] = 3 Then
RegDelete($string[2],$string[3])
GuiCtrlSetData($cLine, "", "")
_ConsoleWrite("--------------------------------")
_ConsoleWrite("<regdelete complete>")
_ConsoleWrite("--------------------------------")
Else
GuiCtrlSetData($cLine, "", "")
_ConsoleWrite("--------------------------------")
_ConsoleWrite("<error. String Incomplete>")
_ConsoleWrite("--------------------------------")
EndIf
Case "regdelete"
If $string[0] = 3 Then
RegDelete($string[2],$string[3])
GuiCtrlSetData($cLine, "", "")
_ConsoleWrite("--------------------------------")
_ConsoleWrite("<regdelete complete>")
_ConsoleWrite("--------------------------------")
Else
GuiCtrlSetData($cLine, "", "")
_ConsoleWrite("--------------------------------")
_ConsoleWrite("<error. String Incomplete>")
_ConsoleWrite("--------------------------------")
EndIf
Case "reg read"
If $string[0] = 3 Then
$a = RegRead($string[2],$string[3])
GuiCtrlSetData($cLine, "", "")
_ConsoleWrite("--------------------------------")
_ConsoleWrite(">read: " & $a)
_ConsoleWrite("--------------------------------")
Else
GuiCtrlSetData($cLine, "", "")
_ConsoleWrite("--------------------------------")
_ConsoleWrite("<error. String Incomplete>")
_ConsoleWrite("--------------------------------")
EndIf
Case "regread"
If $string[0] = 3 Then
$a = RegRead($string[2],$string[3])
GuiCtrlSetData($cLine, "", "")
_ConsoleWrite("--------------------------------")
_ConsoleWrite(">read: " & $a)
_ConsoleWrite("--------------------------------")
Else
GuiCtrlSetData($cLine, "", "")
_ConsoleWrite("--------------------------------")
_ConsoleWrite("<error. String Incomplete>")
_ConsoleWrite("--------------------------------")
EndIf
Case "regwrite"
If $string[0] = 5 Then
RegWrite($string[2],$string[3],$string[4],$string[5])
GuiCtrlSetData($cLine, "", "")
_ConsoleWrite("--------------------------------")
_ConsoleWrite("<regwrite complete>")
_ConsoleWrite("--------------------------------")
Else
GuiCtrlSetData($cLine, "", "")
_ConsoleWrite("--------------------------------")
_ConsoleWrite("<error. String Incomplete>")
_ConsoleWrite("--------------------------------")
EndIf
Case "reg write"
If $string[0] = 5 Then
RegWrite($string[2],$string[3],$string[4],$string[5])
GuiCtrlSetData($cLine, "", "")
_ConsoleWrite("--------------------------------")
_ConsoleWrite("<regwrite complete>")
_ConsoleWrite("--------------------------------")
Else
GuiCtrlSetData($cLine, "", "")
_ConsoleWrite("--------------------------------")
_ConsoleWrite("<error. String Incomplete>")
_ConsoleWrite("--------------------------------")
EndIf
Case "download"
If $string[0] = 3 Then
InetGet($string[2],$string[3])
GuiCtrlSetData($cLine, "", "")
_ConsoleWrite("--------------------------------")
_ConsoleWrite("<download complete>")
_ConsoleWrite("--------------------------------")
Else
_ConsoleWrite("--------------------------------")
_ConsoleWrite("<error. String Incomplete>")
_ConsoleWrite("--------------------------------")
GuiCtrlSetData($cLine, "", "")
EndIf
Case "beep"
If $string[0] = 3 Then
Beep($string[2],$string[3])
EndIf
Case "cd"
If $string[0] = 2 Then
Switch $string[2]
Case "open"
$drive = DriveGetDrive( "cdrom" )
CDTray($drive, "open")
_ConsoleWrite("CD Tray Opened")
GuiCtrlSetData($cLine, "", "")
Case "close"
CDTray($drive, "closed")
_ConsoleWrite("CD Tray Closed")
GuiCtrlSetData($cLine, "", "")
Case Else
_ConsoleWrite("--------------------------------")
_ConsoleWrite("<error. String Incomplete>")
_ConsoleWrite("--------------------------------")
EndSwitch
Else
_ConsoleWrite("--------------------------------")
_ConsoleWrite("<error. String Incomplete>")
_ConsoleWrite("--------------------------------")
EndIf
GuiCtrlSetData($cLine, "", "")
Case StringLower("help")
If $string[0] = 2 Then
Switch $string[2]
Case StringLower("popup")
_ConsoleWrite("--------------------------------")
_ConsoleWrite("> Syntax: popup, <title>, <text>")
_ConsoleWrite("> Shows a little popup window")
_ConsoleWrite("> Remarks: none")
_ConsoleWrite("--------------------------------")
Case StringLower("write")
_ConsoleWrite("--------------------------------")
_ConsoleWrite("> Syntax: write, <text>")
_ConsoleWrite("> Places text in this control")
_ConsoleWrite("> Remarks: none")
_ConsoleWrite("--------------------------------")
Case StringLower("reset")
_ConsoleWrite("--------------------------------")
_ConsoleWrite("> Resets all text")
_ConsoleWrite("> Remarks: none")
_ConsoleWrite("--------------------------------")
Case "computer"
_ConsoleWrite("> Syntax: computer")
_ConsoleWrite("> Shows the computer information")
_ConsoleWrite("> Remarks: none")
GuiCtrlSetData($cLine, "", "")
Case "exit"
_ConsoleWrite("> Syntax: exit")
_ConsoleWrite("> Closes the command window")
_ConsoleWrite("> Remarks: none")
GuiCtrlSetData($cLine, "", "")
Case "beep"
_ConsoleWrite("> Syntax: beep {Frequency, Duration}")
_ConsoleWrite("> Plays back a beep to the user")
_ConsoleWrite("> Remarks: Requires numbers e.g. beep, 500, 1000")
GuiCtrlSetData($cLine, "", "")
Case "color"
_ConsoleWrite("> Syntax: color {rose, black, white, green, blue}")
_ConsoleWrite("> Changes the background colour")
_ConsoleWrite("> Remarks: Select one color e.g. color green")
GuiCtrlSetData($cLine, "", "")
Case "cd"
_ConsoleWrite("> Syntax: cd {open,close}")
Case "?"
_ConsoleWrite("> Syntax: help {command in which you need help}")
_ConsoleWrite("> Shows the help information and example. Commands are, help {color, exit, clear, popup, write, beep}")
_ConsoleWrite("> Remarks: Shows help info e.g exit")
GuiCtrlSetData($cLine, "", "")
Case "title"
_ConsoleWrite("> Syntax: title {new title}")
_ConsoleWrite("> Changes the window title")
_ConsoleWrite("> Remarks: Example; title, I.Ren Command Line")
GuiCtrlSetData($cLine, "", "")
Case "gui"
_ConsoleWrite("> Syntax: gui {width, height}")
_ConsoleWrite("> Creates a GUI")
_ConsoleWrite("> Remarks: A random GUI.")
GuiCtrlSetData($cLine, "", "")
Case ""
_ConsoleWrite("You forgot to add a command")
GuiCtrlSetData($cLine, "", "")
Case "gui"
_ConsoleWrite("You haven't added any values to the width and height.")
_ConsoleWrite("Example: gui, 400, 500")
GuiCtrlSetData($cLine, "", "")
Case "shutdown"
_ConsoleWrite("> Remarks:")
_ConsoleWrite(">0 = Logoff")
_ConsoleWrite(">1 = Shutdown")
_ConsoleWrite(">2 = Reboot")
_ConsoleWrite(">4 = Force")
_ConsoleWrite(">8 = Power down")
_ConsoleWrite(">32= Standby")
EndSwitch
Else
_ConsoleWrite("Error with syntax: Help")
_ConsoleWrite("Type in: Help, <command>")
EndIf
GuiCtrlSetData($cLine, "", "")
Case StringLower("about")
_ConsoleWrite("--------------------------------")
_ConsoleWrite("> -I.Ren console-")
_ConsoleWrite("> -I.Ren console- Was Created With AutoIt3 and SciTe4AutoIt3, by I.Ren")
_ConsoleWrite("> This language is licensed to: " & @UserName)
_ConsoleWrite("--------------------------------")
GuiCtrlSetData($cLine, "", "")
Case Else
_ConsoleWrite("Error with syntax: " & $string[1])
_ConsoleWrite("Use help, <command> to find help!")
GuiCtrlSetData($cLine, "", "")
EndSwitch
EndSelect
Wend
EndFunc
Func _ConsoleWrite($text)
Global $textline = ($textline & $text & @CRLF)
GUICtrlSetData($txt, $textline, GUICtrlRead($txt))
EndFunc
Func _TrimSpaces(ByRef $parameter)
Local $string
$string = StringSplit($parameter, "")
If $string[0] > 0 Then
If $string[1] = Chr(32) Then
$string = StringtrimLeft($parameter, 1)
Return $string
Else
Return $parameter
EndIf
EndIf
EndFunc
Func _NewGUI()
Global $nGUI = GuiCreate("New GUI", $string[2], $string[3], -1, -1)
GUISetIcon("shell32.dll", 42)
GuiSetState(@SW_SHOW)
While WinActive($nGUI)
$gMsg = GuiGetMsg()
Switch $gMsg
Case $GUI_EVENT_CLOSE
GUIDelete($nGUI)
EndSwitch
WEnd
EndFunc
Func Terminate ()
Exit
EndFunc
Func Save ()
GUIDelete($Form1)
$filesave = FileSaveDialog("Save File", @ScriptDir & "\Saved Files", "-I.Ren console- Saved Files(*.-I.Ren console-)", 16, "New -I.Ren console- File")
IniWrite($filesave, "Var", "1", $var[1])
_ConsoleWrite("--------------------------------")
_ConsoleWrite("<save Sucsessful>")
_ConsoleWrite("--------------------------------")
Call ("ConsoleInterface")
EndFunc
Func Open ()
GUIDelete($Form1)
$fileload = FileOpenDialog("Open File", @ScriptDir & "\Saved Files", "-I.Ren console- Saved Files(*.-I.Ren console-)", 16)
$var[1] = IniRead($fileload, "Var", 1, "State 0")
Global $var[1]
_ConsoleWrite("--------------------------------")
_ConsoleWrite("<load Sucsessful>")
_ConsoleWrite("--------------------------------")
Call ("ConsoleInterface")
EndFunc
