NegativeNrG Posted February 20, 2006 Posted February 20, 2006 (edited) Hello, ive created a new Tool that will help others with doing stuff. The following Are built-in AutoIt Functions(more to come.) SCREENSHOT: /FileCreate - Creates A File. Syntax: /Filecreate File OR Path(Path is recommended.) /StringReverse - Reverses a certain string. Syntax: /StringReverse String /start - Runs a program. Syntax: /start File /StringLen - Returns # of a string. Syntax: /Stringlen string /ProcessClose - Closes a Process. Syntax: /ProcessClose Process.exe Also, the "/help" Command is available, but it doesnt show all the functions. ill be adding more functions soon. SOURCE NOT INCLUDED, SORRY source: expandcollapse popup#include <GUIConstants.au3> #Include <Misc.au3> #include <GUIConstants.au3> #Include <File.au3> #Include <GUIedit.au3> ; == GUI generated with Koda == $Form1 = GUICreate("Autoit Command v0.2b", 401, 282, 317, 339) $Edit1 = GUICtrlCreateEdit("", 0, 16, 401, 265, $WS_EX_CLIENTEDGE) GUICtrlSetData($Edit1, "") GUICtrlSetBkColor(-1, 0x000000) GUIctrlsetcolor($Edit1,16777215) $Input1 = GUICtrlCreateInput("", 0, 0, 265, 21, -1, $WS_EX_CLIENTEDGE) GUIctrlsetcolor($Input1,16777215) GUICtrlSetBkColor(-1, 0x000000) $Button1 = GUICtrlCreateButton("Send", 264, 0, 81, 17,$BS_DEFPUSHBUTTON) $Button2 = GUICtrlCreateButton("About", 344, 0, 57, 17) GUISetState(@SW_SHOW) While 1 $msg = GuiGetMsg() Select Case $msg = $GUI_EVENT_CLOSE ExitLoop Case $msg = $Button1 $text = GUictrlread($Input1) if StringLeft($text,6) = "/start" Then start() Elseif StringLeft($text,13) = "/Processclose" Then Process() Elseif StringLeft($text,5) = "/help" Then Help() Elseif StringLeft($text,10) = "/stringlen" Then len() Elseif StringLeft($text,14) = "/StringReverse" Then reverse() Elseif StringLeft($text,10) = "/Filewrite" Then FileW() Elseif StringLeft($text,11) = "/Filecreate" Then create() Elseif StringLeft($text,8) ="/ListPID" Then PID() Endif GUIctrlsetdata($Edit1,GUIctrlread($Edit1) & @CRLF & @CRLF & $text) _GUIctrlEditLineScroll($Edit1,0,_GUIctrlEDITGetLineCount($Edit1)) GUictrlsetdata($Input1,'') Case $msg = $Button2 Msgbox(0,'Command Prompt','Autoit Command by NegativeNrG' & @CRLF & @CRLF & 'This tool is designed to help people with functions, instead of looking up each function.') Case Else ;;;;;;; EndSelect WEnd Func PID() $Processlist = ProcessList() For $i = 1 to $Processlist[0][0] GUIctrlsetdata($Edit1, 'Process | ' & 'pID' & @CRLF & $Processlist[$i][0] & ' ' & $Processlist[$i][1]) Next EndFunc Func reverse() Local $stringtoreverse = StringTrimLeft(StringStripWS(GUictrlread($Input1),2),15) $sin = _StringReverse($stringtoreverse) ;GUictrlsetdata($Edit1,GUictrlread($EDit1) & @CRLF & @CRLF & $sin) GUIctrlsetdata($Edit1,$sin) _GUIctrlEditLineScroll($Edit1,0,_GUIctrlEDITGetLineCount($Edit1)) EndFunc Func Process() Local $Process = StringTrimLeft(StringStripWS(GUIctrlread($Input1),2),14) if PRocessExists($Process) Then ProcessCLose($Process) ;GUIctrlsetdata($Edit1,GUIctrlread($Edit1) & @CRLF & @CRLF & 'Process Successfully Closed') GUIctrlsetdata($Edit1,'Process Successfully Closed') _GUIctrlEditLineScroll($Edit1,0,_GUIctrlEDITGetLineCount($Edit1)) Else ;GUictrlsetdata($Edit1,GUictrlread($Edit1) & @CRLF & @CRLF & 'Process Doesnt Exists') GUIctrlsetdata($Edit1,'Process Doesnt Exists') _GUIctrlEditLineScroll($Edit1,0,_GUIctrlEDITGetLineCount($Edit1)) Endif EndFunc ;Func FileW() ;Local $Source = StringTrimLeft(StringStripWS(GUIctrlread($Input1),2),11) ;Local $data = StringTrimLeft(StringStripWS(GUIctrlread($Input1),2),17) ;$FileOp = FIleOpen($Source,2) ;FileWrite($FileOp,$data) ;FileClose($FileOp) ;EndFunc Func create() Local $filetocreate = StringTrimLeft(StringStripWS(GUIctrlread($Input1),2),12) _FileCreate($filetocreate) if not @error Then ;GUictrlsetdata($Edit1,GUictrlread($Edit1) & @CRLF & @CRLF & 'File Successfully created') GUIctrlsetdata($Edit1,'File Successfully created') _GUIctrlEditLineScroll($Edit1,0,_GUIctrlEDITGetLineCount($Edit1)) Else ;GUictrlsetdata($Edit1,GUictrlread($Edit1) & @CRLF & @CRLF & 'Error Creating File') GUIctrlsetdata($Edit1,'Error Creating File') _GUIctrlEditLineScroll($Edit1,0,_GUIctrlEDITGetLineCount($Edit1)) EndIf EndFunc Func len() Local $Len = StringTrimLeft(StringStripWS(GUIctrlread($Input1),2),11) $string = StringLen($Len) ;GUictrlsetdata($Edit1,GUictrlread($Edit1) & @CRLF & @CRLF & 'Number of Characters: ' & $string) GUIctrlsetdata($Edit1,'Number of Characters: ' & $string) _GUIctrlEditLineScroll($Edit1,0,_GUIctrlEDITGetLineCount($Edit1)) EndFunc Func help() $GUIread = GUIctrlread($Edit1) ;GUictrlsetdata($Edit1,$GUIread & @CRLF & @CRLF & '/ProcessClose - Closes a Process' & @CRLF & 'Syntax:' & @CRLF & '/ProcessClose processname.exe'& @CRLF & @CRLF & '/start - Runs a Program' & @CRLF & 'Syntax:' & @CRLF & '/start program.exe' & @CRLF & @CRLF & '/help - List of Available Commands' & @CRLF & @CRLF & '/StringLen - Returns Number of Characters in a String' & @CRLF & 'Syntax:' & @CRLF & '/StringLen String') GUIctrlsetdata($Edit1,'/ProcessClose - Closes a Process' & @CRLF & 'Syntax:' & @CRLF & '/ProcessClose processname.exe'& @CRLF & @CRLF & '/start - Runs a Program' & @CRLF & 'Syntax:' & @CRLF & '/start program.exe' & @CRLF & @CRLF & '/help - List of Available Commands' & @CRLF & @CRLF & '/StringLen - Returns Number of Characters in a String' & @CRLF & 'Syntax:' & @CRLF & '/StringLen String') _GUIctrlEditLineScroll($Edit1,0,_GUIctrlEDITGetLineCount($Edit1)) EndFunc Func start() Local $File = StringTrimLeft(StringStripWS(GUICtrlRead($Input1), 7), 7) If FileExists($File) Then ;RunWait('"' & $File & '"') Run($File) If Not @error Then GUIctrlsetdata($Edit1,GUIctrlread($Edit1) & @CRLF & @CRLF & 'File Successfully Executed') _GUIctrlEditLineScroll($Edit1,0,_GUIctrlEDITGetLineCount($Edit1)) EndIf If @error Then GUIctrlsetdata($Edit1,GUIctrlread($Edit1) & @CRLF & @CRLF & 'Cannot Find File') _GUIctrlEditLineScroll($Edit1,0,_GUIctrlEDITGetLineCount($Edit1)) EndIf EndIf ;RunWait($File) EndFunc Func _StringReverse($sString) ;============================================== ; Local Constant/Variable Declaration Section ;============================================== Local $sReverse Local $iCount If StringLen($sString) >= 1 Then For $iCount = 1 To StringLen($sString) $sReverse = StringMid($sString, $iCount, 1) & $sReverse Next Return $sReverse Else SetError(1) Return "" EndIf EndFunc;==>_StringReverse idiots, dont have to start yelling at me, when theres no source, seriously. Command.zip Edited February 21, 2006 by NegativeNrG [size=20]My File Upload[/size]Register at my site and upload.
Valuater Posted February 20, 2006 Posted February 20, 2006 so... what is the difference of /Filecreate File OR Path(Path is recommended.) and FileOpen ( "filename", 1 ) ????? learn another language for the same purpose??? 8)
themax90 Posted February 20, 2006 Posted February 20, 2006 First off, no base line. What's this blues doin' here without WHAT this thing is. Second, No source. NO ONE will run this without posting source kid. Third, if you are making a remote server, it's already been done, and you can simply get ANY command in autoit remotely by using this: Func AutoItExecute($Cmd) RunWait(@AutoItExe & ' /AutoIt3ExecuteLine "' & $Cmd & '"') EndFunc No double quotes or syntax errors on using this please. The biggest point is no one will use it without a source posted, and please don't get angry at it, we will not be tricked by hacking newbies thinking they can pull a fast one on us. Goodluck with WHATEVER this "thing" is anyways. AutoIt Smith
NegativeNrG Posted February 20, 2006 Author Posted February 20, 2006 ..rofl, cant i just help with just contributing my "simple" work? you dont have to "flame me" with all this shit, so what if im a kid? your still a kid, a teen or w/e but still. and so what if i hack? am i hacking? how do you know im hacking?. and LOOK at the Description under this forum.A forum to share your cools scripts, User Defined Functions and applications with others.This is NOT a general support forum! [size=20]My File Upload[/size]Register at my site and upload.
Valuater Posted February 20, 2006 Posted February 20, 2006 i just asked for a straight answer... even though some things AutoitSmith said are true.. like others here will not use a source unseen 8)
NegativeNrG Posted February 20, 2006 Author Posted February 20, 2006 well, i wasnt talking to you val, and its just helping people, a faster way to "save space" by not using/making a new script. and i never knwe about the "autoitexecwhateva". And every person who makes programs Does Not have to release the source code? why? it would be a dumb thing. [size=20]My File Upload[/size]Register at my site and upload.
Sokko Posted February 20, 2006 Posted February 20, 2006 And every person who makes programs Does Not have to release the source code? why?Because no one in their right mind will ever run an executable unless they implicitly trust the source. Executables can contain anything, it could be a virus, trojan, keylogger, format your hard drive, etc. No, you aren't required to show the source code of your program, but if you don't, you're asking a bunch of strangers to place an awful lot of trust in you, and not many people would be willing to do that.
ryeguy Posted February 20, 2006 Posted February 20, 2006 (edited) No source? No thanks. Why are you not giving out the source anyways? It's not like you made something that everyone is gonna steal and sell or something. Edited February 20, 2006 by ryeguy
KXM Posted February 20, 2006 Posted February 20, 2006 (edited) I don't understand, it looks like all for the functions of you program come with the default autoit install. (Hell 2.64 should do all of that) At best it's an autoit based command prompt, without all that messy usefullness of CMD.exe? I could see not posting the source of something some one might like to steal, but at best this is 100 lines (Mostly calling Autoit builtins). Edited February 20, 2006 by KXM
themax90 Posted February 20, 2006 Posted February 20, 2006 Besides dude, I still have a zipped copy of a decompiler somewhere on my harddrive, if I REALLY wanted to, I could decompile the excutable. Since this decompiler is still out there, I advise you to search for a script caled EnCode It and Encode you source before you compile it.It's the simple rule of posting:No ReputationNo SourceNo DownloadsAutoIt Smith
theguy0000 Posted February 20, 2006 Posted February 20, 2006 No source, no downloads. End of story. The cake is a lie.www.theguy0000.com is currentlyUP images.theguy0000.com is currentlyUP all other *.theguy0000.com sites are DOWN
Valuater Posted February 21, 2006 Posted February 21, 2006 Hey Now!!! Thats alot of NegativeNrG guys!!! 8)
NegativeNrG Posted February 21, 2006 Author Posted February 21, 2006 go? decompile it then. if its a virus, then sucks on me, if it isnt, you need to learn. [size=20]My File Upload[/size]Register at my site and upload.
NegativeNrG Posted February 21, 2006 Author Posted February 21, 2006 posted the source code, happy?. why da hell would i put a virus in there? and get my ass banned? seriously man, im not that type of person. [size=20]My File Upload[/size]Register at my site and upload.
Moderators SmOke_N Posted February 21, 2006 Moderators Posted February 21, 2006 Besides dude, I still have a zipped copy of a decompiler somewhere on my harddrive, if I REALLY wanted to, I could decompile the excutable. Since this decompiler is still out there, I advise you to search for a script caled EnCode It and Encode you source before you compile it.It's the simple rule of posting:AutoIt Smith 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.
themax90 Posted February 21, 2006 Posted February 21, 2006 Why are you so negitive. I am saying there is a possibility it is, and that there IS a decompiler that some people have allowing to retreive the source. My advice was simply either post the source, or encode the source before compiling if you really don't want someone to get hold of it. I'm just trying to help and you being overdramatic is no way to yeild happy results. Good Day! AutoIt Smith
greenmachine Posted February 21, 2006 Posted February 21, 2006 Hello, ive created a new Tool that will help others with doing stuff. The following Are built-in AutoIt Functions(more to come.) [... lots o' stuff ...] idiots, dont have to start yelling at me, when theres no source, seriously. Boy, you have a LOT to learn about the world. Besides, what's so special about some Koda-generated code that you don't want anyone to see it?
NegativeNrG Posted February 21, 2006 Author Posted February 21, 2006 (edited) Boy, you have a LOT to learn about the world.HAHA, LMAO, thats the funniest thing i heard today. Are you that stupid?.and umm, its not about the gui, of course i generated it with koda, but why da hell would i spend countless hours doing the GUI, when theres another program that would do it?.Thats all, im gonna say, i dont wanna have a flame war. neither do you, or any other person. im just TRYING to help people. Edited February 21, 2006 by NegativeNrG [size=20]My File Upload[/size]Register at my site and upload.
Valik Posted February 21, 2006 Posted February 21, 2006 Guys, lay off people who don't post source. If you don't want to run something, don't run it but shut up about it. We don't need no "ooh, open source is great, everything should be open source" crap. If somebody doesn't want to post the source and you don't trust them, don't run the code. Its as simple as that. We don't need all the "we can't trust you because you didn't post the source" posts. People can do whatever they want with a script that they wrote; it is their creation so respect people's right to distribute their own work as they see fit.
NegativeNrG Posted February 21, 2006 Author Posted February 21, 2006 (edited) Thank you, i hope there won't be any arguements, from now on. Edited February 21, 2006 by NegativeNrG [size=20]My File Upload[/size]Register at my site and upload.
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now