Jump to content

Autoit Command.


NegativeNrG
 Share

Recommended Posts

Hello, ive created a new Tool that will help others with doing stuff.

The following Are built-in AutoIt Functions(more to come.)

SCREENSHOT:

Posted Image

/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:

#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 by NegativeNrG

[size=20]My File Upload[/size]Register at my site and upload.

Link to comment
Share on other sites

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

Link to comment
Share on other sites

..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.

Link to comment
Share on other sites

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.

Link to comment
Share on other sites

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.

Link to comment
Share on other sites

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 by KXM
Link to comment
Share on other sites

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 Reputation

No Source

No Downloads

AutoIt Smith

Link to comment
Share on other sites

  • Moderators

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

:o

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

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

Link to comment
Share on other sites

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?

Link to comment
Share on other sites

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 by NegativeNrG

[size=20]My File Upload[/size]Register at my site and upload.

Link to comment
Share on other sites

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.

Link to comment
Share on other sites

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 account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

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