Snippets ( AutoIt ): Difference between revisions

Latest revision as of 21:42, 16 January 2015

Please always credit an author in your script if you use their code. It is only polite.

AutoItWinShow

#include <GUIConstantsEx.au3>

Example()

Func Example()
    ; Display AutoIt's Hidden Window. See AutoItWinGetTitle and AutoItWinSetTitle for more details.
    AutoItWinShow()

    While 1
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE
                ExitLoop
        EndSwitch
    WEnd
EndFunc   ;==>Example

; Display AutoIt's Hidden Window. Returns the handle of the window.
Func AutoItWinShow()
    Local Const $hWnd = WinGetHandle(AutoItWinGetTitle()) ; Get the handle of the AutoIt Hidden Window by finding out the title of the AutoIt Hidden Window.
    WinMove($hWnd, '', (@DesktopWidth / 2) - 250, (@DesktopHeight / 2) - 250, 500, 500) ; Move the AutoIt Hidden Window and re-size for a better view of the data that will be set.
    WinSetState($hWnd, '', @SW_SHOW) ; Show the AutoIt Hidden Window, normally this is hidden, but in the interest of this example I'm displaying it.
    Return $hWnd
EndFunc   ;==>AutoItWinShow

ReturnToContents

AutoItWinGetText

Example()

Func Example()
    ; Display AutoIt's Hidden Window. See AutoItWinGetTitle and AutoItWinSetTitle for more details.
    AutoItWinShow()

    ; Add a text string to AutoIt's Hidden Window. Compile to see the text in AutoIt's Hidden Window.
    AutoItWinSetText('Welcome to AutoIt V' & @AutoItVersion & @CRLF)

    ; Add a text string to AutoIt's Hidden Window. Compile to see the text in AutoIt's Hidden Window.
    AutoItWinSetText('Windows Type: ' & @OSType & @CRLF)

    ; Display the text stored in AutoIt's Hidden Window.
    MsgBox(4096, '', AutoItWinGetText())

    While 1
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE
                ExitLoop
        EndSwitch
    WEnd
EndFunc   ;==>Example

; Retrieve the text in AutoIt's Hidden Window.
Func AutoItWinGetText()
    Local Const $hWnd = WinGetHandle(AutoItWinGetTitle()) ; Get the handle of the AutoIt Hidden Window by finding out the title of the AutoIt Hidden Window.
    Return ControlGetText($hWnd, '', ControlGetHandle($hWnd, '', 'Edit1'))
EndFunc   ;==>AutoItWinGetText

; Add text to AutoIt's Hidden Window.
Func AutoItWinSetText($sString)
    Local Const $hWnd = WinGetHandle(AutoItWinGetTitle()) ; Get the handle of the AutoIt Hidden Window by finding out the title of the AutoIt Hidden Window.
    Return ControlSetText($hWnd, "", ControlGetHandle($hWnd, "", 'Edit1'), ControlGetText($hWnd, '', ControlGetHandle($hWnd, '', 'Edit1')) & $sString)
EndFunc   ;==>AutoItWinSetText

; Display AutoIt's Hidden Window. Returns the handle of the window.
Func AutoItWinShow()
    Local Const $hWnd = WinGetHandle(AutoItWinGetTitle()) ; Get the handle of the AutoIt Hidden Window by finding out the title of the AutoIt Hidden Window.
    WinMove($hWnd, '', (@DesktopWidth / 2) - 250, (@DesktopHeight / 2) - 250, 500, 500) ; Move the AutoIt Hidden Window and re-size for a better view of the data that will be set.
    WinSetState($hWnd, '', @SW_SHOW) ; Show the AutoIt Hidden Window, normally this is hidden, but in the interest of this example I'm displaying it.
    Return $hWnd
EndFunc   ;==>AutoItWinShow

ReturnToContents

_DockToWindow

#include <GUIConstantsEx.au3>
#include <WinAPI.au3>
#include <WindowsConstants.au3>

If (Not ProcessExists("SciTE.exe")) Then
    Exit MsgBox(4096, '', "Please start SciTE.exe")
EndIf

Example()

Func Example()
    ; Create a GUI, similar to SciTE Jump's GUI.
    Local Const $hGUI = GUICreate('', 215, 400, -1, -1, BitOR($GUI_SS_DEFAULT_GUI, $WS_MAXIMIZEBOX, $WS_SIZEBOX))

    GUISetState(@SW_SHOWNORMAL, $hGUI)

    ; Dock the first window to left and adjust the width based on the width of the second GUI.
    _DockToWindow(WinGetHandle("[CLASS:SciTEWindow]"), $hGUI)

    While 1
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE
                ExitLoop
        EndSwitch
    WEnd

    GUIDelete($hGUI)
EndFunc   ;==>Example

Func _DockToWindow(Const $hHandle_1, Const $hHandle_2)
    ; Retrieve the working area, this is minus the taskbar dimensions so slightly different to @DesktopHeight and @DesktopWidth which is the
    ; monitors height and width.
    Local Const $SPI_GETWORKAREA = 48
    Local Const $tWorkArea = DllStructCreate($tagRECT)
    _WinAPI_SystemParametersInfo($SPI_GETWORKAREA, 0, DllStructGetPtr($tWorkArea))

    ; Retieve the position of the second GUI.
    Local Const $aClientSize_2 = WinGetPos($hHandle_2)

    ; Set the state of the windows to 'Restore'.
    WinSetState($hHandle_1, '', @SW_RESTORE)
    WinSetState($hHandle_2, '', @SW_RESTORE)

    ; Move the first to the far left of the screen and adjust the width to the total screen width minus the width of the second GUI. e.g. 1366 - 215
    WinMove($hHandle_1, '', DllStructGetData($tWorkArea, 'Left'), DllStructGetData($tWorkArea, 'Top'), DllStructGetData($tWorkArea, 'Right') - DllStructGetData($tWorkArea, 'Left') - $aClientSize_2[2], DllStructGetData($tWorkArea, 'Bottom') - DllStructGetData($tWorkArea, 'Top'))

    ; Move the second window to the far right in between the remaining space and adjust the height of the GUI.
    WinMove($hHandle_2, '', DllStructGetData($tWorkArea, 'Right') - DllStructGetData($tWorkArea, 'Left') - $aClientSize_2[2], DllStructGetData($tWorkArea, 'Top'), $aClientSize_2[2], DllStructGetData($tWorkArea, 'Bottom') - DllStructGetData($tWorkArea, 'Top'))
EndFunc   ;==>_DockToWindow

ReturnToContents

_FuncExists

MsgBox(0, "TEST", "Function Exists = " & _FuncExists("_FuncExists", @ScriptFullPath))

Func _FuncExists($sFunc, $sPath)
   If Not FileExists($sPath) Then Return SetError(1)
   Local Const $sStr = FileRead($sPath)
   Local Const $sRegEx = "(?i)(?m:^|\n)\s*Func\s+(" & $sFunc & ")\s*\("
   Local Const $aRegEx = StringRegExp($sStr, $sRegEx, 1)
   If IsArray($aRegEx) Then Return 1
   Return 0
EndFunc

ReturnToContents

_FunctionSort

; Get the list of Functions in a script and sort by alphabetical order.

#include <Array.au3>
#include <String.au3>

Local $sFile = FileOpenDialog(@ScriptName, "Select an AutoIt file.", "Au3 (*.au3)")

If @error Then
    Exit
EndIf
ClipPut(_FunctionSort($sFile))

Func _FunctionSort($sFilePath)
    Local Const $sRead = FileRead($sFilePath)

	Local $aReturn = StringRegExp("Func _Count()" & @CRLF & "EndFunc ;==>_Count" & $sRead, '(?s)(?i)Func(.*?)EndFunc', 3)

    If @error Then
        Return SetError(1, 0, 0)
    EndIf

    $aReturn[0] = UBound($aReturn, 1) - 1

    _ArraySort($aReturn, 0, 1)

    Local $sReturn

    For $A = 1 To $aReturn[0]
        $sReturn &= "Func" & $aReturn[$A] & "EndFunc" & @CRLF & @CRLF
    Next

    Return $sReturn
EndFunc   ;==>_FunctionSort

ReturnToContents

_IsBeta

#include <Array.au3>
#include <MsgBoxConstants.au3>

Example()

Func Example()
    Local $aTest[10]
    _ArrayUnique($aTest, 0, 5)
    Local $iError = @error
    ConsoleWrite('$iError = ' & $iError & @CRLF)
    If _IsBeta() Then
        If $iError = 3 Then
            MsgBox($MB_SYSTEMMODAL, '@error', '3 - $iBase or $iCase contains an invalid value' & @CRLF & @AutoItVersion)
        EndIf
    Else
        If $iError = 2 Then
            MsgBox($MB_SYSTEMMODAL, '@error', '2 - $iBase or $iCase contains an invalid value' & @CRLF & @AutoItVersion)
        EndIf
    EndIf
EndFunc   ;==>Example

Func _IsBeta()
       Return Mod(StringSplit(@AutoItVersion, '.')[3], 2) == 1
EndFunc   ;==>_IsBeta

ReturnToContents

_IsButton

#include <ButtonConstants.au3>
#include <Constants.au3>
#include <WinAPI.au3>

Example()

Func Example()
    Local Const $hGUI = GUICreate('')
    Local Const $iLabel = GUICtrlCreateButton('', 0, 0, 50, 50)
    Local Const $iCheckbox = GUICtrlCreateCheckbox('', 0, 0, 100, 20) ; This is considered a 'Button' by _WinAPI_GetClassName too.

    GUISetState(@SW_SHOWNORMAL, $hGUI)

    MsgBox(4096, '', 'AutoIt Button ID: ' & _IsButton($iLabel) & @CRLF & _
            'AutoIt Button Handle: ' & _IsButton(GUICtrlGetHandle($iLabel)) & @CRLF & _
            'AutoIt Checkbox ID: ' & _IsButton($iCheckbox) & @CRLF & _
            'AutoIt Checkbox Handle: ' & _IsButton(GUICtrlGetHandle($iCheckbox)) & @CRLF)

    Return GUIDelete($hGUI)
EndFunc   ;==>Example

; Check if a variable is referencing a Button control.
Func _IsButton($hWnd)
    If IsHWnd($hWnd) = 0 Then
        $hWnd = GUICtrlGetHandle($hWnd)
    EndIf

    Local Const $sClassName = _WinAPI_GetClassName($hWnd)

    If $sClassName = 'Button' Then
        Local Const $aStyle[5] = [4, $BS_CHECKBOX, $BS_AUTOCHECKBOX, $BS_RADIOBUTTON, $BS_AUTORADIOBUTTON]

        Local Const $iLong = _WinAPI_GetWindowLong($hWnd, $GWL_STYLE)

		For $i = 1 To $aStyle[0]
            If BitAND($iLong, $aStyle[$i]) = $aStyle[$i] Then
                Return False
            EndIf
        Next

        Return True
    EndIf

    Return False
EndFunc   ;==>_IsButton

ReturnToContents

_IsControlID

; Check if a Control ID is a native AutoIt control.

#include <GUIListView.au3>
#include <WinAPI.au3>

Example()

Func Example()
    Local Const $hGUI = GUICreate('')
    Local Const $iControlID = GUICtrlCreateLabel('', 0, 0, 500, 500)
    Local Const $hListView = _GUICtrlListView_Create($hGUI, 'Example', 0, 0, 500, 500)

	GUISetState(@SW_SHOWNORMAL, $hGUI)

    MsgBox(4096, '', 'AutoIt ControlID: ' & _IsControlID($iControlID) & @CRLF & _
            'Random Number: ' & _IsControlID(Random(42, 99, 1)) & @CRLF & _
            'AutoIt ControlID Handle: ' & _IsControlID(GUICtrlGetHandle($iControlID)) & @CRLF & _
            'ListView UDF Handle: ' & _IsControlID($hListView) & @CRLF & _
            'ListView UDF Handle: ' & _IsControlID(GUICtrlGetHandle($hListView)) & @CRLF)

    _GUICtrlListView_Destroy($hListView)

    Return GUIDelete($hGUI)
EndFunc   ;==>Example

Func _IsControlID($iControlID)
    If IsHWnd($iControlID) Then
        $iControlID = _WinAPI_GetDlgCtrlID($iControlID)
    EndIf

    Return IsHWnd(GUICtrlGetHandle($iControlID)) = 1
EndFunc   ;==>_IsControlID

ReturnToContents

_GetAutoItIncludesFromSciTE

#include <WinAPIEx.au3>

ConsoleWrite(_GetAutoItIncludesFromSciTE() & @CRLF)

; Retrieve the AutoIt includes path from the SciTE process.
Func _GetAutoItIncludesFromSciTE()
    Local $sRelativePath = '..\Include'
	Local Const $sWorkingDir = @WorkingDir
    FileChangeDir(_WinAPI_PathRemoveFileSpec(_WinAPI_GetProcessFileName(ProcessExists('SciTE.exe'))))
    $sRelativePath = _WinAPI_GetFullPathName($sRelativePath)
    FileChangeDir($sWorkingDir)
    Return _WinAPI_PathRemoveBackslash($sRelativePath)
EndFunc   ;==>_GetAutoItIncludesFromSciTE

ReturnToContents

_GetAutoItInstall

; Get the AutoIt installation folder.

ConsoleWrite(_GetAutoItInstall() & @CRLF)

Func _GetAutoItInstall()
    Return StringLeft(@AutoItExe, StringInStr(@AutoItExe, "\", 2, -1) - 1)
EndFunc   ;==>_GetAutoItInstall

ReturnToContents

_GetAutoItInstallEx

ConsoleWrite(_GetAutoItInstallEx() & @CRLF)

; Get the installation of AutoIt. An improved version of _GetAutoItInstall.
Func _GetAutoItInstallEx()
    Local $aWow6432Node[2] = ['', 'Wow6432Node\'], $aFiles[4] = [3, @ProgramFilesDir, EnvGet("PROGRAMFILES"), EnvGet("PROGRAMFILES(X86)")]
    Local $sFilePath = RegRead('HKEY_LOCAL_MACHINE\SOFTWARE\' & $aWow6432Node[@AutoItX64] & 'AutoIt v3\AutoIt\', 'InstallDir')
    If @error Then
        For $A = 1 To $aFiles[0]
            $aFiles[$A] &= '\AutoIt'
            If FileExists($aFiles[$A]) Then
                Return $aFiles[$A]
            EndIf
        Next
        Return SetError(1, 0, '')
    Else
        Return $sFilePath
    EndIf
EndFunc   ;==>_GetAutoItInstallEx

ReturnToContents

_GetAutoItInstallFromSciTE

ConsoleWrite(_GetAutoItInstallFromSciTE() & @CRLF)

; Retrieve the AutoIt installation path from the SciTE process.
Func _GetAutoItInstallFromSciTE()
    Local $sRelativePath = '..\', $sWorkingDir = @WorkingDir
    FileChangeDir( _WinAPI_PathRemoveFileSpec(_WinAPI_GetProcessFileName(ProcessExists("SciTE.exe"))))
    $sRelativePath = _WinAPI_GetFullPathName($sRelativePath)
    FileChangeDir($sWorkingDir)
    Return _WinAPI_PathRemoveBackslash($sRelativePath)
EndFunc   ;==>_GetAutoItInstallFromSciTE

ReturnToContents

_GetClasses

; Get ALL Controls Info

Example()

Func Example()
	; Run Calculator
	Run("calc.exe")

	; Wait 10 seconds for the Calculator window to appear.
	Local const $hWnd = WinWait("[CLASS:CalcFrame]", '', 10)

	; Retrieve a list of all the controls in the Calculator window using the handle returned by WinWait.
	MsgBox(4096, '', _GetClasses($hWnd))

	; Close the Calculator window using the handle returned by WinWait.
	WinClose($hWnd)
EndFunc   ;==>Example

; This function returns an @LF-separated list of controls on the specified window.
Func _GetClasses($sTitle, $sText = '')
	Local $iCount_Button = 0, $iCount_Edit = 0, $iCount_Static = 0
	Local $aClasses = StringSplit(WinGetClassList($sTitle, $sText), @LF)
	Local $aClassID[$aClasses[0] + 1] = [$aClasses[0]]

	For $i = 1 To $aClasses[0]
		Select
			Case $aClasses[$i] = "Button"
				$iCount_Button += 1
				$aClassID[$i] = $aClasses[$i] & $iCount_Button
			Case $aClasses[$i] = "Edit"
				$iCount_Edit += 1
				$aClassID[$i] = $aClasses[$i] & $iCount_Edit
				$aClasses[$i] = "Input"
			Case $aClasses[$i] = "Static"
				$iCount_Static += 1
				$aClassID[$i] = $aClasses[$i] & $iCount_Static
				$aClasses[$i] = "Label"
			Case Else
				If $aClasses[$i] <> "" Then
					$aClassID[$i] = $aClasses[$i] & "?"
				EndIf
		EndSelect
	Next

	; Combine the results.
	Local $sReturn = ""

	For $i = 1 To $aClassID[0]
		$sReturn &= $aClassID[$i] & @LF
	Next

	Return $sReturn
EndFunc   ;==>_GetClasses

ReturnToContents

_GetFile

; FileRead Alternative

Func _GetFile($sFile, $iFormat = 0)
    Local $hFileOpen = FileOpen($sFile, $iFormat)
    If $hFileOpen = -1 Then
        Return SetError(1, 0, "")
    EndIf
    Local $sData = FileRead($hFileOpen)
    FileClose($hFileOpen)
    Return $sData
EndFunc   ;==>_GetFile

ReturnToContents

_GetTitle

; Get the title of your program.

ConsoleWrite(_GetTitle('Example') & @CRLF)
; The second parameter would normally be @ScriptDir & '\Uninstall.exe' for example, but for this demonstration I'm using the full path.
ConsoleWrite(_GetTitle('Example', @ScriptFullPath) & @CRLF)

Func _GetTitle($sProgramName, $sInstallPath = '')
    Local $aOSArch[2] = ['', ' (64-bit)'], $aPortable[2] = [' (Portable)', '']
    Return $sProgramName & $aOSArch[@AutoItX64] & $aPortable[FileExists($sInstallPath)]
EndFunc   ;==>_GetTitle

ReturnToContents

_GetXML

; Simple Way Of Parsing XML Data.

#include <Array.au3>

Global $aReturn, $sXMLData

$sXMLData = "<data>This is a Simple example of XML</data><data>This is a Simple example of XML and is the Second String.</data>"
$aReturn = _GetXML($sXMLData, "data")
_ArrayDisplay($aReturn, "_GetXML()")

Func _GetXML($sString, $sData)
    Local $aError[2] = [1, $sString], $aReturn
    $aReturn = StringRegExp('<' & $sData & '></' & $sData & '>' & $sString, '(?s)(?i)<' & $sData & '>(.*?)</' & $sData & '>', 3)
    If @error Then
        Return SetError(1, 0, $aError)
    EndIf
    $aReturn[0] = UBound($aReturn, 1) - 1
    Return SetError(0, 0, $aReturn)
EndFunc   ;==>_GetXML

ReturnToContents

Include Source With Exe

;recover source .au3 file with /Extract switch
; The above code would be copied into the top of your script. The source location (C:\Test.au3 in my example) is the full path to your script file.
;Once compiled, if you run the script from the Run line with the /Extract switch, it will extact the original .au3 file into the Temp directory and will exit without actually executing the script.
If StringInStr($cmdlineRaw, "/Extract") Then
	FileInstall("C:\Test.au3", @TempDir & "\Test.au3", 1)
	Exit
EndIf

ReturnToContents

_IsANSIFile

#include <FileConstants.au3>

ConsoleWrite(_IsANSIFile(@ScriptFullPath) & @LF) ; Returns True.

Func _IsANSIFile($sFilePath)
    Return FileGetEncoding($sFilePath) = $FO_READ
EndFunc   ;==>_IsUnicodeFile

ReturnToContents

_IsUnicodeFile

#include <FileConstants.au3>

ConsoleWrite(_IsUnicodeFile(@ScriptFullPath) & @LF) ; Returns False.

Func _IsUnicodeFile($sFilePath)
    Return FileGetEncoding($sFilePath) = $FO_UNICODE
EndFunc   ;==>_IsUnicodeFile

ReturnToContents

_IsAu3File

ConsoleWrite(_IsAu3File(@AutoItExe) & @CRLF)
ConsoleWrite(_IsAu3File(@ScriptFullPath) & @CRLF)

; Checks whether the filepath is an au3 file.
Func _IsAu3File($sFilePath)
    Return StringTrimLeft($sFilePath, StringInStr($sFilePath, ".", 2, -1)) = "au3"
EndFunc   ;==>_IsAu3File

ReturnToContents

_IsDefault

If _IsDefault(Default) Then
    MsgBox(0, "_IsDefault() - 1", "This was a Default variable.")
EndIf

If _IsDefault(-1) Then
    MsgBox(0, "_IsDefault() - 2", "This was a Default variable.")
EndIf

If _IsDefault("Other") Then
    MsgBox(0, "_IsDefault() - 3", "This was a Default variable.")
EndIf

Func _IsDefault($sDefault)
    Return StringRegExp($sDefault, "(?-i)\s|Default|-1|0")
EndFunc   ;==>_IsDefault

ReturnToContents

_IsInTrial

#include <Date.au3> ; Required for _DateDiff()

ConsoleWrite('Date trial started: ' & @YEAR & '/' & @MON & '/01' & @CRLF & _
        'Today''s date: ' & @YEAR & '/' & @MON & '/' & @MDAY & @CRLF & _
        'Trial period: 30 days' & @CRLF & _
        'Is the trial period still valid: ' & _IsInTrial(@YEAR & '/' & @MON & '/01', 30) & @CRLF)

; Check if a trial period date is still valid.
Func _IsInTrial($sDateString, $iDays)
    Return (_DateDiff('D', $sDateString, _NowCalcDate()) < $iDays)
EndFunc   ;==>_IsInTrial

ReturnToContents

_IsVisible

; Check if the Notepad Window is visible.

Example()

Func Example()
    ; Run Notepad
    Run("notepad.exe")

    ; Wait 10 seconds for the Notepad window to appear.
    Local $hWnd = WinWait("[CLASS:Notepad]", "", 10)

    ; Check if the Notepad window is visible and display the appropriate message box.
    If _IsVisible($hWnd) Then
        MsgBox(4096, "", "Notepad is visible.")
    Else
        MsgBox(4096, "", "Notepad isn't visible.")
    EndIf

    ; Close the Notepad window using the handle returned by WinWait.
    WinClose($hWnd)
EndFunc   ;==>Example

; Check if the window is visible.
Func _IsVisible($hWnd)
    Return BitAND(WinGetState($hWnd), 2) = 2
EndFunc   ;==>_IsVisible

ReturnToContents

Open Help File to Desired Page

; Open help file / Open a desired page

Global Const $sAutoItPath = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\AutoIt v3\AutoIt", "InstallDir")

Run(@WindowsDir & "\hh.exe " & $sAutoItPath & "\AutoIt3.chm::/html/functions/GUICtrlCreateUpdown.htm")

ReturnToContents

_RunAU3

_RunAU3("AU3_Example.txt", '"This is a commandline example!"')

Func _RunAU3($sFilePath,  $sCommandLine = "", $sWorkingDir = "", $iShowFlag = @SW_SHOW, $iOptFlag = 0)
    Return Run('"' & @AutoItExe & '" /AutoIt3ExecuteScript "' & $sFilePath & '" ' & $sCommandLine, $sWorkingDir, $iShowFlag, $iOptFlag)
EndFunc   ;==>_RunAU3

Func _RunWaitAU3($sFilePath, $sCommandLine = "", $sWorkingDir = "", $iShowFlag = @SW_SHOW, $iOptFlag = 0)
    Local $iPID
    $iPID = RunWait('"' & @AutoItExe & '" /AutoIt3ExecuteScript "' & $sFilePath & '" ' & $sCommandLine, $sWorkingDir, $iShowFlag, $iOptFlag)
    If @error Then
        Return SetError(@error, 1, 0)
    EndIf
    Return $iPID
EndFunc   ;==>_RunWaitAU3

ReturnToContents

Run Any au3 File From Your Program

; Run Any Au3 File From Your Program

Global Const $sFilePath = @ScriptDir & "\Test.au3"

If @Compiled Then
	Global Const $sFileExe = FileGetShortName(@AutoItExe & ' /AutoIt3ExecuteScript "' & $sFilePath & '"')
	Run($sFileExe)
Else
	Global Const $sFileAu3 = FileGetShortName($sFilePath)
	Run(@AutoItExe & " " & $sFileAu3, "", @SW_HIDE)
EndIf

ReturnToContents

_ScriptName

ConsoleWrite(_ScriptName() & @CRLF)

; Return the @ScriptName minus the .exe or .au3 extension.
Func _ScriptName()
	Return StringLeft(@ScriptName, StringInStr(@ScriptName, '.', 2, -1) - 1)
EndFunc   ;==>_ScriptName

ReturnToContents

_ScriptVersion

#NoTrayIcon

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_Res_Fileversion=1.2.3.4
#AutoIt3Wrapper_Res_LegalCopyright=2012  www.favessoft.com
#AutoIt3Wrapper_Res_Language=1033
#AutoIt3Wrapper_AU3Check_Parameters=-d -w 1 -w 2 -w 3 -w- 4 -w 5 -w 6 -w- 7
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

Global $version = _ScriptVersion()

Global $msg = "ScriptVerDemo" & " " & $version & "  Copyright (c) 2012  www.favessoft.com" & @CRLF & @CRLF

MsgBox(0x1040, "", $msg)

; return File Version string from compiled or .au3 script
; returns "" if no version info available
; Note: The .au3 script must contain #AutoItWrapper
; directives with file version or "" is returned.
Func _ScriptVersion(Const $Script = @ScriptFullPath)
    If StringRight($Script,4) = ".exe" Then
        Return FileGetVersion($Script)
    Else
        Local Const $scriptHandle = FileOpen($Script)
		Local $ver
		Local $found = False
		Local $pos

        If $scriptHandle <> -1 Then
            Do
                $ver = FileReadLine($scriptHandle)
                $sPos = StringInStr($ver, "_Fileversion=")

                If $sPos Then
                    $ver = StringMid($ver, $sPos + StringLen("_Fileversion="))
                    $found = True
                    ExitLoop
                EndIf
            Until StringLeft($ver, 1) <> "#"

            FileClose($scriptHandle)
        EndIf
    EndIf

    If Not $found Then $ver = ""

    Return $ver
EndFunc   ;==>_ScriptVersion

ReturnToContents

_SetFile

; FileWrite Alternative

Func _SetFile(Const $sString, Const $sFile, Const $iOverwrite = 0)
    Local Const $hFileOpen = FileOpen($sFile, $iOverwrite + 1)

    FileWrite($hFileOpen, $sString)
    FileClose($hFileOpen)

    If @error Then
        Return SetError(1, 0, $sString)
    EndIf

    Return $sString
EndFunc   ;==>_SetFile

ReturnToContents

_ShowHelp

HotKeySet("{F1}", "_ShowHelp")

Func _ShowHelp()
	Return ShellExecute(@ProgramFilesDir & "\AutoIt3\AutoIt3Help.exe") ; change this to the location of your own helpfile.
EndFunc   ;==>_ShowHelp

ReturnToContents

_SingletonPID

Local $iSingleton = _SingletonPID('RandomName', 1)

If $iSingleton = 0 Then
    MsgBox(4096, '', 'This is the first instance of the program running: ' & $iSingleton)
Else
    MsgBox(4096, '', 'There is another instance running. This PID is: ' & $iSingleton)
EndIf

; #FUNCTION# ====================================================================================================================
; Name ..........: _SingletonPID
; Description ...: Enforce a design paradigm where only one instance of the script may be running.
; Syntax ........: _SingletonPID($sOccurenceName[, $iFlag = 0])
; Parameters ....: $sOccurenceName      - String to identify the occurrence of the script.
;                  $iFlag               - [optional] Optional parameters. Default is 0.
;                  0 - Exit the script with the exit code -1 if another instance already exists.
;                  1 - Return the PID of the main executable and without exiting the script too.
; Return values .: Success - 0 No other process is running.
;                  Failure - The PID of the main executable.
; Author ........: guinness with initial ideas by Valik for _Singleton & KaFu for _EnforceSingleInstance.
; Example .......: Yes
; ===============================================================================================================================
Func _SingletonPID(Const $sOccurenceName, Const $iFlag = 0)
    Local $hHandle = WinGetHandle($sOccurenceName)

    If @error Then
        AutoItWinSetTitle($sOccurenceName)
        $hHandle = WinGetHandle($sOccurenceName)
        ControlSetText($hHandle, '', ControlGetHandle($hHandle, '', 'Edit1'), @AutoItPID)
    Else
        If BitAND($iFlag, 1) Then
            Return Number(ControlGetText($hHandle, '', ControlGetHandle($hHandle, '', 'Edit1')))
        Else
            Exit -1
        EndIf
    EndIf

    Return 0
EndFunc   ;==>_SingletonPID

ReturnToContents

_Sort

#include <Constants.au3>

ConsoleWrite(_Sort("$sVariable" & @CRLF & "$iVariable" & @CRLF & "$tVariable" & @CRLF & "$pVariable"))

Func _Sort(Const $sSortList)
    Local Const $iPID = Run("sort.exe", @SystemDir, @SW_HIDE, $STDIN_CHILD + $STDOUT_CHILD), $sOutput = ""

    StdinWrite($iPID, $sSortList)
    StdinWrite($iPID)

    While 1
        $sOutput &= StdoutRead($iPID)

        If @error Then
            ExitLoop
        EndIf
    WEnd

    Return $sOutput
EndFunc   ;==>_Sort

ReturnToContents

Speak Object and Save to WAV File

; Speak Object and save to wav file

_SpeakToWAV("AutoIt Snippets", @ScriptDir & "\SavedFile.wav")

Func _SpeakToWAV(Const $sText, Const $sFilePath)
	Local $ObjVoice = ObjCreate("Sapi.SpVoice")

	Local $ObjFile = ObjCreate("Sapi.SpFileStream.1")

	$ObjVoice.Speak($sText)

	$ObjFile.Open($sFilePath, 3)

	$ObjVoice.AudioOutputStream = $ObjFile
EndFunc   ;==>_SpeakToWAV

ReturnToContents

_VariableSwap

Global $sString_1 = 'This is string 1.'
Global $sString_2 = 'This is string 2.'

ConsoleWrite('$sString_1: ' & $sString_1 & @CRLF)
ConsoleWrite('$sString_2: ' & $sString_2 & @CRLF & @CRLF)

_VariableSwap($sString_1, $sString_2)

ConsoleWrite('$sString_1: ' & $sString_1 & @CRLF)
ConsoleWrite('$sString_2: ' & $sString_2 & @CRLF & @CRLF)

; Swap the contents of two variables.
Func _VariableSwap(ByRef $vVariable_1, ByRef $vVariable_2) ; Similar to _ArraySwap though not obvious to some this isn't limited to arrays.
    Local Const $vTemp = $vVariable_1
    $vVariable_1 = $vVariable_2
    $vVariable_2 = $vTemp
EndFunc   ;==>_VariableSwap

ReturnToContents

_WinAPI_CharLower

ConsoleWrite(_WinAPI_CharLower("EXAMPLE") & @CRLF) ; Similar to StringLower.

; Convert characters to lowercase.
Func _WinAPI_CharLower($sString)
    Local $aReturn = DllCall('user32.dll', 'wstr', 'CharLowerW', 'wstr', $sString)
    If @error Then
        Return SetError(1, 0, $sString)
    EndIf
    Return $aReturn[0]
EndFunc   ;==>_WinAPI_CharLower

ReturnToContents

_WinAPI_CharUpper

ConsoleWrite(_WinAPI_CharUpper("example") & @CRLF) ; Similar to StringUpper.

; Convert characters to uppercase.
Func _WinAPI_CharUpper($sString)
	Local $aReturn = DllCall('user32.dll', 'wstr', 'CharUpperW', 'wstr', $sString)
	If @error Then
		Return SetError(1, 0, $sString)
	EndIf
	Return $aReturn[0]
EndFunc   ;==>_WinAPI_CharUpper

ReturnToContents

_WinAPI_PathFileExists

; An API Alternative To FileExist.

ConsoleWrite(_WinAPI_PathFileExists(@ScriptFullPath) & @LF) ; File.
ConsoleWrite(_WinAPI_PathFileExists("C:\") & @LF) ; Drive.
ConsoleWrite(_WinAPI_PathFileExists(@ProgramFilesDir) & @LF) ; Directory.
ConsoleWrite(_WinAPI_PathFileExists("Z:\File.txt") & @LF) ; Shouldn't exist!

Func _WinAPI_PathFileExists($sFilePath)
    Local $aReturn = DllCall('shlwapi.dll', 'int', 'PathFileExistsW', 'wstr', $sFilePath)
    If @error Then
        Return SetError(1, 0, 0)
    EndIf
    Return $aReturn[0]
EndFunc   ;==>_WinAPI_PathFileExists

ReturnToContents

_WinActiveByExe

; Window Active/Activate by Exe, Open Notepad whilst script is running

While 1
    If _WinActiveByExe('notepad.exe', False) Then MsgBox(64, 'info', 'true')
    Sleep(100)
WEnd

Func _WinActiveByExe($sExe, $iActive = True);False to WinActivate, True to just see if it's active
    If Not ProcessExists($sExe) Then Return SetError(1, 0, 0)
    Local $aPL = ProcessList($sExe)
    Local $aWL = WinList()
    For $iCC = 1 To $aWL[0][0]
        For $xCC = 1 To $aPL[0][0]
            If $aWL[$iCC][0] <> '' And _
                WinGetProcess($aWL[$iCC][1]) = $aPL[$xCC][1] And _
                BitAND(WinGetState($aWL[$iCC][1]), 2) Then
                If $iActive And WinActive($aWL[$iCC][1]) Then Return 1
                If Not $iActive And Not WinActive($aWL[$iCC][1]) Then
                    WinActivate($aWL[$iCC][1])
                    Return 1
                EndIf
            EndIf
        Next
    Next
    Return SetError(2, 0, 0)
EndFunc

ReturnToContents

_WindowShake

; Shake a window left to right.

Example()

Func Example()
    ; Run Notepad
    Run("notepad.exe")

    ; Wait 10 seconds for the Notepad window to appear.
    Local $hWnd = WinWait("[CLASS:Notepad]", "", 10)

    ; Wait for 1 second.
    Sleep(1000)

    ; Shake the Notepad window left to right.
    _WindowShake($hWnd)

    ; Wait for 1 second.
    Sleep(1000)

    ; Close the Notepad window using the handle returned by WinWait.
    WinClose($hWnd)
EndFunc   ;==>Example

Func _WindowShake($sTitle, $sText = '', $iDistance = 20)
    Local $hWnd = WinGetHandle($sTitle, $sText)
    Local $aWinGetPos = WinGetPos($hWnd)
    If @error Then
        Return SetError(1, 0, 0)
    EndIf
    Local $aArray[5] = [4, $aWinGetPos[0] + $iDistance, $aWinGetPos[0], $aWinGetPos[0] + $iDistance, $aWinGetPos[0]]

    For $i = 1 To $aArray[0]
        WinMove($hWnd, '', $aArray[$i], Default)
        Sleep(100)
    Next
EndFunc   ;==>_WindowShake

ReturnToContents

_WinGetDetails

#include <Array.au3>

Global $aArray = _WinGetDetails('[ACTIVE]') ; Returns the Window's title, PID, folder path filename.

If @error Then
    Exit
EndIf

_ArrayDisplay($aArray)

Func _WinGetDetails($sTitle, $sText = '') ; Based on code of _WinGetPath by GaryFrost.
    Local $aReturn[5] = [4, '-WinTitle', '-PID', '-FolderPath', '-FileName'], $aStringSplit

    If StringLen($sText) > 0 Then
        $aReturn[1] = WinGetTitle($sTitle, $sText)
    Else
        $aReturn[1] = WinGetTitle($sTitle)
    EndIf
    $aReturn[2] = WinGetProcess($aReturn[1])

    Local $oWMIService = ObjGet('winmgmts:\\.\root\CIMV2')
    Local $oItems = $oWMIService.ExecQuery('Select * From Win32_Process Where ProcessId = ' & $aReturn[2], 'WQL', 0x30)
    If IsObj($oItems) Then
        For $oItem In $oItems
            If $oItem.ExecutablePath Then
                $aStringSplit = StringSplit($oItem.ExecutablePath, '\')
                $aReturn[3] = ''
                For $A = 1 To $aStringSplit[0] - 1
                    $aReturn[3] &= $aStringSplit[$A] & '\'
                Next
                $aReturn[3] = StringTrimRight($aReturn[3], 1)
                $aReturn[4] = $aStringSplit[$aStringSplit[0]]
                Return $aReturn
            EndIf
        Next
    EndIf
    Return SetError(1, 0, $aReturn)
EndFunc   ;==>_WinGetPath

ReturnToContents

_WinGetNumeratedClassList

; Description: Retrieves the numerated classes from a window.

Func _WinGetNumeratedClassList($sTitle)
    Local $sClassList = WinGetClassList($sTitle)
    Local $aClassList = StringSplit($sClassList, @LF)
    Local $sRetClassList = "", $sHold_List = "|"
    Local $aiInHold, $iInHold

    For $i = 1 To UBound($aClassList) - 1
        If $aClassList[$i] = "" Then ContinueLoop

        If StringRegExp($sHold_List, "\|" & $aClassList[$i] & "~(\d+)\|") Then
            $aiInHold = StringRegExp($sHold_List, ".*\|" & $aClassList[$i] & "~(\d+)\|.*", 1)
            $iInHold = Number($aiInHold[UBound($aiInHold)-1])

            If $iInHold = 0 Then $iInHold += 1

            $aClassList[$i] &= "~" & $iInHold + 1
            $sHold_List &= $aClassList[$i] & "|"

            $sRetClassList &= $aClassList[$i] & @LF
        Else
            $aClassList[$i] &= "~1"
            $sHold_List &= $aClassList[$i] & "|"
            $sRetClassList &= $aClassList[$i] & @LF
        EndIf
    Next

    Return StringReplace(StringStripWS($sRetClassList, 3), "~", "")
EndFunc

ReturnToContents

_WinGetHandleByPID

; Get Window Handle by PID

#include <Array.au3>

Global $a1 = _WinGetHandleByPID(232)
Global $a2 = _WinGetHandleByPID("notepad.exe", -1)
Global $a3 = _WinGetHandleByPID("notepad.exe", 0)
Global $a4 = _WinGetHandleByPID("notepad.exe", 1)

_ArrayDisplay($a1, "1")
_ArrayDisplay($a2, "2")
_ArrayDisplay($a3, "3")
_ArrayDisplay($a4, "4")

;$nVisible = -1 "All (Visble or not)", $nVisible = 0 "Not Visible Only", $nVisible = 1 "Visible Only"
Func _WinGetHandleByPID($vProc, $nVisible = 1)
    $vProc = ProcessExists($vProc);

    If Not $vProc Then Return SetError(1, 0, 0)

    Local $aWL = WinList()

    Local $aTemp[UBound($aWL)][2]

	Local $nAdd = 0

    For $iCC = 1 To $aWL[0][0]
        If $nVisible = -1 And WinGetProcess($aWL[$iCC][1]) = $vProc Then
            $nAdd += 1
            $aTemp[$nAdd][0] = $aWL[$iCC][0]
            $aTemp[$nAdd][1] = $aWL[$iCC][1]
        ElseIf $nVisible = 0 And WinGetProcess($aWL[$iCC][1]) = $vProc And _
                BitAND(WinGetState($aWL[$iCC][1]), 2) = 0 Then
            $nAdd += 1
            $aTemp[$nAdd][0] = $aWL[$iCC][0]
            $aTemp[$nAdd][1] = $aWL[$iCC][1]
        ElseIf $nVisible > 0 And WinGetProcess($aWL[$iCC][1]) = $vProc And _
                BitAND(WinGetState($aWL[$iCC][1]), 2) Then
            $nAdd += 1
            $aTemp[$nAdd][0] = $aWL[$iCC][0]
            $aTemp[$nAdd][1] = $aWL[$iCC][1]
        EndIf
    Next

    If $nAdd = 0 Then Return SetError(2, 0, 0) ; No windows found

    ReDim $aTemp[$nAdd + 1][2]

    $aTemp[0][0] = $nAdd

    Return $aTemp
EndFunc

ReturnToContents

@@ Line 1: / Line 1: @@
 __TOC__
+[[category:Snippets]]
 {{Snippet Credit Header}}
-===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' AutoItWinShow() ~ Author - [http://www.autoitscript.com/forum/user/35302-guinness/ guinness] '''</blockquote> =====
+== AutoItWinShow ==
+{{Snippet Header
+| AuthorURL = 35302-guinness
+| AuthorName = guinness
+}}
 <syntaxhighlight lang="autoit">
 #include <GUIConstantsEx.au3>
@@ Line 10: / Line 17: @@
 Func Example()
      ; Display AutoIt's Hidden Window. See AutoItWinGetTitle and AutoItWinSetTitle for more details.
      AutoItWinShow()
@@ Line 24: / Line 30: @@
 ; Display AutoIt's Hidden Window. Returns the handle of the window.
 Func AutoItWinShow()
-     Local $hWnd = WinGetHandle(AutoItWinGetTitle()) ; Get the handle of the AutoIt Hidden Window by finding out the title of the AutoIt Hidden Window.
+     Local Const $hWnd = WinGetHandle(AutoItWinGetTitle()) ; Get the handle of the AutoIt Hidden Window by finding out the title of the AutoIt Hidden Window.
      WinMove($hWnd, '', (@DesktopWidth / 2) - 250, (@DesktopHeight / 2) - 250, 500, 500) ; Move the AutoIt Hidden Window and re-size for a better view of the data that will be set.
      WinSetState($hWnd, '', @SW_SHOW) ; Show the AutoIt Hidden Window, normally this is hidden, but in the interest of this example I'm displaying it.
@@ Line 30: / Line 36: @@
 EndFunc   ;==>AutoItWinShow
 </syntaxhighlight>
-[[#top|Return To Contents]]
-===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' AutoItWinGetText() & AutoItWinSetText() ~ Author - [http://www.autoitscript.com/forum/user/35302-guinness/ guinness] '''</blockquote> =====
+[[#top | ReturnToContents]]
+== AutoItWinGetText ==
+{{Snippet Header
+| AuthorURL = 35302-guinness
+| AuthorName = guinness
+}}
 <syntaxhighlight lang="autoit">
-#include <GUIConstantsEx.au3>
 Example()
 Func Example()
      ; Display AutoIt's Hidden Window. See AutoItWinGetTitle and AutoItWinSetTitle for more details.
      AutoItWinShow()
@@ Line 62: / Line 72: @@
 ; Retrieve the text in AutoIt's Hidden Window.
 Func AutoItWinGetText()
-     Local $hWnd = WinGetHandle(AutoItWinGetTitle()) ; Get the handle of the AutoIt Hidden Window by finding out the title of the AutoIt Hidden Window.
+     Local Const $hWnd = WinGetHandle(AutoItWinGetTitle()) ; Get the handle of the AutoIt Hidden Window by finding out the title of the AutoIt Hidden Window.
      Return ControlGetText($hWnd, '', ControlGetHandle($hWnd, '', 'Edit1'))
 EndFunc   ;==>AutoItWinGetText
@@ Line 68: / Line 78: @@
 ; Add text to AutoIt's Hidden Window.
 Func AutoItWinSetText($sString)
-     Local $hWnd = WinGetHandle(AutoItWinGetTitle()) ; Get the handle of the AutoIt Hidden Window by finding out the title of the AutoIt Hidden Window.
+     Local Const $hWnd = WinGetHandle(AutoItWinGetTitle()) ; Get the handle of the AutoIt Hidden Window by finding out the title of the AutoIt Hidden Window.
      Return ControlSetText($hWnd, "", ControlGetHandle($hWnd, "", 'Edit1'), ControlGetText($hWnd, '', ControlGetHandle($hWnd, '', 'Edit1')) & $sString)
 EndFunc   ;==>AutoItWinSetText
@@ Line 74: / Line 84: @@
 ; Display AutoIt's Hidden Window. Returns the handle of the window.
 Func AutoItWinShow()
-     Local $hWnd = WinGetHandle(AutoItWinGetTitle()) ; Get the handle of the AutoIt Hidden Window by finding out the title of the AutoIt Hidden Window.
+     Local Const $hWnd = WinGetHandle(AutoItWinGetTitle()) ; Get the handle of the AutoIt Hidden Window by finding out the title of the AutoIt Hidden Window.
      WinMove($hWnd, '', (@DesktopWidth / 2) - 250, (@DesktopHeight / 2) - 250, 500, 500) ; Move the AutoIt Hidden Window and re-size for a better view of the data that will be set.
      WinSetState($hWnd, '', @SW_SHOW) ; Show the AutoIt Hidden Window, normally this is hidden, but in the interest of this example I'm displaying it.
@@ Line 80: / Line 90: @@
 EndFunc   ;==>AutoItWinShow
 </syntaxhighlight>
-[[#top|Return To Contents]]
-===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' _DockToWindow()() ~ Author - [http://www.autoitscript.com/forum/user/35302-guinness/ guinness] '''</blockquote> =====
+[[#top | ReturnToContents]]
+== _DockToWindow ==
+{{Snippet Header
+| AuthorURL = 35302-guinness
+| AuthorName = guinness
+}}
 <syntaxhighlight lang="autoit">
 #include <GUIConstantsEx.au3>
 #include <WinAPI.au3>
 #include <WindowsConstants.au3>
-If (Not ProcessExists('SciTE.exe')) Then
+If (Not ProcessExists("SciTE.exe")) Then
-     Exit MsgBox(4096, '', 'Please start SciTE.exe')
+     Exit MsgBox(4096, '', "Please start SciTE.exe")
 EndIf
 Example()
 Func Example()
      ; Create a GUI, similar to SciTE Jump's GUI.
-     Local $hGUI = GUICreate('', 215, 400, -1, -1, BitOR($GUI_SS_DEFAULT_GUI, $WS_MAXIMIZEBOX, $WS_SIZEBOX))
+     Local Const $hGUI = GUICreate('', 215, 400, -1, -1, BitOR($GUI_SS_DEFAULT_GUI, $WS_MAXIMIZEBOX, $WS_SIZEBOX))
-     GUISetState(@SW_SHOW, $hGUI)
+     GUISetState(@SW_SHOWNORMAL, $hGUI)
      ; Dock the first window to left and adjust the width based on the width of the second GUI.
-     _DockToWindow(WinGetHandle('[CLASS:SciTEWindow]'), $hGUI)
+     _DockToWindow(WinGetHandle("[CLASS:SciTEWindow]"), $hGUI)
      While 1
@@ Line 108: / Line 126: @@
          EndSwitch
      WEnd
      GUIDelete($hGUI)
 EndFunc   ;==>Example
-Func _DockToWindow($hHandle_1, $hHandle_2)
+Func _DockToWindow(Const $hHandle_1, Const $hHandle_2)
      ; Retrieve the working area, this is minus the taskbar dimensions so slightly different to @DesktopHeight and @DesktopWidth which is the
      ; monitors height and width.
      Local Const $SPI_GETWORKAREA = 48
-     Local $tWorkArea = DllStructCreate($tagRECT)
+     Local Const $tWorkArea = DllStructCreate($tagRECT)
      _WinAPI_SystemParametersInfo($SPI_GETWORKAREA, 0, DllStructGetPtr($tWorkArea))
      ; Retieve the position of the second GUI.
-     Local $aClientSize_2 = WinGetPos($hHandle_2)
+     Local Const $aClientSize_2 = WinGetPos($hHandle_2)
      ; Set the state of the windows to 'Restore'.
@@ Line 132: / Line 151: @@
 EndFunc   ;==>_DockToWindow
 </syntaxhighlight>
-[[#top|Return To Contents]]
-===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' _FuncExists() ~ Author - [http://www.autoitscript.com/forum/user/52-geosoft/ GEOSoft] '''</blockquote> =====
+[[#top | ReturnToContents]]
+== _FuncExists ==
+{{Snippet Header
+| AuthorURL = 52-geosoft
+| AuthorName = GEOSoft
+}}
 <syntaxhighlight lang="autoit">
 MsgBox(0, "TEST", "Function Exists = " & _FuncExists("_FuncExists", @ScriptFullPath))
 Func _FuncExists($sFunc, $sPath)
-    If NOT FileExists($sPath) Then Return SetError(1)
+    If Not FileExists($sPath) Then Return SetError(1)
-    Local $sStr = FileRead($sPath)
+    Local Const $sStr = FileRead($sPath)
-    Local $sRegEx = "(?i)(?m:^|\n)\s*Func\s+(" & $sFunc & ")\s*\("
+    Local Const $sRegEx = "(?i)(?m:^|\n)\s*Func\s+(" & $sFunc & ")\s*\("
-    Local $aRegEx = StringRegExp($sStr, $sRegEx, 1)
+    Local Const $aRegEx = StringRegExp($sStr, $sRegEx, 1)
     If IsArray($aRegEx) Then Return 1
     Return 0
 EndFunc
 </syntaxhighlight>
-[[#top|Return To Contents]]
-===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' _FunctionSort() ~ Author - [http://www.autoitscript.com/forum/user/35302-guinness/ guinness] '''</blockquote> =====
+[[#top | ReturnToContents]]
+== _FunctionSort ==
+{{Snippet Header
+| AuthorURL = 35302-guinness
+| AuthorName = guinness
+}}
 <syntaxhighlight lang="autoit">
 ; Get the list of Functions in a script and sort by alphabetical order.
 #include <Array.au3>
@@ Line 158: / Line 190: @@
 Local $sFile = FileOpenDialog(@ScriptName, "Select an AutoIt file.", "Au3 (*.au3)")
 If @error Then
      Exit
@@ Line 164: / Line 197: @@
 Func _FunctionSort($sFilePath)
-     Local $aReturn, $sRead, $sReturn
+     Local Const $sRead = FileRead($sFilePath)
+	Local $aReturn = StringRegExp("Func _Count()" & @CRLF & "EndFunc ;==>_Count" & $sRead, '(?s)(?i)Func(.*?)EndFunc', 3)
-    $sRead = FileRead($sFilePath)
-    $aReturn = StringRegExp("Func _Count()" & @CRLF & "EndFunc ;==>_Count" & $sRead, '(?s)(?i)Func(.*?)EndFunc', 3)
      If @error Then
          Return SetError(1, 0, 0)
      EndIf
      $aReturn[0] = UBound($aReturn, 1) - 1
      _ArraySort($aReturn, 0, 1)
+    Local $sReturn
      For $A = 1 To $aReturn[0]
          $sReturn &= "Func" & $aReturn[$A] & "EndFunc" & @CRLF & @CRLF
      Next
      Return $sReturn
 EndFunc   ;==>_FunctionSort
 </syntaxhighlight>
-[[#top|Return To Contents]]
-===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' _IsButton() ~ Author - [http://www.autoitscript.com/forum/user/35302-guinness/ guinness] '''</blockquote> =====
+[[#top | ReturnToContents]]
+== _IsBeta ==
+{{Snippet Header
+| AuthorURL = 10673-mlipok
+| AuthorName = mLipok
+}}
+<syntaxhighlight lang="autoit">
+#include <Array.au3>
+#include <MsgBoxConstants.au3>
+Example()
+Func Example()
+    Local $aTest[10]
+    _ArrayUnique($aTest, 0, 5)
+    Local $iError = @error
+    ConsoleWrite('$iError = ' & $iError & @CRLF)
+    If _IsBeta() Then
+        If $iError = 3 Then
+            MsgBox($MB_SYSTEMMODAL, '@error', '3 - $iBase or $iCase contains an invalid value' & @CRLF & @AutoItVersion)
+        EndIf
+    Else
+        If $iError = 2 Then
+            MsgBox($MB_SYSTEMMODAL, '@error', '2 - $iBase or $iCase contains an invalid value' & @CRLF & @AutoItVersion)
+        EndIf
+    EndIf
+EndFunc   ;==>Example
+Func _IsBeta()
+       Return Mod(StringSplit(@AutoItVersion, '.')[3], 2) == 1
+EndFunc   ;==>_IsBeta
+</syntaxhighlight>
+[[#top | ReturnToContents]]
+== _IsButton ==
+{{Snippet Header
+| AuthorURL = 35302-guinness
+| AuthorName = guinness
+}}
 <syntaxhighlight lang="autoit">
 #include <ButtonConstants.au3>
@@ Line 190: / Line 272: @@
 Func Example()
-     Local $hGUI = GUICreate('')
+     Local Const $hGUI = GUICreate('')
-     Local $iLabel = GUICtrlCreateButton('', 0, 0, 50, 50)
+     Local Const $iLabel = GUICtrlCreateButton('', 0, 0, 50, 50)
-     Local $iCheckbox = GUICtrlCreateCheckbox('', 0, 0, 100, 20) ; This is considered a 'Button' by _WinAPI_GetClassName too.
+     Local Const $iCheckbox = GUICtrlCreateCheckbox('', 0, 0, 100, 20) ; This is considered a 'Button' by _WinAPI_GetClassName too.
-     GUISetState(@SW_SHOW, $hGUI)
+     GUISetState(@SW_SHOWNORMAL, $hGUI)
      MsgBox(4096, '', 'AutoIt Button ID: ' & _IsButton($iLabel) & @CRLF & _
@@ Line 208: / Line 291: @@
          $hWnd = GUICtrlGetHandle($hWnd)
      EndIf
-     Local $sClassName = _WinAPI_GetClassName($hWnd)
+     Local Const $sClassName = _WinAPI_GetClassName($hWnd)
      If $sClassName = 'Button' Then
-         Local $aStyle[5] = [4, $BS_CHECKBOX, $BS_AUTOCHECKBOX, $BS_RADIOBUTTON, $BS_AUTORADIOBUTTON]
+         Local Const $aStyle[5] = [4, $BS_CHECKBOX, $BS_AUTOCHECKBOX, $BS_RADIOBUTTON, $BS_AUTORADIOBUTTON]
-         Local $iLong = _WinAPI_GetWindowLong($hWnd, $GWL_STYLE)
-        For $i = 1 To $aStyle[0]
+         Local Const $iLong = _WinAPI_GetWindowLong($hWnd, $GWL_STYLE)
+		For $i = 1 To $aStyle[0]
              If BitAND($iLong, $aStyle[$i]) = $aStyle[$i] Then
                  Return False
              EndIf
          Next
          Return True
      EndIf
      Return False
 EndFunc   ;==>_IsButton
 </syntaxhighlight>
-[[#top|Return To Contents]]
-===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' _IsControlID() ~ Author - [http://www.autoitscript.com/forum/user/35302-guinness/ guinness] '''</blockquote> =====
+[[#top | ReturnToContents]]
+== _IsControlID ==
+{{Snippet Header
+| AuthorURL = 35302-guinness
+| AuthorName = guinness
+}}
 <syntaxhighlight lang="autoit">
@@ Line 235: / Line 330: @@
 Func Example()
-     Local $hGUI = GUICreate('')
+     Local Const $hGUI = GUICreate('')
-     Local $iControlID = GUICtrlCreateLabel('', 0, 0, 500, 500)
+     Local Const $iControlID = GUICtrlCreateLabel('', 0, 0, 500, 500)
-     Local $hListView = _GUICtrlListView_Create($hGUI, 'Example', 0, 0, 500, 500)
+     Local Const $hListView = _GUICtrlListView_Create($hGUI, 'Example', 0, 0, 500, 500)
-    GUISetState(@SW_SHOW, $hGUI)
+	GUISetState(@SW_SHOWNORMAL, $hGUI)
      MsgBox(4096, '', 'AutoIt ControlID: ' & _IsControlID($iControlID) & @CRLF & _
@@ Line 247: / Line 343: @@
      _GUICtrlListView_Destroy($hListView)
      Return GUIDelete($hGUI)
 EndFunc   ;==>Example
@@ Line 254: / Line 351: @@
          $iControlID = _WinAPI_GetDlgCtrlID($iControlID)
      EndIf
      Return IsHWnd(GUICtrlGetHandle($iControlID)) = 1
 EndFunc   ;==>_IsControlID
 </syntaxhighlight>
-[[#top|Return To Contents]]
-===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">'''  _GetAutoItIncludesFromSciTE() ~ Author - [http://www.autoitscript.com/forum/user/35302-guinness/ guinness] '''</blockquote> =====
+[[#top | ReturnToContents]]
+== _GetAutoItIncludesFromSciTE ==
+{{Snippet Header
+| AuthorURL = 35302-guinness
+| AuthorName = guinness
+}}
 <syntaxhighlight lang="autoit">
@@ Line 268: / Line 372: @@
 ; Retrieve the AutoIt includes path from the SciTE process.
 Func _GetAutoItIncludesFromSciTE()
-     Local $sRelativePath = '..\Include', $sWorkingDir = @WorkingDir
+     Local $sRelativePath = '..\Include'
-     FileChangeDir( _WinAPI_PathRemoveFileSpec(_WinAPI_GetProcessFileName(ProcessExists('SciTE.exe'))))
+	Local Const $sWorkingDir = @WorkingDir
+     FileChangeDir(_WinAPI_PathRemoveFileSpec(_WinAPI_GetProcessFileName(ProcessExists('SciTE.exe'))))
      $sRelativePath = _WinAPI_GetFullPathName($sRelativePath)
      FileChangeDir($sWorkingDir)
@@ Line 275: / Line 380: @@
 EndFunc   ;==>_GetAutoItIncludesFromSciTE
 </syntaxhighlight>
-[[#top|Return To Contents]]
-===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' _GetAutoItInstall() ~ Author - [http://www.autoitscript.com/forum/user/35302-guinness/ guinness] '''</blockquote> =====
+[[#top | ReturnToContents]]
+== _GetAutoItInstall ==
+{{Snippet Header
+|AuthorURL = 35302-guinness
+| AuthorName = guinness
+}}
 <syntaxhighlight lang="autoit">
@@ Line 288: / Line 399: @@
 EndFunc   ;==>_GetAutoItInstall
 </syntaxhighlight>
-[[#top|Return To Contents]]
-===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">'''  _GetAutoItInstallEx() ~ Author - [http://www.autoitscript.com/forum/user/35302-guinness/ guinness] '''</blockquote> =====
+[[#top | ReturnToContents]]
+== _GetAutoItInstallEx ==
+{{Snippet Header
+| AuthorURL = 35302-guinness
+| AuthorName = guinness
+}}
 <syntaxhighlight lang="autoit">
@@ Line 312: / Line 429: @@
 EndFunc   ;==>_GetAutoItInstallEx
 </syntaxhighlight>
-[[#top|Return To Contents]]
-===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">'''  _GetAutoItInstallFromSciTE() ~ Author - [http://www.autoitscript.com/forum/user/35302-guinness/ guinness] '''</blockquote> =====
+[[#top | ReturnToContents]]
+== _GetAutoItInstallFromSciTE ==
+{{Snippet Header
+| AuthorURL = 35302-guinness
+| AuthorName = guinness
+}}
 <syntaxhighlight lang="autoit">
@@ Line 328: / Line 451: @@
 EndFunc   ;==>_GetAutoItInstallFromSciTE
 </syntaxhighlight>
-[[#top|Return To Contents]]
-===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' _GetClasses() ~ Author - [http://www.autoitscript.com/forum/user/24-cyberslug/ CyberSlug] '''</blockquote> =====
+[[#top | ReturnToContents]]
+== _GetClasses ==
+{{Snippet Header
+| AuthorURL = 24-cyberslug
+| AuthorName = CyberSlug
+}}
 <syntaxhighlight lang="autoit">
@@ Line 342: / Line 471: @@
 	; Wait 10 seconds for the Calculator window to appear.
-	Local $hWnd = WinWait("[CLASS:CalcFrame]", "", 10)
+	Local const $hWnd = WinWait("[CLASS:CalcFrame]", '', 10)
 	; Retrieve a list of all the controls in the Calculator window using the handle returned by WinWait.
-	MsgBox(4096, "", _GetClasses($hWnd))
+	MsgBox(4096, '', _GetClasses($hWnd))
 	; Close the Calculator window using the handle returned by WinWait.
@@ Line 377: / Line 506: @@
 	Next
-	; Coombine the results.
+	; Combine the results.
 	Local $sReturn = ""
 	For $i = 1 To $aClassID[0]
 		$sReturn &= $aClassID[$i] & @LF
 	Next
 	Return $sReturn
 EndFunc   ;==>_GetClasses
 </syntaxhighlight>
-[[#top|Return To Contents]]
-===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' _GetFile() ~ Author - [http://www.autoitscript.com/forum/user/35302-guinness/ guinness] '''</blockquote> =====
+[[#top | ReturnToContents]]
+== _GetFile ==
+{{Snippet Header
+| AuthorURL = 35302-guinness
+| AuthorName = guinness
+}}
 <syntaxhighlight lang="autoit">
@@ Line 402: / Line 539: @@
 EndFunc   ;==>_GetFile
 </syntaxhighlight>
-[[#top|Return To Contents]]
-===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' _GetTitle() ~ Author - [http://www.autoitscript.com/forum/user/35302-guinness/ guinness] '''</blockquote> =====
+[[#top | ReturnToContents]]
+== _GetTitle ==
+{{Snippet Header
+| AuthorURL = 35302-guinness
+| AuthorName = guinness
+}}
 <syntaxhighlight lang="autoit">
@@ Line 418: / Line 561: @@
 EndFunc   ;==>_GetTitle
 </syntaxhighlight>
-[[#top|Return To Contents]]
-===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' _GetXML() ~ Author - [http://www.autoitscript.com/forum/user/35302-guinness/ guinness] '''</blockquote> =====
+[[#top | ReturnToContents]]
+== _GetXML ==
+{{Snippet Header
+| AuthorURL = 35302-guinness
+| AuthorName = guinness
+}}
 <syntaxhighlight lang="autoit">
@@ Line 443: / Line 592: @@
 EndFunc   ;==>_GetXML
 </syntaxhighlight>
-[[#top|Return To Contents]]
-===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' Include Source With Exe ~ Author - [http://www.autoitscript.com/forum/user/54985-jlogan3o13/ JLogan3o13] '''</blockquote> =====
+[[#top | ReturnToContents]]
+== Include Source With Exe ==
+{{Snippet Header
+| AuthorURL = 54985-jlogan3o13
+| AuthorName = JLogan3o13
+}}
 <syntaxhighlight lang="autoit">
 ;recover source .au3 file with /Extract switch
 ; The above code would be copied into the top of your script. The source location (C:\Test.au3 in my example) is the full path to your script file.
 ;Once compiled, if you run the script from the Run line with the /Extract switch, it will extact the original .au3 file into the Temp directory and will exit without actually executing the script.
 If StringInStr($cmdlineRaw, "/Extract") Then
-    FileInstall("C:\Test.au3", @TempDir & "\Test.au3", 1)
+	FileInstall("C:\Test.au3", @TempDir & "\Test.au3", 1)
-Exit
+	Exit
 EndIf
 </syntaxhighlight>
-[[#top|Return To Contents]]
-===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' _IsANSIFile() & _IsUnicodeFile() ~ Author - [http://www.autoitscript.com/forum/user/35302-guinness/ guinness] '''</blockquote> =====
+[[#top | ReturnToContents]]
+== _IsANSIFile ==
+{{Snippet Header
+| AuthorURL = 35302-guinness
+| AuthorName = guinness
+}}
 <syntaxhighlight lang="autoit">
@@ Line 464: / Line 625: @@
 ConsoleWrite(_IsANSIFile(@ScriptFullPath) & @LF) ; Returns True.
-ConsoleWrite(_IsUnicodeFile(@ScriptFullPath) & @LF) ; Returns False.
 Func _IsANSIFile($sFilePath)
      Return FileGetEncoding($sFilePath) = $FO_READ
 EndFunc   ;==>_IsUnicodeFile
+</syntaxhighlight>
+[[#top | ReturnToContents]]
+== _IsUnicodeFile ==
+{{Snippet Header
+| AuthorURL = 35302-guinness
+| AuthorName = guinness
+}}
+<syntaxhighlight lang="autoit">
+#include <FileConstants.au3>
+ConsoleWrite(_IsUnicodeFile(@ScriptFullPath) & @LF) ; Returns False.
 Func _IsUnicodeFile($sFilePath)
@@ Line 474: / Line 649: @@
 EndFunc   ;==>_IsUnicodeFile
 </syntaxhighlight>
-[[#top|Return To Contents]]
-===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">'''  _IsAu3File() ~ Author - [http://www.autoitscript.com/forum/user/35302-guinness/ guinness] '''</blockquote> =====
+[[#top | ReturnToContents]]
+== _IsAu3File ==
+{{Snippet Header
+| AuthorURL = 35302-guinness
+| AuthorName = guinness
+}}
 <syntaxhighlight lang="autoit">
@@ Line 487: / Line 668: @@
 EndFunc   ;==>_IsAu3File
 </syntaxhighlight>
-[[#top|Return To Contents]]
-===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' _IsDefault() ~ Author - [http://www.autoitscript.com/forum/user/35302-guinness/ guinness] '''</blockquote> =====
+[[#top | ReturnToContents]]
+== _IsDefault ==
+{{Snippet Header
+| AuthorURL = 35302-guinness
+| AuthorName = guinness
+}}
 <syntaxhighlight lang="autoit">
@@ Line 508: / Line 695: @@
 EndFunc   ;==>_IsDefault
 </syntaxhighlight>
-[[#top|Return To Contents]]
-===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' _IsInTrial() ~ Author - [http://www.autoitscript.com/forum/user/35302-guinness/ guinness] '''</blockquote> =====
+[[#top | ReturnToContents]]
+== _IsInTrial ==
+{{Snippet Header
+| AuthorURL = 4813-smoke-n
+| AuthorName = SmOke_N
+}}
 <syntaxhighlight lang="autoit">
@@ Line 521: / Line 714: @@
 ; Check if a trial period date is still valid.
-Func _IsInTrial($sDateString, $iDays) ; Based on the idea found here: http://www.autoitscript.com/forum/topic/...ial-time/page__view__findpost_
+Func _IsInTrial($sDateString, $iDays)
-     Return (_DateDiff('D', $sDateString, @YEAR & '/' & @MON & '/' & @MDAY) < $iDays)
+     Return (_DateDiff('D', $sDateString, _NowCalcDate()) < $iDays)
 EndFunc   ;==>_IsInTrial
 </syntaxhighlight>
-[[#top|Return To Contents]]
-===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' _IsVisible() ~ Author - [http://www.autoitscript.com/forum/user/35302-guinness/ guinness] '''</blockquote> =====
+[[#top | ReturnToContents]]
+== _IsVisible ==
+{{Snippet Header
+| AuthorURL =
+| AuthorName = Multiple
+}}
 <syntaxhighlight lang="autoit">
@@ Line 557: / Line 756: @@
 EndFunc   ;==>_IsVisible
 </syntaxhighlight>
-[[#top|Return To Contents]]
-===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' Open help file to desired page ~ Author - [http://www.autoitscript.com/forum/user/1967-garyfrost/ GaryFrost] '''</blockquote> =====
+[[#top | ReturnToContents]]
+== Open Help File to Desired Page ==
+{{Snippet Header
+| AuthorURL = 1967-garyfrost
+| AuthorName = GaryFrost
+}}
 <syntaxhighlight lang="autoit">
 ; Open help file / Open a desired page
-Local $sAutoItPath = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\AutoIt v3\AutoIt", "InstallDir")
+Global Const $sAutoItPath = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\AutoIt v3\AutoIt", "InstallDir")
 Run(@WindowsDir & "\hh.exe " & $sAutoItPath & "\AutoIt3.chm::/html/functions/GUICtrlCreateUpdown.htm")
 </syntaxhighlight>
-[[#top|Return To Contents]]
-===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' _RunAU3() ~ Author - [http://www.autoitscript.com/forum/user/35302-guinness/ guinness] '''</blockquote> =====
+[[#top | ReturnToContents]]
+== _RunAU3 ==
+{{Snippet Header
+| AuthorURL = 35302-guinness
+| AuthorName = guinness
+}}
 <syntaxhighlight lang="autoit">
@@ Line 588: / Line 799: @@
 EndFunc   ;==>_RunWaitAU3
 </syntaxhighlight>
-[[#top|Return To Contents]]
-===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' Run Any Au3 File From Your Program ~ Author - [http://www.autoitscript.com/forum/user/4920-valuater/ Valuater] '''</blockquote> =====
+[[#top | ReturnToContents]]
+== Run Any au3 File From Your Program ==
+{{Snippet Header
+| AuthorURL = 4920-valuater
+| AuthorName = Valuater
+}}
 <syntaxhighlight lang="autoit">
 ; Run Any Au3 File From Your Program
-Local $sFilePath = @ScriptDir & "\Test.au3"
+Global Const $sFilePath = @ScriptDir & "\Test.au3"
 If @Compiled Then
-	Local $sFileExe = FileGetShortName(@AutoItExe & ' /AutoIt3ExecuteScript "' & $sFilePath & '"')
+	Global Const $sFileExe = FileGetShortName(@AutoItExe & ' /AutoIt3ExecuteScript "' & $sFilePath & '"')
 	Run($sFileExe)
 Else
-	Local $sFileAu3 = FileGetShortName($sFilePath)
+	Global Const $sFileAu3 = FileGetShortName($sFilePath)
 	Run(@AutoItExe & " " & $sFileAu3, "", @SW_HIDE)
 EndIf
 </syntaxhighlight>
-[[#top|Return To Contents]]
-===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' _ScriptName() ~ Author - [http://www.autoitscript.com/forum/user/35302-guinness/ guinness] '''</blockquote> =====
+[[#top | ReturnToContents]]
+== _ScriptName ==
+{{Snippet Header
+| AuthorURL = 35302-guinness
+| AuthorName = guinness
+}}
 <syntaxhighlight lang="autoit">
@@ Line 617: / Line 840: @@
 EndFunc   ;==>_ScriptName
 </syntaxhighlight>
-[[#top|Return To Contents]]
-===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' _ScriptVersion() ~ Author - [http://www.autoitscript.com/forum/user/31149-milesahead/ MilesAhead] '''</blockquote> =====
+[[#top | ReturnToContents]]
+== _ScriptVersion ==
+{{Snippet Header
+| AuthorURL = 31149-milesahead
+| AuthorName = MilesAhead
+}}
 <syntaxhighlight lang="autoit">
 #NoTrayIcon
 #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
 #AutoIt3Wrapper_UseUpx=n
@@ Line 629: / Line 860: @@
 #AutoIt3Wrapper_AU3Check_Parameters=-d -w 1 -w 2 -w 3 -w- 4 -w 5 -w 6 -w- 7
 #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
 Global $version = _ScriptVersion()
 Global $msg = "ScriptVerDemo" & " " & $version & "  Copyright (c) 2012  www.favessoft.com" & @CRLF & @CRLF
 MsgBox(0x1040, "", $msg)
-;return File Version string from compiled or .au3 script
+; return File Version string from compiled or .au3 script
-;returns "" if no version info available
+; returns "" if no version info available
 ; Note: The .au3 script must contain #AutoItWrapper
 ; directives with file version or "" is returned.
-;
+Func _ScriptVersion(Const $Script = @ScriptFullPath)
-Func _ScriptVersion($Script = @ScriptFullPath)
-    Local $ver = "", $scriptHandle = -1, $found = False, $sPos = 0
      If StringRight($Script,4) = ".exe" Then
          Return FileGetVersion($Script)
      Else
-         $scriptHandle = FileOpen($Script)
+         Local Const $scriptHandle = FileOpen($Script)
+		Local $ver
+		Local $found = False
+		Local $pos
          If $scriptHandle <> -1 Then
              Do
                  $ver = FileReadLine($scriptHandle)
                  $sPos = StringInStr($ver, "_Fileversion=")
                  If $sPos Then
                      $ver = StringMid($ver, $sPos + StringLen("_Fileversion="))
@@ Line 655: / Line 891: @@
                  EndIf
              Until StringLeft($ver, 1) <> "#"
              FileClose($scriptHandle)
          EndIf
      EndIf
      If Not $found Then $ver = ""
      Return $ver
 EndFunc   ;==>_ScriptVersion
 </syntaxhighlight>
-[[#top|Return To Contents]]
-===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' _SetFile() ~ Author - [http://www.autoitscript.com/forum/user/35302-guinness/ guinness] '''</blockquote> =====
+[[#top | ReturnToContents]]
+== _SetFile ==
+{{Snippet Header
+| AuthorURL = 35302-guinness
+| AuthorName = guinness
+}}
 <syntaxhighlight lang="autoit">
 ; FileWrite Alternative
-Func _SetFile($sString, $sFile, $iOverwrite = 0)
+Func _SetFile(Const $sString, Const $sFile, Const $iOverwrite = 0)
-     Local $hFileOpen = FileOpen($sFile, $iOverwrite + 1)
+     Local Const $hFileOpen = FileOpen($sFile, $iOverwrite + 1)
      FileWrite($hFileOpen, $sString)
      FileClose($hFileOpen)
      If @error Then
          Return SetError(1, 0, $sString)
      EndIf
      Return $sString
 EndFunc   ;==>_SetFile
 </syntaxhighlight>
-[[#top|Return To Contents]]
-===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' _ShowHelp() ~ Author - [http://www.autoitscript.com/forum/user/60350-chimaera/ Chimaera] '''</blockquote> =====
+[[#top | ReturnToContents]]
+== _ShowHelp ==
+{{Snippet Header
+| AuthorURL = 60350-chimaera
+| AuthorName = Chimaera
+}}
 <syntaxhighlight lang="autoit">
@@ Line 687: / Line 941: @@
 Func _ShowHelp()
-	Return ShellExecute(@ProgramFilesDir & "\AutoIt3\AutoIt3Help.exe"); change this to the location of your own helpfile.
+	Return ShellExecute(@ProgramFilesDir & "\AutoIt3\AutoIt3Help.exe") ; change this to the location of your own helpfile.
 EndFunc   ;==>_ShowHelp
 </syntaxhighlight>
-[[#top|Return To Contents]]
-===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' _SingletonPID() ~ Author - [http://www.autoitscript.com/forum/user/35302-guinness/ guinness] '''</blockquote> =====
+[[#top | ReturnToContents]]
+== _SingletonPID ==
+{{Snippet Header
+| AuthorURL = 35302-guinness
+| AuthorName = guinness
+}}
 <syntaxhighlight lang="autoit">
 Local $iSingleton = _SingletonPID('RandomName', 1)
@@ Line 715: / Line 976: @@
 ; Example .......: Yes
 ; ===============================================================================================================================
-Func _SingletonPID($sOccurenceName, $iFlag = 0)
+Func _SingletonPID(Const $sOccurenceName, Const $iFlag = 0)
      Local $hHandle = WinGetHandle($sOccurenceName)
      If @error Then
          AutoItWinSetTitle($sOccurenceName)
@@ Line 728: / Line 990: @@
          EndIf
      EndIf
      Return 0
 EndFunc   ;==>_SingletonPID
 </syntaxhighlight>
-[[#top|Return To Contents]]
-===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' _Sort() ~ Author - [http://www.autoitscript.com/forum/user/35302-guinness/ guinness] '''</blockquote> =====
+[[#top | ReturnToContents]]
+== _Sort ==
+{{Snippet Header
+| AuthorURL = 35302-guinness
+| AuthorName = guinness
+}}
 <syntaxhighlight lang="autoit">
@@ Line 740: / Line 1,009: @@
 ConsoleWrite(_Sort("$sVariable" & @CRLF & "$iVariable" & @CRLF & "$tVariable" & @CRLF & "$pVariable"))
-Func _Sort($sSortList)
+Func _Sort(Const $sSortList)
-     Local $iPID = Run("sort.exe", @SystemDir, @SW_HIDE, $STDIN_CHILD + $STDOUT_CHILD), $sOutput = ""
+     Local Const $iPID = Run("sort.exe", @SystemDir, @SW_HIDE, $STDIN_CHILD + $STDOUT_CHILD), $sOutput = ""
      StdinWrite($iPID, $sSortList)
      StdinWrite($iPID)
      While 1
          $sOutput &= StdoutRead($iPID)
          If @error Then
              ExitLoop
          EndIf
      WEnd
      Return $sOutput
 EndFunc   ;==>_Sort
 </syntaxhighlight>
-[[#top|Return To Contents]]
-===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' Speak Object and save to wav file ~ Author - SolidSnake '''</blockquote> =====
+[[#top | ReturnToContents]]
+== Speak Object and Save to WAV File ==
+{{Snippet Header
+| AuthorURL = 52278-solidsnake26
+| AuthorName = SolidSnake26
+}}
 <syntaxhighlight lang="autoit">
@@ Line 763: / Line 1,041: @@
 _SpeakToWAV("AutoIt Snippets", @ScriptDir & "\SavedFile.wav")
-Func _SpeakToWAV($sText, $sFilePath)
+Func _SpeakToWAV(Const $sText, Const $sFilePath)
 	Local $ObjVoice = ObjCreate("Sapi.SpVoice")
 	Local $ObjFile = ObjCreate("Sapi.SpFileStream.1")
 	$ObjVoice.Speak($sText)
 	$ObjFile.Open($sFilePath, 3)
 	$ObjVoice.AudioOutputStream = $ObjFile
 EndFunc   ;==>_SpeakToWAV
 </syntaxhighlight>
-[[#top|Return To Contents]]
-===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' _VariableSwap() ~ Author - [http://www.autoitscript.com/forum/user/35302-guinness/ guinness] '''</blockquote> =====
+[[#top | ReturnToContents]]
+== _VariableSwap ==
+{{Snippet Header
+| AuthorURL = 35302-guinness
+| AuthorName = guinness
+}}
 <syntaxhighlight lang="autoit">
-Local $sString_1 = 'This is string 1.', $sString_2 = 'This is string 2.'
+Global $sString_1 = 'This is string 1.'
+Global $sString_2 = 'This is string 2.'
 ConsoleWrite('$sString_1: ' & $sString_1 & @CRLF)
@@ Line 787: / Line 1,077: @@
 ; Swap the contents of two variables.
 Func _VariableSwap(ByRef $vVariable_1, ByRef $vVariable_2) ; Similar to _ArraySwap though not obvious to some this isn't limited to arrays.
-     Local $vTemp = $vVariable_1
+     Local Const $vTemp = $vVariable_1
      $vVariable_1 = $vVariable_2
      $vVariable_2 = $vTemp
 EndFunc   ;==>_VariableSwap
 </syntaxhighlight>
-[[#top|Return To Contents]]
-===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' _WinAPI_CharLower() & _WinAPI_CharUpper() ~ Author - [http://www.autoitscript.com/forum/user/35302-guinness/ guinness] '''</blockquote> =====
+[[#top | ReturnToContents]]
+== _WinAPI_CharLower ==
+{{Snippet Header
+| AuthorURL = 35302-guinness
+| AuthorName = guinness
+}}
 <syntaxhighlight lang="autoit">
-;Convert characters to upper or lower case
 ConsoleWrite(_WinAPI_CharLower("EXAMPLE") & @CRLF) ; Similar to StringLower.
-ConsoleWrite(_WinAPI_CharUpper("example") & @CRLF) ; Similar to StringUpper.
 ; Convert characters to lowercase.
@@ Line 810: / Line 1,103: @@
      Return $aReturn[0]
 EndFunc   ;==>_WinAPI_CharLower
+</syntaxhighlight>
+[[#top | ReturnToContents]]
+== _WinAPI_CharUpper ==
+{{Snippet Header
+| AuthorURL = 35302-guinness
+| AuthorName = guinness
+}}
+<syntaxhighlight lang="autoit">
+ConsoleWrite(_WinAPI_CharUpper("example") & @CRLF) ; Similar to StringUpper.
 ; Convert characters to uppercase.
 Func _WinAPI_CharUpper($sString)
-    Local $aReturn = DllCall('user32.dll', 'wstr', 'CharUpperW', 'wstr', $sString)
+	Local $aReturn = DllCall('user32.dll', 'wstr', 'CharUpperW', 'wstr', $sString)
-    If @error Then
+	If @error Then
-        Return SetError(1, 0, $sString)
+		Return SetError(1, 0, $sString)
-    EndIf
+	EndIf
-    Return $aReturn[0]
+	Return $aReturn[0]
 EndFunc   ;==>_WinAPI_CharUpper
 </syntaxhighlight>
-[[#top|Return To Contents]]
-===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' _WinAPI_PathFileExists() ~ Author - [http://www.autoitscript.com/forum/user/35302-guinness/ guinness] '''</blockquote> =====
+[[#top | ReturnToContents]]
+== _WinAPI_PathFileExists ==
+{{Snippet Header
+| AuthorURL = 35302-guinness
+| AuthorName = guinness
+}}
 <syntaxhighlight lang="autoit">
@@ Line 840: / Line 1,152: @@
 EndFunc   ;==>_WinAPI_PathFileExists
 </syntaxhighlight>
-[[#top|Return To Contents]]
-===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' _WinActiveByExe() ~ Author - [http://www.autoitscript.com/forum/user/4813-smoke-n/ SmOke_N] '''</blockquote> =====
+[[#top | ReturnToContents]]
+== _WinActiveByExe ==
+{{Snippet Header
+| AuthorURL = 4813-smoke-n
+| AuthorName = SmOke_N
+}}
 <syntaxhighlight lang="autoit">
@@ Line 872: / Line 1,190: @@
 EndFunc
 </syntaxhighlight>
-[[#top|Return To Contents]]
-===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">'''  _WindowShake() ~ Author - [http://www.autoitscript.com/forum/user/35302-guinness/ guinness] '''</blockquote> =====
+[[#top | ReturnToContents]]
+== _WindowShake ==
+{{Snippet Header
+| AuthorURL = 35302-guinness
+| AuthorName = guinness
+}}
 <syntaxhighlight lang="autoit">
@@ Line 915: / Line 1,239: @@
 EndFunc   ;==>_WindowShake
 </syntaxhighlight>
-[[#top|Return To Contents]]
-===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' _WinGetDetails() ~ Author - [http://www.autoitscript.com/forum/user/35302-guinness/ guinness] '''</blockquote> =====
+[[#top | ReturnToContents]]
+== _WinGetDetails ==
+{{Snippet Header
+| AuthorURL = 35302-guinness
+| AuthorName = guinness
+}}
 <syntaxhighlight lang="autoit">
 #include <Array.au3>
-Local $aArray = _WinGetDetails('[ACTIVE]') ; Returns the Window's title, PID, folder path & filename.
+Global $aArray = _WinGetDetails('[ACTIVE]') ; Returns the Window's title, PID, folder path filename.
 If @error Then
      Exit
 EndIf
 _ArrayDisplay($aArray)
@@ Line 957: / Line 1,289: @@
 EndFunc   ;==>_WinGetPath
 </syntaxhighlight>
-[[#top|Return To Contents]]
-===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' _WinGetNumeratedClassList() ~ Authors - [http://www.autoitscript.com/forum/user/20477-mrcreator/ MrCreatoR] '''</blockquote> =====
+[[#top | ReturnToContents]]
+== _WinGetNumeratedClassList ==
+{{Snippet Header
+| AuthorURL = 20477-mrcreator
+| AuthorName = MrCreatoR
+}}
 <syntaxhighlight lang="autoit">
@@ Line 969: / Line 1,307: @@
      Local $sRetClassList = "", $sHold_List = "|"
      Local $aiInHold, $iInHold
      For $i = 1 To UBound($aClassList) - 1
          If $aClassList[$i] = "" Then ContinueLoop
          If StringRegExp($sHold_List, "\|" & $aClassList[$i] & "~(\d+)\|") Then
              $aiInHold = StringRegExp($sHold_List, ".*\|" & $aClassList[$i] & "~(\d+)\|.*", 1)
              $iInHold = Number($aiInHold[UBound($aiInHold)-1])
              If $iInHold = 0 Then $iInHold += 1
              $aClassList[$i] &= "~" & $iInHold + 1
              $sHold_List &= $aClassList[$i] & "|"
              $sRetClassList &= $aClassList[$i] & @LF
          Else
@@ Line 989: / Line 1,327: @@
          EndIf
      Next
      Return StringReplace(StringStripWS($sRetClassList, 3), "~", "")
 EndFunc
 </syntaxhighlight>
-[[#top|Return To Contents]]
-===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' _WinGetHandleByPID() ~ Author - [http://www.autoitscript.com/forum/user/4813-smoke-n/ SmOke_N] '''</blockquote> =====
+[[#top | ReturnToContents]]
+== _WinGetHandleByPID ==
+{{Snippet Header
+| AuthorURL = 4813-smoke-n
+| AuthorName = SmOke_N
+}}
 <syntaxhighlight lang="autoit">
 ; Get Window Handle by PID
-; Author Smoke_N
+#include <Array.au3>
+Global $a1 = _WinGetHandleByPID(232)
+Global $a2 = _WinGetHandleByPID("notepad.exe", -1)
+Global $a3 = _WinGetHandleByPID("notepad.exe", 0)
+Global $a4 = _WinGetHandleByPID("notepad.exe", 1)
-#include <array.au3>
-Local $a1, $a2, $a3, $a4
-$a1 = _WinGetHandleByPID(232)
-$a2 = _WinGetHandleByPID("notepad.exe", -1)
-$a3 = _WinGetHandleByPID("notepad.exe", 0)
-$a4 = _WinGetHandleByPID("notepad.exe", 1)
 _ArrayDisplay($a1, "1")
 _ArrayDisplay($a2, "2")
@@ Line 1,016: / Line 1,359: @@
 Func _WinGetHandleByPID($vProc, $nVisible = 1)
      $vProc = ProcessExists($vProc);
      If Not $vProc Then Return SetError(1, 0, 0)
      Local $aWL = WinList()
-     Local $aTemp[UBound($aWL)][2], $nAdd = 0
+     Local $aTemp[UBound($aWL)][2]
+	Local $nAdd = 0
      For $iCC = 1 To $aWL[0][0]
          If $nVisible = -1 And WinGetProcess($aWL[$iCC][1]) = $vProc Then
@@ Line 1,036: / Line 1,385: @@
          EndIf
      Next
-     If $nAdd = 0 Then Return SetError(2, 0, 0);No windows found
+     If $nAdd = 0 Then Return SetError(2, 0, 0) ; No windows found
      ReDim $aTemp[$nAdd + 1][2]
      $aTemp[0][0] = $nAdd
      Return $aTemp
 EndFunc
 </syntaxhighlight>
-[[#top|Return To Contents]]
+[[#top | ReturnToContents]]

Snippets ( AutoIt ): Difference between revisions

Latest revision as of 21:42, 16 January 2015

AutoItWinShow

AutoItWinGetText

_DockToWindow

_FuncExists

_FunctionSort

_IsBeta

_IsButton

_IsControlID

_GetAutoItIncludesFromSciTE

_GetAutoItInstall

_GetAutoItInstallEx

_GetAutoItInstallFromSciTE

_GetClasses

_GetFile

_GetTitle

_GetXML

Include Source With Exe

_IsANSIFile

_IsUnicodeFile

_IsAu3File

_IsDefault

_IsInTrial

_IsVisible

Open Help File to Desired Page

_RunAU3

Run Any au3 File From Your Program

_ScriptName

_ScriptVersion

_SetFile

_ShowHelp

_SingletonPID

_Sort

Speak Object and Save to WAV File

_VariableSwap

_WinAPI_CharLower

_WinAPI_CharUpper

_WinAPI_PathFileExists

_WinActiveByExe

_WindowShake

_WinGetDetails

_WinGetNumeratedClassList

_WinGetHandleByPID

Navigation menu