Jump to content

Creat a new AutoIT script thru SciTE

Rex

By Rex,
in AutoIt Example Scripts

 Share

Recommended Posts

Rex Universalist

Rex

Posted
Posted

Not sure if any one needs this script, but hey i post it anyway ;)

One thing i missed in Scite was a function to create a NewScript with the default .au3 last name, so i wrote this simpel script to add the "service" into Scite :P

;===============================================================================
;
; Program Name:  Creat a new AutoIT script
; Description:    Opens a small gui with a input field, witch alows the
;                  user to type in the name for the new script.
;                  
; Requirement(s):   SciTE
; Return Value(s):  None
; Author(s):        Rex [rexprivat AT hotmail DOT com]
;
; Note:
;                  Script checks the reg to get the install path of
;                  AutoIT and then adds \SciTe\SciTE.exe the the read value
;                   If AutoIT is't installed the script won't work :-(
;===============================================================================
;


#include <GUIConstants.au3>
#include <file.au3>
GUICreate(" Creat A new AutoIT v3 Script", 320,130, @DesktopWidth/2-160, @DesktopHeight/2-45, -1); Creates the gui
$Var = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\AutoIt v3\AutoIt", "InstallDir")
Dim $Path = '"' & $Var & '\SciTe\SciTE.exe"'
Dim $quates = '"'
Global $txt, $Var, $Error, $szDrive, $szDir, $szFName, $szExt
GUICtrlCreateLabel ("Please type name of the new script",  10, 5, 500)   ; 
GUICtrlCreateLabel ('This creates a new AutoIT 3 script, with file save dialog and "run script after creation"',  10, 90, 310, 90)   ; 
$file = GUICtrlCreateInput ( "", 10,  25, 300, 20)
GUICtrlSetState(-1, $GUI_FOCUS)
$OK = GUICtrlCreateButton ("&Creat script",  10, 55, 80, 25, $BS_DEFPUSHBUTTON)
$del = GUICtrlCreateButton ("C&lear",100, 55, 50, 25)
$Exit = GUICtrlCreateButton ("&Exit", 160, 55, 50, 25)
$RunScript = GUICtrlCreateCheckbox ("Auto Run Script", 220, 55, 100);
GUICtrlSetTip(-1, "Opens the newly createt script in SciTE.")
GUICtrlSetState(-1, $GUI_CHECKED)
GUISetState (@SW_SHOW)

While 1
    $msg = GUIGetMsg()
dim $txt = GUICtrlRead($file); Reads the inputfield
Select
    Case $msg = $GUI_EVENT_CLOSE 
        ExitLoop
    Case $msg = $OK
If $txt = "" Then; Checks for empty field, if field is empty we throw a msg
            MsgBox(16, "WUPS", "You MUST type a filename")
            $Error = 1
            EndIf
        If $txt <> "" Then      
save()

EndIf
        Case $msg = $del
        GUICtrlsetData( $file, "")
    Case $msg = $Exit
        Exit
EndSelect
Wend
Func _Exit()
    Exit
EndFunc
Func Save()
$Read = FileReadLine($var & "\SciTe\SciTE.recent", 1)
_PathSplit($Read, $szDrive, $szDir, $szFName, $szExt)
    $var1 = FileSaveDialog( "Choose a name.",  $szDrive & $szDir, "Scripts (*.au3)", 18, $Txt)
; option 3 = dialog remains until valid path/file selected
If FileExists($Var1 & ".Au3") then
    MsgBox(16, "File Exist", "Please Rename Script")
    GUICtrlsetData( $file, "")
ElseIf @error Then
    MsgBox(4096,"","Save cancelled.")
Else
    FileWrite($Var1 & ".au3", "#include <GUIConstants.au3>; Includes GUIConstants.au3 to script)" & @CRLF)
    FileWrite($Var1 & ".au3", "; Script start" & @CRLF)
    $Run = GUICtrlRead($RunScript)
    If $Run = $GUI_CHECKED Then
    Run($Path & " " & $quates & $Var1 & ".au3" & $quates); Opens the new script in SciTE.
    _Exit()
    Else
    _Exit()
EndIf
EndIf
EndFunc

A have added the folowing lines to the au3.properties

# 34 Create a new empty script
command.34.$(file.patterns.au3)="$(SciteDefaultHome)\NewScript\NewScript.exe" /StdOut
command.subsystem.34.$(file.patterns.au3)=1
command.name.34.$(file.patterns.au3)=NewScript
command.shortcut.34.$(file.patterns.au3)=Alt+Shift+N
command.save.before.34.$(file.patterns.au3)=2
command.replace.selection.34.$(file.patterns.au3)=1
command.quiet.34.$(file.patterns.au3)=1

my script is placed in @ProgramfilesDir\AutoIt3\SciTe\NewScript

Link to comment
Share on other sites
  • 1 month later...
Rex Universalist

Rex

Posted
  • Author
Posted

Script updated

;===============================================================================
;
; Program Name: Creat a new AutoIT script
; Description: Opens a small gui with a input field, witch alows the
; user to type in the name for the new script.
; 
; Requirement(s): SciTE
; Return Value(s): None
; Author(s): //>Rex<\\ [rexprivat AT hotmail DOT com]
;
; Note:
; Script checks the reg to get the install path of
; AutoIT and then adds \SciTe\SciTE.exe the the read value
; If AutoIT is't installed the script won't work :-(
;===============================================================================

; Updated 30-10-05
; Now Writes a ini file to @WorkingDir, with last save path
#cs
Include this line into the au3 properties

# 34 Create a new empty script
command.34.$(file.patterns.au3)="$(SciteDefaultHome)\NewScript\NewScript.exe" /StdOut
command.subsystem.34.$(file.patterns.au3)=1
command.name.34.$(file.patterns.au3)=NewScript
command.shortcut.34.$(file.patterns.au3)=Alt+Shift+N
command.save.before.34.$(file.patterns.au3)=2
command.replace.selection.34.$(file.patterns.au3)=1
command.quiet.34.$(file.patterns.au3)=1

#CE

#include <GUIConstants.au3>
#include <file.au3>
GUICreate(" Creat A new AutoIT v3 Script", 320,130, @DesktopWidth/2-160, @DesktopHeight/2-45, -1); Creates the gui
$Var = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\AutoIt v3\AutoIt", "InstallDir"); Reads install path of AutoIT
Dim $Path = '"' & $Var & '\SciTe\SciTE.exe"'; The path of SciTE
Dim $quates = '"'
Global $txt, $Var, $Error, $szDrive, $szDir, $szFName, $szExt
GUICtrlCreateLabel ("Please type name of the new script",  10, 5, 500)   ; 
GUICtrlCreateLabel ('This creates a new AutoIT 3 script, with file save dialog and' & @CRLF & ' "run script after creation"',  10, 90, 310, 90)   ; 
$file = GUICtrlCreateInput ( "", 10,  25, 300, 20)
GUICtrlSetState(-1, $GUI_FOCUS)
$OK = GUICtrlCreateButton ("&Creat script",  10, 55, 80, 25, $BS_DEFPUSHBUTTON)
$del = GUICtrlCreateButton ("C&lear",100, 55, 50, 25)
$Exit = GUICtrlCreateButton ("&Exit", 160, 55, 50, 25)
$RunScript = GUICtrlCreateCheckbox ("Auto Run Script", 220, 55, 100);
GUICtrlSetTip(-1, "Opens the newly createt script in SciTE.")
GUICtrlSetState(-1, $GUI_CHECKED)
GUISetState (@SW_SHOW)
While 1
    $msg = GUIGetMsg()
dim $txt = GUICtrlRead($file); Reads the inputfield
Select
    Case $msg = $GUI_EVENT_CLOSE 
        ExitLoop
    Case $msg = $OK
If $txt = "" Then; Checks for empty field, if field is empty we throw a msg
            MsgBox(16, "WUPS", "You MUST type a filename")
            $Error = 1
            EndIf
        If $txt <> "" Then      
save()

EndIf
        Case $msg = $del
        GUICtrlsetData( $file, "")
    Case $msg = $Exit
        Exit
EndSelect
Wend
Func _Exit()
    Exit
EndFunc
Func Save()
    $Read = IniRead(@WorkingDir & "\Newscript.ini", "Saveto", "Path", @MyDocumentsDir)
_PathSplit($Read, $szDrive, $szDir, $szFName, $szExt)
    $var1 = FileSaveDialog( "Choose a name.",  $szDrive & $szDir, "Scripts (*.au3)", 18, $Txt)
; option 3 = dialog remains until valid path/file selected
If @error = 1 Then
    MsgBox(64,"","Save cancelled.")
ElseIf FileExists($Var1 & ".Au3") then
    MsgBox(16, "File Exist", "Please Rename Script")
    GUICtrlsetData( $file, "")
Else
    FileWrite($Var1 & ".au3", "; Generated by NewScript 3.5" & @CRLF)
    FileWrite($Var1 & ".au3", "#include <GUIConstants.au3>; Includes GUIConstants.au3 to script" & @CRLF)
    FileWrite($Var1 & ".au3", "; Script start" & @CRLF)
    IniWrite(@WorkingDir & "\Newscript.ini", "Saveto", "Path", $szDrive & $szDir)
    $Run = GUICtrlRead($RunScript)
    If $Run = $GUI_CHECKED Then
    Run($Path & " " & $quates & $Var1 & ".au3" & $quates); Opens the new script in SciTE.
    _Exit()
    Else
    _Exit()
EndIf
EndIf
EndFunc
Link to comment
Share on other sites
markusss Adventurer

markusss

Posted
Posted

Hey!

Nice work, but you don't really need a script to do that...

Just posting some stuff you might wanna add to make it helpful:

-Let the script add a comment like this at the beginning of the script:

; ----------------------------------------------------------------------------
; Author:          (let the person enter his name into an inputbox)
; Email:           (let the person enter his email address into an inputbox)
; Version:          (0.1 in most cases)
; AutoItVer:        (let it add the current autoit version, isn't that stored somewhere?)
; AutoItForum:      (leave this blank, but create the line)
; Script Function:
;   (let the user enter a comment into an editbox)
;
; Changelog:
; Modified by: (username)       v0.1 - (current date), first version
;
; ----------------------------------------------------------------------------

-Then you could make the script store the Authorsname and Email address in the registry, so the user won't have to enter it again

Work on it, if you get that stuff implemented, it's gonna be a helpful tool

Felix N.

Link to comment
Share on other sites
Rex Universalist

Rex

Posted
  • Author
Posted (edited)

Hey!

Nice work, but you don't really need a script to do that...

Just posting some stuff you might wanna add to make it helpful:

-Let the script add a comment like this at the beginning of the script:

; ----------------------------------------------------------------------------
; Author:            (let the person enter his name into an inputbox)
; Email:           (let the person enter his email address into an inputbox)
; Version:            (0.1 in most cases)
; AutoItVer:        (let it add the current autoit version, isn't that stored somewhere?)
; AutoItForum:        (leave this blank, but create the line)
; Script Function:
;    (let the user enter a comment into an editbox)
;
; Changelog:
; Modified by: (username)        v0.1 - (current date), first version
;
; ----------------------------------------------------------------------------

-Then you could make the script store the Authorsname and Email address in the registry, so the user won't have to enter it again

Work on it, if you get that stuff implemented, it's gonna be a helpful tool

Felix N.

Ass requested

Script updated B)

:EDIT2

This is getting really helpful now!

The only bug i found:CODEFileWrite($FileSave & ".au3", "; AutoitVer:        " & $ReadScriptVer & @CRLF)

That is supposed to be like this:CODEFileWrite($FileSave & ".au3", "; AutoitVer:        " & $ReadAutoITVer & 
@CRLF)
Bug fixed :o

; ----------------------------------------------------------------------------
; ----------------------------------------------------------------------------
; Author:          //>Rex<\\
; Email:           Rexprivat AT Hotmail DOT com
; Version:         4.0
; AutoItVer:       3.1.1.84 (But don't uses any of the beta Feauteres)
; AutoItForum:
; Script Function:
; Auto creates a new AutoIT v3 (*.au3) script.
; And allows the user to add som comments to the top;-)
; Changelog:
; 30-10-05 >> Added function to store last save path in a ini file writen to @ScriptDir
; 31-10-05 >> Added A comment gui, witch allows user to add some comments to top of the script
; 31-10-05 >> Added Now writes Author Name + Mail to inifile
; ----------------------------------------------------------------------------

#cs
    Include this line into the au3 properties
    
    # 34 Create a new empty script
    command.34.$(file.patterns.au3)="$(SciteDefaultHome)\NewScript\NewScript.exe" /StdOut
    command.subsystem.34.$(file.patterns.au3)=1
    command.name.34.$(file.patterns.au3)=NewScript
    command.shortcut.34.$(file.patterns.au3)=Alt+Shift+N
    command.save.before.34.$(file.patterns.au3)=2
    command.replace.selection.34.$(file.patterns.au3)=1
    command.quiet.34.$(file.patterns.au3)=1
    
#CE

#include <GUIConstants.au3>
#include <file.au3>
#include <Date.au3>

; Start var's
$RegRead = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\AutoIt v3\AutoIt", "InstallDir"); Reads install path of AutoIT
$Version = "4.0"
Dim $AutoITVer = FileGetVersion($RegRead & "\AutoIT3.exe")
Dim $Path = '"' & $RegRead & '\SciTe\SciTE.exe"'; The path of SciTE
Dim $quates = '"'
Global $txt, $RegRead, $Error, $szDrive, $szDir, $szFName, $szExt, $FileSave, $fileName, $ReadComCheck

#region Main Gui Windows
$Main = GUICreate(" New AutoIT v3 script                                  " & $Version, 320, 128, (@DesktopWidth - 320) / 2, (@DesktopHeight - 128) / 2); Main GUI
GUICtrlCreateLabel("Please type the name of the new script", 10, 10, 250, 20)
$fileName = GUICtrlCreateInput("", 10, 30, 300, 20)
GUICtrlSetState(-1, $GUI_FOCUS); Sets focus to the inputfield
$OK = GUICtrlCreateButton("Creat Script", 10, 60, 70, 20, $BS_DEFPUSHBUTTON); Sets button to default push button
$del = GUICtrlCreateButton("Clear", 90, 60, 50, 20)
$Exit = GUICtrlCreateButton("Exit", 150, 60, 50, 20)
$RunScript = GUICtrlCreateCheckbox("Auto run Script", 210, 50, 100, 20)
GUICtrlSetTip(-1, "Opens the newly createt script in SciTE.")
GUICtrlSetState(-1, $GUI_CHECKED)
$AddCom = GUICtrlCreateCheckbox("Add comments", 210, 70, 100, 20)
GUICtrlSetTip(-1, "Shows comment gui and adds comments to the the newly createt script.")
GUICtrlCreateLabel("This will create a new AutoIT v3 script. If checkbox(s) ticked, it will add user comments and / or open the script in SciTE", 10, 90, 300, 30)
GUISetState(@SW_SHOW)
#endregion Main Gui Windows

#region Child Gui Window, Add Comments Window
$Comments = GUICreate(" Comments", 320, 313, (@DesktopWidth - 320) / 2, (@DesktopHeight - 135) / 2, $WS_CAPTION, -1, $Main); Child GUI
GUICtrlCreateLabel("Author name", 10, 10, 210, 20)
$Author = GUICtrlCreateInput("", 10, 30, 290, 20)
GUICtrlCreateLabel("Email", 10, 60, 150, 20)
$Mail = GUICtrlCreateInput("", 10, 80, 290, 20)
GUICtrlCreateLabel("Script Version", 10, 110, 150, 20)
$ScriptVer = GUICtrlCreateInput("", 10, 130, 130, 20)
GUICtrlCreateLabel("AutoIT Version", 170, 110, 140, 20)
$AutoIT_Version = GUICtrlCreateInput($AutoITVer, 170, 130, 130, 20)
GUICtrlCreateLabel("AutoIT Forum", 10, 160, 170, 20)
$Forum = GUICtrlCreateInput("", 10, 180, 290, 20)
GUICtrlCreateLabel("Script Function", 10, 210, 170, 20)
$Function = GUICtrlCreateEdit("", 10, 230, 290, 70)
GUISetState(@SW_HIDE)
#endregion Child Gui Window, Add Comments Window

WinActivate($Main, ""); Activates the Main gui window

While 1
    $msg = GUIGetMsg()
    
    Dim $txt = GUICtrlRead($fileName); Read FileName inputfield
    Select
        Case $msg = $GUI_EVENT_CLOSE
            ExitLoop
        Case $msg = $OK
            If $txt = "" Then; Checks for empty field, if field is empty we throw a msg
                MsgBox(16, "WUPS", "You MUST type a filename")
                $Error = 1
            EndIf
            If $txt <> "" Then
                Save()
                
            EndIf
        Case $msg = $del
            GUICtrlSetData($fileName, "")
        Case $msg = $Exit
            Exit
            
        Case $msg = $AddCom
            $ReadComCheck = GUICtrlRead($AddCom)
            If $ReadComCheck = $GUI_UNCHECKED Then
                GUISetState(@SW_HIDE, $Comments)
                WinMove($Main, "", (@DesktopWidth - 320) / 2, (@DesktopHeight - 128) / 2)
            ;MouseMove((@DesktopWidth+150)/2, (@DesktopHeight+70)/2); Moves mouse curser (to folow the add comment checkbox)
                GUICtrlSetState($fileName, $GUI_FOCUS)
            Else
                GUISetState(@SW_SHOW, $Comments)
                WinMove($Main, "", (@DesktopWidth - 320) / 2, (@DesktopHeight - 441) / 2)
            ;MouseMove((@DesktopWidth+150)/2, (@DesktopHeight-240)/2); Moves mouse curser (to folow the add comment checkbox)
                GUICtrlSetState($Author, $GUI_FOCUS)
                $IniReadAut = IniRead(@ScriptDir & "\Newscript.ini", "Author", "Name", "")
                $iniReadMail = IniRead(@ScriptDir & "\Newscript.ini", "Author", "Mail", "")
                GUICtrlSetData($Author, $IniReadAut)
                GUICtrlSetData($Mail, $iniReadMail)
            EndIf
    EndSelect
WEnd
Func _Exit()
    Exit
EndFunc  ;==>_Exit
Func Save()
    If FileExists(@ScriptDir & "\Newscript.ini") Then
    $ReadINI = IniRead(@ScriptDir & "\Newscript.ini", "Saveto", "Path", @MyDocumentsDir)
    _PathSplit ($ReadINI, $szDrive, $szDir, $szFName, $szExt)
    $FileSave = FileSaveDialog( "Choose a name.", $szDrive & $szDir, "Scripts (*.au3)", 18, $txt)
Else
    $FileSave = FileSaveDialog( "Choose a name.", @MyDocumentsDir, "Scripts (*.au3)", 18, $txt)
    _PathSplit ($FileSave & ".au3", $szDrive, $szDir, $szFName, $szExt)
    EndIf
; option 3 = dialog remains until valid path/file selected
    If @error = 1 Then
        MsgBox(64, "", "Save cancelled.")
    ElseIf FileExists($FileSave & ".Au3") Then
        MsgBox(16, "File Exist", "Please Rename Script")
        GUICtrlSetData($fileName, "")
    ElseIf $ReadComCheck = $GUI_CHECKED Then
        _AddComments()
    Else
        FileWrite($FileSave & ".au3", "; Generated by NewScript 4.0" & @CRLF)
        FileWrite($FileSave & ".au3", "#include <GUIConstants.au3>; Includes GUIConstants.au3 to script" & @CRLF)
        FileWrite($FileSave & ".au3", "; Script start" & @CRLF)
        IniWrite(@ScriptDir & "\Newscript.ini", "Saveto", "Path", $szDrive & $szDir)
        $Run = GUICtrlRead($RunScript)
        If $Run = $GUI_CHECKED Then
            Run($Path & " " & $quates & $FileSave & ".au3" & $quates); Opens the new script in SciTE.
            _Exit()
        Else
            _Exit()
        EndIf
    EndIf
EndFunc  ;==>Save

Func _AddComments()
; Read the controls
    $ReadAuthor = GUICtrlRead($Author)
    $ReadMail = GUICtrlRead($Mail)
    $ReadScriptVer = GUICtrlRead($ScriptVer)
    $ReadAutoITVer = GUICtrlRead($AutoIT_Version)
    $ReadForum = GUICtrlRead($Forum)
    $ReadFunction = GUICtrlRead($Function)
    
; Writes lines
    $ReplaceCR = StringReplace($ReadFunction, @CRLF, @CRLF & "; ")
    FileWrite($FileSave & ".au3", "; Generated by NewScript 4.0" & @CRLF)
    FileWrite($FileSave & ".au3", ";----------------------------------------------------------------------------" & @CRLF)
    FileWrite($FileSave & ".au3", "; Created:          " & _Now() & @CRLF)
    FileWrite($FileSave & ".au3", "; Author:           " & $ReadAuthor & @CRLF)
    FileWrite($FileSave & ".au3", "; Mail:             " & $ReadMail & @CRLF)
    FileWrite($FileSave & ".au3", "; Version:          " & $ReadScriptVer & @CRLF)
    FileWrite($FileSave & ".au3", "; AutoitVer:        " & $ReadAutoITVer & @CRLF)
    FileWrite($FileSave & ".au3", "; AutoItForum:      " & $ReadForum & @CRLF)
    FileWrite($FileSave & ".au3", "; Script Function:" & @CRLF)
    FileWrite($FileSave & ".au3", "; " & $ReplaceCR & @CRLF)
    FileWrite($FileSave & ".au3", "; Changelog:" & @CRLF)
;FileWrite($FileSave & ".au3", "; Modified by:            v0.1 -            , first version" & @CRLF)
    FileWrite($FileSave & ".au3", ";" & @CRLF)
    FileWrite($FileSave & ".au3", "; ----------------------------------------------------------------------------" & @CRLF)
    FileWrite($FileSave & ".au3", "#include <GUIConstants.au3>; Includes GUIConstants.au3 to script" & @CRLF)
    FileWrite($FileSave & ".au3", "; Script start" & @CRLF)
    IniWrite(@ScriptDir & "\Newscript.ini", "Saveto", "Path", $szDrive & $szDir)
    IniWrite(@ScriptDir & "\Newscript.ini", "Author", "Name", $ReadAuthor)
    IniWrite(@ScriptDir & "\Newscript.ini", "Author", "Mail", $ReadMail)
    $Run = GUICtrlRead($RunScript)
    If $Run = $GUI_CHECKED Then
        Run($Path & " " & $quates & $FileSave & ".au3" & $quates); Opens the new script in SciTE.
        _Exit()
    EndIf
EndFunc  ;==>_AddComments

:EDIT

Fixed save path

/Rex

Edited by Rex
Link to comment
Share on other sites
markusss Adventurer

markusss

Posted
Posted (edited)

This is getting really helpful now!

The only bug i found:

FileWrite($FileSave & ".au3", "; AutoitVer:     " & $ReadScriptVer & @CRLF)

That is supposed to be like this:

FileWrite($FileSave & ".au3", "; AutoitVer:     " & $ReadAutoITVer & @CRLF)

I think after a little more betatesting you might wanna post this in the developers/ideas forum so they can add it to SciTe, but don't be depressed if they don't add it, sometimes the devs are kinda strange B) (no offense^^)

Keep it up

Felix

Edited by Felix N.
Link to comment
Share on other sites
  • 2 weeks later...
Rex Universalist

Rex

Posted
  • Author
Posted

Script updated ones again.

Now adds some opt's to the new script..

FileWrite($FileSave & ".au3", "; Opt's Start > --------------------------------------------------------------" & @CRLF)
        FileWrite($FileSave & ".au3", '; Opt("RunErrorsFatal", 1)      ;1=fatal, 0=silent set @error' & @CRLF)
        FileWrite($FileSave & ".au3", '; Opt("GUIOnEventMode", 0)      ;0=disabled, 1=OnEvent mode enabled' & @CRLF)
        FileWrite($FileSave & ".au3", '; Opt("GUICloseOnESC", 1)        ;1=ESC  closes, 0=ESC won' & "'t close" & @CRLF)
        FileWrite($FileSave & ".au3", '; Opt("TrayIconDebug", 0)        ;0=no info, 1=debug line info' & @CRLF)
        FileWrite($FileSave & ".au3", '; Opt("TrayMenuMode",0)        ;0=append, 1=no default menu, 2=no automatic check, 4=menuitemID  not return' & @CRLF)
        FileWrite($FileSave & ".au3", '; Opt("TrayOnEventMode",0)      ;0=disable, 1=enable' & @CRLF)
        FileWrite($FileSave & ".au3", '; Opt("TrayIconHide", 0)      ;0=show, 1=hide tray icon' & @CRLF)
        FileWrite($FileSave & ".au3", '; Opt("TrayAutoPause",1)      ;0=no pause, 1=Pause' & @CRLF)
        FileWrite($FileSave & ".au3", "; Opt's End > ----------------------------------------------------------------" & @CRLF)

Hopes that some one finde this script useful

NewScript.rar

Link to comment
Share on other sites
MHz Universalist

MHz

Posted
Posted

*Hint*

Scite Abbreviations.

You can store any presets like your are showing in Abbreviations.

Type options and press the spacebar within Scite will give you all the AutoIt options.

I now start with a blank script and Abbreviations caters for any preset that I choose to add.

Your new script idea could be a good idea for test scripts. Create them in @Tempdir and they are removed easily on cleanup. That idea could help to keep my desktop clean. I will need to think some more on that idea...as it could be useful.

Link to comment
Share on other sites
Rex Universalist

Rex

Posted
  • Author
Posted

*Hint*

Scite Abbreviations.

You can store any presets like your are showing in Abbreviations.

Type options and press the spacebar within Scite will give you all the AutoIt options.

I know :o

I only included the most used opt's (for my part anyway)

And by doing it this way i allways have the opt's when i creats a new script, and all i have to do is to un comment the ones i need B)

But Abb..'s works to

/Rex

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
Go to topic listing

  • Recently Browsing   0 members

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