Snippets ( AutoIt ): Difference between revisions
m (Added Template:Snippet Credit Header) |
(Converted all snippets to the Template:Snippet Header) |
||
Line 3: | Line 3: | ||
{{Snippet Credit Header}} | {{Snippet Credit Header}} | ||
{{Snippet Header|AutoItWinShow|35302-guinness|guinness|||1|AutoItCode= | |||
#include <GUIConstantsEx.au3> | #include <GUIConstantsEx.au3> | ||
Line 10: | Line 9: | ||
Func Example() | Func Example() | ||
; Display AutoIt's Hidden Window. See AutoItWinGetTitle and AutoItWinSetTitle for more details. | ; Display AutoIt's Hidden Window. See AutoItWinGetTitle and AutoItWinSetTitle for more details. | ||
AutoItWinShow() | AutoItWinShow() | ||
Line 24: | Line 22: | ||
; Display AutoIt's Hidden Window. Returns the handle of the window. | ; Display AutoIt's Hidden Window. Returns the handle of the window. | ||
Func AutoItWinShow() | 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. | 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. | 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 | Return $hWnd | ||
EndFunc ;==>AutoItWinShow | EndFunc ;==>AutoItWinShow | ||
}} | |||
{{Snippet Header|AutoItWinGetText|35302-guinness|guinness|||1|AutoItCode= | |||
Example() | Example() | ||
Func Example() | Func Example() | ||
; Display AutoIt's Hidden Window. See AutoItWinGetTitle and AutoItWinSetTitle for more details. | ; Display AutoIt's Hidden Window. See AutoItWinGetTitle and AutoItWinSetTitle for more details. | ||
AutoItWinShow() | AutoItWinShow() | ||
Line 62: | Line 55: | ||
; Retrieve the text in AutoIt's Hidden Window. | ; Retrieve the text in AutoIt's Hidden Window. | ||
Func AutoItWinGetText() | 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')) | Return ControlGetText($hWnd, '', ControlGetHandle($hWnd, '', 'Edit1')) | ||
EndFunc ;==>AutoItWinGetText | EndFunc ;==>AutoItWinGetText | ||
Line 68: | Line 61: | ||
; Add text to AutoIt's Hidden Window. | ; Add text to AutoIt's Hidden Window. | ||
Func AutoItWinSetText($sString) | 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) | Return ControlSetText($hWnd, "", ControlGetHandle($hWnd, "", 'Edit1'), ControlGetText($hWnd, '', ControlGetHandle($hWnd, '', 'Edit1')) & $sString) | ||
EndFunc ;==>AutoItWinSetText | EndFunc ;==>AutoItWinSetText | ||
Line 74: | Line 67: | ||
; Display AutoIt's Hidden Window. Returns the handle of the window. | ; Display AutoIt's Hidden Window. Returns the handle of the window. | ||
Func AutoItWinShow() | 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. | 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. | 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 | Return $hWnd | ||
EndFunc ;==>AutoItWinShow | EndFunc ;==>AutoItWinShow | ||
}} | |||
{{Snippet Header|_DockToWindow|35302-guinness|guinness|||1|AutoItCode= | |||
#include <GUIConstantsEx.au3> | #include <GUIConstantsEx.au3> | ||
#include <WinAPI.au3> | #include <WinAPI.au3> | ||
#include <WindowsConstants.au3> | #include <WindowsConstants.au3> | ||
If (Not ProcessExists( | If (Not ProcessExists("SciTE.exe")) Then | ||
Exit MsgBox(4096, '', | Exit MsgBox(4096, '', "Please start SciTE.exe") | ||
EndIf | EndIf | ||
Example() | Example() | ||
Func Example() | Func Example() | ||
; Create a GUI, similar to SciTE Jump's GUI. | ; 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(@ | |||
GUISetState(@SW_SHOWNORMAL, $hGUI) | |||
; Dock the first window to left and adjust the width based on the width of the second GUI. | ; Dock the first window to left and adjust the width based on the width of the second GUI. | ||
_DockToWindow(WinGetHandle( | _DockToWindow(WinGetHandle("[CLASS:SciTEWindow]"), $hGUI) | ||
While 1 | While 1 | ||
Line 108: | Line 100: | ||
EndSwitch | EndSwitch | ||
WEnd | WEnd | ||
GUIDelete($hGUI) | GUIDelete($hGUI) | ||
EndFunc ;==>Example | 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 | ; Retrieve the working area, this is minus the taskbar dimensions so slightly different to @DesktopHeight and @DesktopWidth which is the | ||
; monitors height and width. | ; monitors height and width. | ||
Local Const $SPI_GETWORKAREA = 48 | Local Const $SPI_GETWORKAREA = 48 | ||
Local $tWorkArea = DllStructCreate($tagRECT) | Local Const $tWorkArea = DllStructCreate($tagRECT) | ||
_WinAPI_SystemParametersInfo($SPI_GETWORKAREA, 0, DllStructGetPtr($tWorkArea)) | _WinAPI_SystemParametersInfo($SPI_GETWORKAREA, 0, DllStructGetPtr($tWorkArea)) | ||
; Retieve the position of the second GUI. | ; 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'. | ; Set the state of the windows to 'Restore'. | ||
Line 131: | Line 124: | ||
WinMove($hHandle_2, '', DllStructGetData($tWorkArea, 'Right') - DllStructGetData($tWorkArea, 'Left') - $aClientSize_2[2], DllStructGetData($tWorkArea, 'Top'), $aClientSize_2[2], DllStructGetData($tWorkArea, 'Bottom') - DllStructGetData($tWorkArea, 'Top')) | 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 | EndFunc ;==>_DockToWindow | ||
}} | |||
{{Snippet Header|_FuncExists|52-geosoft|GEOSoft|||1|AutoItCode= | |||
MsgBox(0, "TEST", "Function Exists = " & _FuncExists("_FuncExists", @ScriptFullPath)) | MsgBox(0, "TEST", "Function Exists = " & _FuncExists("_FuncExists", @ScriptFullPath)) | ||
Func _FuncExists($sFunc, $sPath) | Func _FuncExists($sFunc, $sPath) | ||
If | 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 | If IsArray($aRegEx) Then Return 1 | ||
Return 0 | Return 0 | ||
EndFunc | EndFunc | ||
}} | |||
{{Snippet Header|_FunctionSort|35302-guinness|guinness|||1|AutoItCode= | |||
; Get the list of Functions in a script and sort by alphabetical order. | ; Get the list of Functions in a script and sort by alphabetical order. | ||
#include <Array.au3> | #include <Array.au3> | ||
Line 158: | Line 146: | ||
Local $sFile = FileOpenDialog(@ScriptName, "Select an AutoIt file.", "Au3 (*.au3)") | Local $sFile = FileOpenDialog(@ScriptName, "Select an AutoIt file.", "Au3 (*.au3)") | ||
If @error Then | If @error Then | ||
Exit | Exit | ||
Line 164: | Line 153: | ||
Func _FunctionSort($sFilePath) | Func _FunctionSort($sFilePath) | ||
Local $aReturn | Local Const $sRead = FileRead($sFilePath) | ||
Local $aReturn = StringRegExp("Func _Count()" & @CRLF & "EndFunc ;==>_Count" & $sRead, '(?s)(?i)Func(.*?)EndFunc', 3) | |||
If @error Then | If @error Then | ||
Return SetError(1, 0, 0) | Return SetError(1, 0, 0) | ||
EndIf | EndIf | ||
$aReturn[0] = UBound($aReturn, 1) - 1 | $aReturn[0] = UBound($aReturn, 1) - 1 | ||
_ArraySort($aReturn, 0, 1) | _ArraySort($aReturn, 0, 1) | ||
Local $sReturn | |||
For $A = 1 To $aReturn[0] | For $A = 1 To $aReturn[0] | ||
$sReturn &= "Func" & $aReturn[$A] & "EndFunc" & @CRLF & @CRLF | $sReturn &= "Func" & $aReturn[$A] & "EndFunc" & @CRLF & @CRLF | ||
Next | Next | ||
Return $sReturn | Return $sReturn | ||
EndFunc ;==>_FunctionSort | EndFunc ;==>_FunctionSort | ||
}} | |||
{{Snippet Header|_IsButton|35302-guinness|guinness|||1|AutoItCode= | |||
#include <ButtonConstants.au3> | #include <ButtonConstants.au3> | ||
#include <Constants.au3> | #include <Constants.au3> | ||
Line 190: | Line 183: | ||
Func Example() | 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(@ | |||
GUISetState(@SW_SHOWNORMAL, $hGUI) | |||
MsgBox(4096, '', 'AutoIt Button ID: ' & _IsButton($iLabel) & @CRLF & _ | MsgBox(4096, '', 'AutoIt Button ID: ' & _IsButton($iLabel) & @CRLF & _ | ||
Line 208: | Line 202: | ||
$hWnd = GUICtrlGetHandle($hWnd) | $hWnd = GUICtrlGetHandle($hWnd) | ||
EndIf | EndIf | ||
Local $sClassName = _WinAPI_GetClassName($hWnd) | |||
Local Const $sClassName = _WinAPI_GetClassName($hWnd) | |||
If $sClassName = 'Button' Then | 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) | |||
Local Const $iLong = _WinAPI_GetWindowLong($hWnd, $GWL_STYLE) | |||
For $i = 1 To $aStyle[0] | |||
If BitAND($iLong, $aStyle[$i]) = $aStyle[$i] Then | If BitAND($iLong, $aStyle[$i]) = $aStyle[$i] Then | ||
Return False | Return False | ||
EndIf | EndIf | ||
Next | Next | ||
Return True | Return True | ||
EndIf | EndIf | ||
Return False | Return False | ||
EndFunc ;==>_IsButton | EndFunc ;==>_IsButton | ||
}} | |||
{{Snippet Header|_IsControlID|35302-guinness|guinness|||1|AutoItCode= | |||
; Check if a Control ID is a native AutoIt control. | ; Check if a Control ID is a native AutoIt control. | ||
Line 235: | Line 232: | ||
Func Example() | 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_SHOWNORMAL, $hGUI) | |||
MsgBox(4096, '', 'AutoIt ControlID: ' & _IsControlID($iControlID) & @CRLF & _ | MsgBox(4096, '', 'AutoIt ControlID: ' & _IsControlID($iControlID) & @CRLF & _ | ||
Line 247: | Line 245: | ||
_GUICtrlListView_Destroy($hListView) | _GUICtrlListView_Destroy($hListView) | ||
Return GUIDelete($hGUI) | Return GUIDelete($hGUI) | ||
EndFunc ;==>Example | EndFunc ;==>Example | ||
Line 254: | Line 253: | ||
$iControlID = _WinAPI_GetDlgCtrlID($iControlID) | $iControlID = _WinAPI_GetDlgCtrlID($iControlID) | ||
EndIf | EndIf | ||
Return IsHWnd(GUICtrlGetHandle($iControlID)) = 1 | Return IsHWnd(GUICtrlGetHandle($iControlID)) = 1 | ||
EndFunc ;==>_IsControlID | EndFunc ;==>_IsControlID | ||
}} | |||
{{Snippet Header|_GetAutoItIncludesFromSciTE|35302-guinness|guinness|||1|AutoItCode= | |||
#include <WinAPIEx.au3> | #include <WinAPIEx.au3> | ||
Line 268: | Line 265: | ||
; Retrieve the AutoIt includes path from the SciTE process. | ; Retrieve the AutoIt includes path from the SciTE process. | ||
Func _GetAutoItIncludesFromSciTE() | Func _GetAutoItIncludesFromSciTE() | ||
Local $sRelativePath = '..\Include' | 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) | $sRelativePath = _WinAPI_GetFullPathName($sRelativePath) | ||
FileChangeDir($sWorkingDir) | FileChangeDir($sWorkingDir) | ||
Return _WinAPI_PathRemoveBackslash($sRelativePath) | Return _WinAPI_PathRemoveBackslash($sRelativePath) | ||
EndFunc ;==>_GetAutoItIncludesFromSciTE | EndFunc ;==>_GetAutoItIncludesFromSciTE | ||
}} | |||
{{Snippet Header|_GetAutoItInstall|35302-guinness|guinness|||1|AutoItCode= | |||
; Get the AutoIt installation folder. | ; Get the AutoIt installation folder. | ||
Line 287: | Line 282: | ||
Return StringLeft(@AutoItExe, StringInStr(@AutoItExe, "\", 2, -1) - 1) | Return StringLeft(@AutoItExe, StringInStr(@AutoItExe, "\", 2, -1) - 1) | ||
EndFunc ;==>_GetAutoItInstall | EndFunc ;==>_GetAutoItInstall | ||
}} | |||
{{Snippet Header|_GetAutoItInstallEx|35302-guinness|guinness|||1|AutoItCode= | |||
ConsoleWrite(_GetAutoItInstallEx() & @CRLF) | ConsoleWrite(_GetAutoItInstallEx() & @CRLF) | ||
Line 311: | Line 303: | ||
EndIf | EndIf | ||
EndFunc ;==>_GetAutoItInstallEx | EndFunc ;==>_GetAutoItInstallEx | ||
}} | |||
{{Snippet Header|_GetAutoItInstallFromSciTE|35302-guinness|guinness|||1|AutoItCode= | |||
ConsoleWrite(_GetAutoItInstallFromSciTE() & @CRLF) | ConsoleWrite(_GetAutoItInstallFromSciTE() & @CRLF) | ||
Line 327: | Line 316: | ||
Return _WinAPI_PathRemoveBackslash($sRelativePath) | Return _WinAPI_PathRemoveBackslash($sRelativePath) | ||
EndFunc ;==>_GetAutoItInstallFromSciTE | EndFunc ;==>_GetAutoItInstallFromSciTE | ||
}} | |||
{{Snippet Header|_GetClasses|24-cyberslug|CyberSlug|||1|AutoItCode= | |||
; Get ALL Controls Info | ; Get ALL Controls Info | ||
Line 342: | Line 328: | ||
; Wait 10 seconds for the Calculator window to appear. | ; Wait 10 seconds for the Calculator window to appear. | ||
Local $hWnd = WinWait("[CLASS:CalcFrame]", | Local const $hWnd = WinWait("[CLASS:CalcFrame]", '', 10) | ||
; Retrieve a list of all the controls in the Calculator window using the handle returned by WinWait. | ; Retrieve a list of all the controls in the Calculator window using the handle returned by WinWait. | ||
MsgBox(4096, | MsgBox(4096, '', _GetClasses($hWnd)) | ||
; Close the Calculator window using the handle returned by WinWait. | ; Close the Calculator window using the handle returned by WinWait. | ||
Line 358: | Line 344: | ||
For $i = 1 To $aClasses[0] | For $i = 1 To $aClasses[0] | ||
Switch | |||
Case $aClasses[$i] = "Button" | Case $aClasses[$i] = "Button" | ||
$iCount_Button += 1 | $iCount_Button += 1 | ||
Line 377: | Line 363: | ||
Next | Next | ||
; | ; Combine the results. | ||
Local $sReturn = "" | Local $sReturn = "" | ||
For $i = 1 To $aClassID[0] | For $i = 1 To $aClassID[0] | ||
$sReturn &= $aClassID[$i] & @LF | $sReturn &= $aClassID[$i] & @LF | ||
Next | Next | ||
Return $sReturn | Return $sReturn | ||
EndFunc ;==>_GetClasses | EndFunc ;==>_GetClasses | ||
}} | |||
{{Snippet Header|_GetFile|35302-guinness|guinness|||1|AutoItCode= | |||
; FileRead Alternative | ; FileRead Alternative | ||
Line 401: | Line 386: | ||
Return $sData | Return $sData | ||
EndFunc ;==>_GetFile | EndFunc ;==>_GetFile | ||
}} | |||
{{Snippet Header|_GetTitle|35302-guinness|guinness|||1|AutoItCode= | |||
; Get the title of your program. | ; Get the title of your program. | ||
Line 417: | Line 399: | ||
Return $sProgramName & $aOSArch[@AutoItX64] & $aPortable[FileExists($sInstallPath)] | Return $sProgramName & $aOSArch[@AutoItX64] & $aPortable[FileExists($sInstallPath)] | ||
EndFunc ;==>_GetTitle | EndFunc ;==>_GetTitle | ||
}} | |||
{{Snippet Header|_GetXML|35302-guinness|guinness|||1|AutoItCode= | |||
; Simple Way Of Parsing XML Data. | ; Simple Way Of Parsing XML Data. | ||
Line 442: | Line 421: | ||
Return SetError(0, 0, $aReturn) | Return SetError(0, 0, $aReturn) | ||
EndFunc ;==>_GetXML | EndFunc ;==>_GetXML | ||
}} | |||
{{Snippet Header|Include Source With Exe|54985-jlogan3o13|JLogan3o13|||1|AutoItCode= | |||
;recover source .au3 file with /Extract switch | ;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. | ; 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. | ;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 | If StringInStr($cmdlineRaw, "/Extract") Then | ||
FileInstall("C:\Test.au3", @TempDir & "\Test.au3", 1) | |||
Exit | Exit | ||
EndIf | EndIf | ||
}} | |||
{{Snippet Header|_IsANSIFile|35302-guinness|guinness|||1|AutoItCode= | |||
#include <FileConstants.au3> | #include <FileConstants.au3> | ||
ConsoleWrite(_IsANSIFile(@ScriptFullPath) & @LF) ; Returns True. | ConsoleWrite(_IsANSIFile(@ScriptFullPath) & @LF) ; Returns True. | ||
Func _IsANSIFile($sFilePath) | Func _IsANSIFile($sFilePath) | ||
Return FileGetEncoding($sFilePath) = $FO_READ | Return FileGetEncoding($sFilePath) = $FO_READ | ||
EndFunc ;==>_IsUnicodeFile | EndFunc ;==>_IsUnicodeFile | ||
}} | |||
{{Snippet Header|_IsUnicodeFile|35302-guinness|guinness|||1|AutoItCode= | |||
#include <FileConstants.au3> | |||
ConsoleWrite(_IsUnicodeFile(@ScriptFullPath) & @LF) ; Returns False. | |||
Func _IsUnicodeFile($sFilePath) | Func _IsUnicodeFile($sFilePath) | ||
Return FileGetEncoding($sFilePath) = $FO_UNICODE | Return FileGetEncoding($sFilePath) = $FO_UNICODE | ||
EndFunc ;==>_IsUnicodeFile | EndFunc ;==>_IsUnicodeFile | ||
}} | |||
{{Snippet Header|_IsAu3File|35302-guinness|guinness|||1|AutoItCode= | |||
ConsoleWrite(_IsAu3File(@AutoItExe) & @CRLF) | ConsoleWrite(_IsAu3File(@AutoItExe) & @CRLF) | ||
ConsoleWrite(_IsAu3File(@ScriptFullPath) & @CRLF) | ConsoleWrite(_IsAu3File(@ScriptFullPath) & @CRLF) | ||
Line 486: | Line 461: | ||
Return StringTrimLeft($sFilePath, StringInStr($sFilePath, ".", 2, -1)) = "au3" | Return StringTrimLeft($sFilePath, StringInStr($sFilePath, ".", 2, -1)) = "au3" | ||
EndFunc ;==>_IsAu3File | EndFunc ;==>_IsAu3File | ||
}} | |||
{{Snippet Header|_IsDefault|35302-guinness|guinness|||1|AutoItCode= | |||
If _IsDefault(Default) Then | If _IsDefault(Default) Then | ||
MsgBox(0, "_IsDefault() - 1", "This was a Default variable.") | MsgBox(0, "_IsDefault() - 1", "This was a Default variable.") | ||
Line 507: | Line 479: | ||
Return StringRegExp($sDefault, "(?-i)\s|Default|-1|0") | Return StringRegExp($sDefault, "(?-i)\s|Default|-1|0") | ||
EndFunc ;==>_IsDefault | EndFunc ;==>_IsDefault | ||
}} | |||
{{Snippet Header|_IsInTrial|35302-guinness|guinness|||1|AutoItCode= | |||
#include <Date.au3> ; Required for _DateDiff() | #include <Date.au3> ; Required for _DateDiff() | ||
Line 524: | Line 493: | ||
Return (_DateDiff('D', $sDateString, @YEAR & '/' & @MON & '/' & @MDAY) < $iDays) | Return (_DateDiff('D', $sDateString, @YEAR & '/' & @MON & '/' & @MDAY) < $iDays) | ||
EndFunc ;==>_IsInTrial | EndFunc ;==>_IsInTrial | ||
}} | |||
{{Snippet Header|_IsVisible|35302-guinness|guinness|||1|AutoItCode= | |||
; Check if the Notepad Window is visible. | ; Check if the Notepad Window is visible. | ||
Line 556: | Line 522: | ||
Return BitAND(WinGetState($hWnd), 2) = 2 | Return BitAND(WinGetState($hWnd), 2) = 2 | ||
EndFunc ;==>_IsVisible | EndFunc ;==>_IsVisible | ||
}} | |||
{{Snippet Header|Open help file to desired page|1967-garyfrost|GaryFrost|||1|AutoItCode= | |||
; Open help file / Open a 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") | Run(@WindowsDir & "\hh.exe " & $sAutoItPath & "\AutoIt3.chm::/html/functions/GUICtrlCreateUpdown.htm") | ||
}} | |||
{{Snippet Header|_RunAU3|35302-guinness|guinness|||1|AutoItCode= | |||
_RunAU3("AU3_Example.txt", '"This is a commandline example!"') | _RunAU3("AU3_Example.txt", '"This is a commandline example!"') | ||
Line 587: | Line 547: | ||
Return $iPID | Return $iPID | ||
EndFunc ;==>_RunWaitAU3 | EndFunc ;==>_RunWaitAU3 | ||
}} | |||
{{Snippet Header|Run Any Au3 File From Your Program|4920-valuater|Valuater|||1|AutoItCode= | |||
; Run Any Au3 File From Your Program | ; Run Any Au3 File From Your Program | ||
Global Const $sFilePath = @ScriptDir & "\Test.au3" | |||
If @Compiled Then | If @Compiled Then | ||
Global Const $sFileExe = FileGetShortName(@AutoItExe & ' /AutoIt3ExecuteScript "' & $sFilePath & '"') | |||
Run($sFileExe) | Run($sFileExe) | ||
Else | Else | ||
Global Const $sFileAu3 = FileGetShortName($sFilePath) | |||
Run(@AutoItExe & " " & $sFileAu3, "", @SW_HIDE) | Run(@AutoItExe & " " & $sFileAu3, "", @SW_HIDE) | ||
EndIf | EndIf | ||
}} | |||
{{Snippet Header|_ScriptName|35302-guinness|guinness|||1|AutoItCode= | |||
ConsoleWrite(_ScriptName() & @CRLF) | ConsoleWrite(_ScriptName() & @CRLF) | ||
Line 616: | Line 570: | ||
Return StringLeft(@ScriptName, StringInStr(@ScriptName, '.', 2, -1) - 1) | Return StringLeft(@ScriptName, StringInStr(@ScriptName, '.', 2, -1) - 1) | ||
EndFunc ;==>_ScriptName | EndFunc ;==>_ScriptName | ||
}} | |||
{{Snippet Header|_ScriptVersion|31149-milesahead|MilesAhead|||1|AutoItCode= | |||
#NoTrayIcon | #NoTrayIcon | ||
#Region ;**** Directives created by AutoIt3Wrapper_GUI **** | #Region ;**** Directives created by AutoIt3Wrapper_GUI **** | ||
#AutoIt3Wrapper_UseUpx=n | #AutoIt3Wrapper_UseUpx=n | ||
Line 629: | Line 582: | ||
#AutoIt3Wrapper_AU3Check_Parameters=-d -w 1 -w 2 -w 3 -w- 4 -w 5 -w 6 -w- 7 | #AutoIt3Wrapper_AU3Check_Parameters=-d -w 1 -w 2 -w 3 -w- 4 -w 5 -w 6 -w- 7 | ||
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** | #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** | ||
Global $version = _ScriptVersion() | Global $version = _ScriptVersion() | ||
Global $msg = "ScriptVerDemo" & " " & $version & " Copyright (c) 2012 www.favessoft.com" & @CRLF & @CRLF | Global $msg = "ScriptVerDemo" & " " & $version & " Copyright (c) 2012 www.favessoft.com" & @CRLF & @CRLF | ||
MsgBox(0x1040, "", $msg) | 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 | ; Note: The .au3 script must contain #AutoItWrapper | ||
; directives with file version or "" is returned. | ; directives with file version or "" is returned. | ||
Func _ScriptVersion(Const $Script = @ScriptFullPath) | |||
Func _ScriptVersion($Script = @ScriptFullPath) | |||
If StringRight($Script,4) = ".exe" Then | If StringRight($Script,4) = ".exe" Then | ||
Return FileGetVersion($Script) | Return FileGetVersion($Script) | ||
Else | Else | ||
$scriptHandle = FileOpen($Script) | Local Const $scriptHandle = FileOpen($Script) | ||
Local $ver | |||
Local $found = False | |||
Local $pos | |||
If $scriptHandle <> -1 Then | If $scriptHandle <> -1 Then | ||
Do | Do | ||
$ver = FileReadLine($scriptHandle) | $ver = FileReadLine($scriptHandle) | ||
$sPos = StringInStr($ver, "_Fileversion=") | $sPos = StringInStr($ver, "_Fileversion=") | ||
If $sPos Then | If $sPos Then | ||
$ver = StringMid($ver, $sPos + StringLen("_Fileversion=")) | $ver = StringMid($ver, $sPos + StringLen("_Fileversion=")) | ||
Line 655: | Line 613: | ||
EndIf | EndIf | ||
Until StringLeft($ver, 1) <> "#" | Until StringLeft($ver, 1) <> "#" | ||
FileClose($scriptHandle) | FileClose($scriptHandle) | ||
EndIf | EndIf | ||
EndIf | EndIf | ||
If Not $found Then $ver = "" | If Not $found Then $ver = "" | ||
Return $ver | Return $ver | ||
EndFunc ;==>_ScriptVersion | EndFunc ;==>_ScriptVersion | ||
}} | |||
{{Snippet Header|_SetFile|35302-guinness|guinness|||1|AutoItCode= | |||
; FileWrite Alternative | |||
Func _SetFile(Const $sString, Const $sFile, Const $iOverwrite = 0) | |||
Local Const $hFileOpen = FileOpen($sFile, $iOverwrite + 1) | |||
FileWrite($hFileOpen, $sString) | FileWrite($hFileOpen, $sString) | ||
FileClose($hFileOpen) | FileClose($hFileOpen) | ||
If @error Then | If @error Then | ||
Return SetError(1, 0, $sString) | Return SetError(1, 0, $sString) | ||
EndIf | EndIf | ||
Return $sString | Return $sString | ||
EndFunc ;==>_SetFile | EndFunc ;==>_SetFile | ||
}} | |||
{{Snippet Header|_ShowHelp|60350-chimaera|Chimaera|||1|AutoItCode= | |||
HotKeySet("{F1}", "_ShowHelp") | HotKeySet("{F1}", "_ShowHelp") | ||
Func _ShowHelp() | 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 | EndFunc ;==>_ShowHelp | ||
}} | |||
{{Snippet Header|_SingletonPID|35302-guinness|guinness|||1|AutoItCode= | |||
Local $iSingleton = _SingletonPID('RandomName', 1) | Local $iSingleton = _SingletonPID('RandomName', 1) | ||
Line 715: | Line 671: | ||
; Example .......: Yes | ; Example .......: Yes | ||
; =============================================================================================================================== | ; =============================================================================================================================== | ||
Func _SingletonPID($sOccurenceName, $iFlag = 0) | Func _SingletonPID(Const $sOccurenceName, Const $iFlag = 0) | ||
Local $hHandle = WinGetHandle($sOccurenceName) | Local $hHandle = WinGetHandle($sOccurenceName) | ||
If @error Then | If @error Then | ||
AutoItWinSetTitle($sOccurenceName) | AutoItWinSetTitle($sOccurenceName) | ||
Line 728: | Line 685: | ||
EndIf | EndIf | ||
EndIf | EndIf | ||
Return 0 | Return 0 | ||
EndFunc ;==>_SingletonPID | EndFunc ;==>_SingletonPID | ||
}} | |||
{{Snippet Header|_Sort|35302-guinness|guinness|||1|AutoItCode= | |||
#include <Constants.au3> | #include <Constants.au3> | ||
ConsoleWrite(_Sort("$sVariable" & @CRLF & "$iVariable" & @CRLF & "$tVariable" & @CRLF & "$pVariable")) | 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, $sSortList) | ||
StdinWrite($iPID) | StdinWrite($iPID) | ||
While 1 | While 1 | ||
$sOutput &= StdoutRead($iPID) | $sOutput &= StdoutRead($iPID) | ||
If @error Then | If @error Then | ||
ExitLoop | ExitLoop | ||
EndIf | EndIf | ||
WEnd | WEnd | ||
Return $sOutput | Return $sOutput | ||
EndFunc ;==>_Sort | EndFunc ;==>_Sort | ||
}} | |||
{{Snippet Header|Speak Object and Save to WAV File|52278-solidsnake26|SolidSnake26|||1|AutoItCode= | |||
; Speak Object and save to wav file | ; Speak Object and save to wav file | ||
_SpeakToWAV("AutoIt Snippets", @ScriptDir & "\SavedFile.wav") | _SpeakToWAV("AutoIt Snippets", @ScriptDir & "\SavedFile.wav") | ||
Func _SpeakToWAV($sText, $sFilePath) | Func _SpeakToWAV(Const $sText, Const $sFilePath) | ||
Local $ObjVoice = ObjCreate("Sapi.SpVoice") | Local $ObjVoice = ObjCreate("Sapi.SpVoice") | ||
Local $ObjFile = ObjCreate("Sapi.SpFileStream.1") | Local $ObjFile = ObjCreate("Sapi.SpFileStream.1") | ||
$ObjVoice.Speak($sText) | $ObjVoice.Speak($sText) | ||
$ObjFile.Open($sFilePath, 3) | $ObjFile.Open($sFilePath, 3) | ||
$ObjVoice.AudioOutputStream = $ObjFile | $ObjVoice.AudioOutputStream = $ObjFile | ||
EndFunc ;==>_SpeakToWAV | EndFunc ;==>_SpeakToWAV | ||
}} | |||
{{Snippet Header|_VariableSwap|35302-guinness|guinness|||1|AutoItCode= | |||
Global $sString_1 = 'This is string 1.' | |||
Global $sString_2 = 'This is string 2.' | |||
ConsoleWrite('$sString_1: ' & $sString_1 & @CRLF) | ConsoleWrite('$sString_1: ' & $sString_1 & @CRLF) | ||
Line 787: | Line 745: | ||
; Swap the contents of two variables. | ; 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. | 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_1 = $vVariable_2 | ||
$vVariable_2 = $vTemp | $vVariable_2 = $vTemp | ||
EndFunc ;==>_VariableSwap | EndFunc ;==>_VariableSwap | ||
}} | |||
{{Snippet Header|_WinAPI_CharLower|35302-guinness|guinness|||1|AutoItCode= | |||
;Convert characters to upper or lower case | ;Convert characters to upper or lower case | ||
ConsoleWrite(_WinAPI_CharLower("EXAMPLE") & @CRLF) ; Similar to StringLower. | ConsoleWrite(_WinAPI_CharLower("EXAMPLE") & @CRLF) ; Similar to StringLower. | ||
; Convert characters to lowercase. | ; Convert characters to lowercase. | ||
Line 810: | Line 764: | ||
Return $aReturn[0] | Return $aReturn[0] | ||
EndFunc ;==>_WinAPI_CharLower | EndFunc ;==>_WinAPI_CharLower | ||
}} | |||
{{Snippet Header|_WinAPI_CharUpper|35302-guinness|guinness|||1|AutoItCode= | |||
;Convert characters to upper or lower case | |||
; Convert characters to | ConsoleWrite(_WinAPI_CharLower("EXAMPLE") & @CRLF) ; Similar to StringLower. | ||
Func | |||
Local $aReturn = DllCall('user32.dll', 'wstr', ' | ; Convert characters to lowercase. | ||
Func _WinAPI_CharLower($sString) | |||
Local $aReturn = DllCall('user32.dll', 'wstr', 'CharLowerW', '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 ;==> | EndFunc ;==>_WinAPI_CharLower | ||
}} | |||
{{Snippet Header|_WinAPI_PathFileExists|35302-guinness|guinness|||1|AutoItCode= | |||
; An API Alternative To FileExist. | ; An API Alternative To FileExist. | ||
Line 839: | Line 796: | ||
Return $aReturn[0] | Return $aReturn[0] | ||
EndFunc ;==>_WinAPI_PathFileExists | EndFunc ;==>_WinAPI_PathFileExists | ||
}} | |||
{{Snippet Header|_WinActiveByExe|4813-smoke-n|SmOke_N|||1|AutoItCode= | |||
; Window Active/Activate by Exe, Open Notepad whilst script is running | ; Window Active/Activate by Exe, Open Notepad whilst script is running | ||
Line 871: | Line 825: | ||
Return SetError(2, 0, 0) | Return SetError(2, 0, 0) | ||
EndFunc | EndFunc | ||
}} | |||
{{Snippet Header|_WindowShake|35302-guinness|guinness|||1|AutoItCode= | |||
; Shake a window left to right. | ; Shake a window left to right. | ||
Line 914: | Line 865: | ||
Next | Next | ||
EndFunc ;==>_WindowShake | EndFunc ;==>_WindowShake | ||
}} | |||
{{Snippet Header|_WinGetDetails|35302-guinness|guinness|||1|AutoItCode= | |||
#include <Array.au3> | |||
Global $aArray = _WinGetDetails('[ACTIVE]') ; Returns the Window's title, PID, folder path filename. | |||
If @error Then | If @error Then | ||
Exit | Exit | ||
EndIf | EndIf | ||
_ArrayDisplay($aArray) | _ArrayDisplay($aArray) | ||
Line 956: | Line 906: | ||
Return SetError(1, 0, $aReturn) | Return SetError(1, 0, $aReturn) | ||
EndFunc ;==>_WinGetPath | EndFunc ;==>_WinGetPath | ||
}} | |||
{{Snippet Header|_WinGetNumeratedClassList|20477-mrcreator|MrCreatoR|||1|AutoItCode= | |||
; Description: Retrieves the numerated classes from a window. | ; Description: Retrieves the numerated classes from a window. | ||
Line 969: | Line 916: | ||
Local $sRetClassList = "", $sHold_List = "|" | Local $sRetClassList = "", $sHold_List = "|" | ||
Local $aiInHold, $iInHold | Local $aiInHold, $iInHold | ||
For $i = 1 To UBound($aClassList) - 1 | For $i = 1 To UBound($aClassList) - 1 | ||
If $aClassList[$i] = "" Then ContinueLoop | If $aClassList[$i] = "" Then ContinueLoop | ||
If StringRegExp($sHold_List, "\|" & $aClassList[$i] & "~(\d+)\|") Then | If StringRegExp($sHold_List, "\|" & $aClassList[$i] & "~(\d+)\|") Then | ||
$aiInHold = StringRegExp($sHold_List, ".*\|" & $aClassList[$i] & "~(\d+)\|.*", 1) | $aiInHold = StringRegExp($sHold_List, ".*\|" & $aClassList[$i] & "~(\d+)\|.*", 1) | ||
$iInHold = Number($aiInHold[UBound($aiInHold)-1]) | $iInHold = Number($aiInHold[UBound($aiInHold)-1]) | ||
If $iInHold = 0 Then $iInHold += 1 | If $iInHold = 0 Then $iInHold += 1 | ||
$aClassList[$i] &= "~" & $iInHold + 1 | $aClassList[$i] &= "~" & $iInHold + 1 | ||
$sHold_List &= $aClassList[$i] & "|" | $sHold_List &= $aClassList[$i] & "|" | ||
$sRetClassList &= $aClassList[$i] & @LF | $sRetClassList &= $aClassList[$i] & @LF | ||
Else | Else | ||
Line 989: | Line 936: | ||
EndIf | EndIf | ||
Next | Next | ||
Return StringReplace(StringStripWS($sRetClassList, 3), "~", "") | Return StringReplace(StringStripWS($sRetClassList, 3), "~", "") | ||
EndFunc | EndFunc | ||
}} | |||
{{Snippet Header|_WinGetHandleByPID|4813-smoke-n|SmOke_N|||1|AutoItCode= | |||
; 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($a1, "1") | ||
_ArrayDisplay($a2, "2") | _ArrayDisplay($a2, "2") | ||
Line 1,016: | Line 959: | ||
Func _WinGetHandleByPID($vProc, $nVisible = 1) | Func _WinGetHandleByPID($vProc, $nVisible = 1) | ||
$vProc = ProcessExists($vProc); | $vProc = ProcessExists($vProc); | ||
If Not $vProc Then Return SetError(1, 0, 0) | If Not $vProc Then Return SetError(1, 0, 0) | ||
Local $aWL = WinList() | Local $aWL = WinList() | ||
Local $aTemp[UBound($aWL)][2] | |||
Local $aTemp[UBound($aWL)][2] | |||
Local $nAdd = 0 | |||
For $iCC = 1 To $aWL[0][0] | For $iCC = 1 To $aWL[0][0] | ||
If $nVisible = -1 And WinGetProcess($aWL[$iCC][1]) = $vProc Then | If $nVisible = -1 And WinGetProcess($aWL[$iCC][1]) = $vProc Then | ||
Line 1,036: | Line 985: | ||
EndIf | EndIf | ||
Next | 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] | ReDim $aTemp[$nAdd + 1][2] | ||
$aTemp[0][0] = $nAdd | $aTemp[0][0] = $nAdd | ||
Return $aTemp | Return $aTemp | ||
EndFunc | EndFunc | ||
}} | |||
Revision as of 03:23, 12 November 2012
{{{AuthorName}}}
{{{AuthorName}}}
{{{AuthorName}}}
{{{AuthorName}}}
{{{AuthorName}}}
{{{AuthorName}}}
{{{AuthorName}}}
{{{AuthorName}}}
{{{AuthorName}}}
{{{AuthorName}}}
{{{AuthorName}}}
{{{AuthorName}}}
{{{AuthorName}}}
{{{AuthorName}}}
{{{AuthorName}}}
{{{AuthorName}}}
{{{AuthorName}}}
{{{AuthorName}}}
{{{AuthorName}}}
{{{AuthorName}}}
{{{AuthorName}}}
{{{AuthorName}}}
{{{AuthorName}}}
{{{AuthorName}}}
{{{AuthorName}}}
{{{AuthorName}}}
{{{AuthorName}}}
{{{AuthorName}}}
{{{AuthorName}}}
{{{AuthorName}}}
{{{AuthorName}}}
{{{AuthorName}}}
{{{AuthorName}}}
{{{AuthorName}}}
{{{AuthorName}}}
{{{AuthorName}}}
{{{AuthorName}}}
{{{AuthorName}}}
{{{AuthorName}}}
{{{AuthorName}}}
{{{AuthorName}}}