Snippets ( Miscellaneous )
From AutoIt Wiki
Contents |
Please always credit an author in your script if you use their code. It is only polite.
Basic Installer Example
Author: guinness
; Basic idea for an installer. #include <GUIConstantsEx.au3> #include <TabConstants.au3> Example() Func Example() Local $aArray[11] = [10], $hGUI, $iBack, $iHeight = 500, $iIndex = 0, $iNext, $iTab, $iWidth = 500 $hGUI = GUICreate("", $iWidth, $iHeight) $iBack = GUICtrlCreateButton("Back", $iWidth - 180, $iHeight - 30, 85, 25) $iNext = GUICtrlCreateButton("Next", $iWidth - 90, $iHeight - 30, 85, 25) $iTab = GUICtrlCreateTab(-99, -99, 0, 0) ; Create a Tab group. For $i = 1 To $aArray[0] GUICtrlCreateTabItem($i) GUICtrlCreateLabel('Page ' & $i, 10, 10) Next GUICtrlCreateTabItem("") ; Close the Tab group. _Toggle_EnableOrDisable($iBack, 0) ; Disable the back button. GUISetState(@SW_SHOW, $hGUI) While 1 Switch GUIGetMsg() Case $GUI_EVENT_CLOSE ExitLoop Case $iBack If $iIndex = ($aArray[0] - 1) Then ; Enabled the next button if the index is currently at the maximum number of tabs minus 1. _Toggle_EnableOrDisable($iNext, 1) ; Enable the next button. EndIf $iIndex -= 1 ; Decrease the item index. If $iIndex <= 0 Then ; Disable the back button if the index is less than the number of tab items. $iIndex = 0 _Toggle_EnableOrDisable($iBack, 0) ; Disable the back button. EndIf GUICtrlSendMsg($iTab, $TCM_SETCURFOCUS, $iIndex, 0) Case $iNext $iIndex += 1 ; Increase the item index. If $iIndex = 1 Then _Toggle_EnableOrDisable($iBack, 1) ; Enable the back button if the index is equal to 1. EndIf If $iIndex >= ($aArray[0] - 1) Then ; Disable the next button if the index is greater than the number of tab items minus 1. $iIndex = ($aArray[0] - 1) _Toggle_EnableOrDisable($iNext, 0) ; Disable the next button. EndIf GUICtrlSendMsg($iTab, $TCM_SETCURFOCUS, $iIndex, 0) EndSwitch WEnd EndFunc ;==>Example Func _Toggle_EnableOrDisable($iControlID, $iOverride = -1) ; By guinness. Local $aState[2] = [$GUI_ENABLE, $GUI_DISABLE] If $iOverride > -1 Then $iOverride = Number(Not $iOverride) Else $iOverride = Number(BitAND(GUICtrlGetState($iControlID), $aState[0]) = $aState[0]) EndIf GUICtrlSetState($iControlID, $aState[$iOverride]) EndFunc ;==>_Toggle_EnableOrDisable
_DummyFile
Author: guinness
#include <WinAPI.au3> ; Create a dummy file that is 1MB in size. _DummyFile(@ScriptDir & "\Test.txt", 1, 1) ; Initial idea by trancexx who created it in AutoIt code. Func _DummyFile($sFilePath, $iSizeMB, $iOverwrite = 0) Local $hFile = _WinAPI_CreateFile($sFilePath, 0 + $iOverwrite, 4) If Not $hFile Then Return SetError(1, 0, 0) EndIf _WinAPI_SetFilePointer($hFile, 1048576 * $iSizeMB) _WinAPI_SetEndOfFile($hFile) Return Number(_WinAPI_CloseHandle($hFile)) EndFunc ;==>_DummyFile
_nDaysTrial_Check_Proc
Author: MrCreatoR
;#include-once ;Can be used as Include, only an idea ;) #include <String.au3> _nDaysTrial_Check_Proc("My_App", "Your registration period (%s Hour :) ) has expired!", 1) ;=================== Here goes your script code =================== ;================================================================== Func _nDaysTrial_Check_Proc($sTrialExp_Title, $sTrialExp_Msg, $nTrial=30) Local $nDays_Over = $nTrial Local $iFiles_Counter = 0 Local $iTotal_Files = 4 Local $aTrial_File[$iTotal_Files+1] $aTrial_File[0] = $iTotal_Files-1 $aTrial_File[1] = @WindowsDir & "\" & $sTrialExp_Title & ".sys" $aTrial_File[2] = @SystemDir & "\" & $sTrialExp_Title & ".sys" $aTrial_File[3] = @UserProfileDir & "\Local Settings\Application Data\" & $sTrialExp_Title & ".sys" $aTrial_File[4] = @AppDataCommonDir & "\" & $sTrialExp_Title & ".sys" For $i = 1 To $aTrial_File[0] $iFiles_Counter += FileExists($aTrial_File[$i]) Next If $iFiles_Counter > 0 And $iFiles_Counter < $aTrial_File[0] Then ;One of the files doesn't exists, that means that we got uncovered $nDays_Over += 1 ElseIf $iFiles_Counter = 0 Then ;All files are missing, that means one of two: we got uncovered, or this is the first run :) $iTimer_Init = TimerInit() For $i = 1 To $aTrial_File[0] FileWriteLine($aTrial_File[$i], _ _StringEncrypt(1, @YEAR & @MON & @UserName & @MIN & @SEC, @ComputerName) & @CRLF & _ _StringEncrypt(1, $aTrial_File[$i] & "=" & $iTimer_Init, @ComputerName) & @CRLF & _ _StringEncrypt(1, @ComputerName & @UserName & @MIN & @YEAR & @HOUR & @SEC, @ComputerName)) FileSetAttrib($aTrial_File[$i], "+SH") FileSetTime($aTrial_File[$i], "") ;Only as an option to check in the future... Next ElseIf $iFiles_Counter = $aTrial_File[0] Then ;All files found, now we check the synchronization and the times.. Local $sCurent_Decrypted_Line Local $aTimer_Inits[$aTrial_File[0]+1] $aTimer_Inits[0] = $aTrial_File[0] ;Here we get the Encrypted timer inits... For $i = 1 To $aTrial_File[0] $aReadFile = StringSplit(FileRead($aTrial_File[$i]), @CRLF) For $j = 1 To UBound($aReadFile)-1 $sCurent_Decrypted_Line = _StringEncrypt(0, $aReadFile[$j], @ComputerName) If StringInStr($sCurent_Decrypted_Line, $aTrial_File[$i]) Then $aTimer_Inits[$i] = Int(StringReplace($sCurent_Decrypted_Line, $aTrial_File[$i] & "=", "")) ExitLoop EndIf Next Next ;Now we check if all the init are the same values (to insure that they all is untouched)... For $i = $aTimer_Inits[0] To 2 Step -1 If $aTimer_Inits[$i] <> $aTimer_Inits[$i-1] Or Int($aTimer_Inits[$i]) < 1 Then $nDays_Over += 1 ExitLoop EndIf Next ;Ok, if the Timer Inits all the same, we check the time differences... If $nDays_Over = $nTrial Then ;If has been over $nTrial Hours, then we declare a state that our trial has expired If Round(Int(TimerDiff($aTimer_Inits[1])) / 1000 / 60 / 60, 2) >= $nTrial Then $nDays_Over += 1 EndIf EndIf If $nDays_Over > $nTrial Then MsgBox(262144+48, "*" & $sTrialExp_Title & "*", StringFormat($sTrialExp_Msg, $nTrial)) Exit EndIf EndFunc
_PasswordCrypt
Author: Valuater
Modified: guinness
#include <Crypt.au3> Local $sGenericPassword_1 = 'Password@AutoIt', $sGenericPassword_2 = 'NewPassword@AutoIt', $sSavePath = @ScriptDir & '\License.dat' ConsoleWrite('1. ' & _PasswordCrypt($sGenericPassword_1, $sSavePath) & @CRLF) ; Write the password to a file located in the @ScriptDir. The password we wrote is returned by the function. ConsoleWrite('2. ' & _PasswordCrypt($sGenericPassword_1, $sSavePath) & @CRLF) ; Since the password has been written already, we now want to check if the user has entered the password correctly. Returns True or False. ConsoleWrite('3. ' & _PasswordCrypt($sGenericPassword_2, $sSavePath, 1) & @CRLF) ; Overwrite the old password with a new one. ConsoleWrite('4. ' & _PasswordCrypt($sGenericPassword_1, $sSavePath) & @CRLF) ; Check the password matches. This will fail as we're checking the old password against the new one. FileDelete($sSavePath) Func _PasswordCrypt($sPassword, $sFilePath, $iOverwrite = 0) ; By guinness, idea by Valuater. If FileExists($sFilePath) And $iOverwrite = 0 Then Return BinaryToString(_Crypt_DecryptData(IniRead($sFilePath, 'PasswordKey', 'Password', ''), @ComputerName, $CALG_AES_256)) == $sPassword Else If IniWrite($sFilePath, 'PasswordKey', 'Password', _Crypt_EncryptData($sPassword, @ComputerName, $CALG_AES_256)) Then Return $sPassword EndIf EndIf Return SetError(1, 0, '') EndFunc ;==>_PasswordCrypt
_RandomText
Author: guinness
ConsoleWrite(_RandomText() & @CRLF) ; Generates a random block of text Func _RandomText($iLength = 10) Local $sData = "", $sRandom For $A = 1 To $iLength $sRandom = Random(55, 116, 1) $sData &= Chr($sRandom + 6 * ($sRandom > 90) - 7 * ($sRandom < 65)) Next Return $sData EndFunc ;==>_RandomText
_ReturnCard
KentonBomb
;=============================================================================== ; Function Name: _ReturnCard() ; Description: Returns a random card W/ Face value, Includes optional "Joker" card W/ No face valie ; Syntax: _ReturnCard([$nJoker) ; Parameter(s): $nJoker- Boolean representing whether or not the "Joker" is a possible card ; 0 - (default) Joker is not included ; Requirement(s): ; Return Value(s): $nJoker = 1: Card "Of" Face Value OR "Joker" ; $nJoker = 0: Card "Of" Face Value ; Author(s): KentonBomb (KentonBomb@gmail.com) ; Modification(s): None ; Note(s): This UDF may be useful for games, but Autoit's Random function may not be just "Random" Enough ; Example(s): MsgBox(0, "Your Card", "Your card was " & _ReturnCard()) ;=============================================================================== MsgBox(0, "Your Card", "Your card was " & _ReturnCard()) Func _ReturnCard($nJoker = 0) Local $nNumbers, $azSplits, $nRandom, $nReturn, $sFace, $sFaces, $nRandom2 $nNumbers = "Two,Three,Four,Five,Six,Seven,Eight,Nine,Ten,Jack,King,Queen,Ace" If $nJoker Then $nNumbers &= ",Joker" EndIf $azSplits = StringSplit($nNumbers, ",") $sReturn = $azSplits[Random(1, $azSplits[0], 1)] $sFaces = StringSplit("Spades|Clubs|Hearts|Diamonds", "|") $nRandom2 = Random(1, $sFaces[0] - 1) $sFace = $sFaces[Round($nRandom2)] If $sReturn = "Joker" Then Return $sReturn Else Return $sReturn & " Of " &$sFace EndIf EndFunc ;==>_ReturnCard
_ReturnCard
Author: guinness
ConsoleWrite( _ReturnCard() & @LF) Func _ReturnCard() Local $aFaces[5] = [4, "Clubs", "Diamonds", "Hearts", "Spades"], _ $aNumbers[14] = [13, "Two", "Three", "Four", "Five", "Six", "Seven", "Eight", "Nine", "Ten", "Jack", "Queen", "King", "Ace"] Return $aNumbers[Random(1, $aNumbers[0], 1)] & " Of " & $aFaces[Random(1, $aFaces[0], 1)] EndFunc ;==>_ReturnCard
_TextSize
Author: JScript
; Author: JScript - Snippet Version No. = 1.0 ; Snippet was Created Using AutoIt Version = 3.3.8.1, Creation Date = 23/05/12. Local $sText = "Sample text to determine the dimensions!" Local $aiSize = _TextSize($sText) MsgBox(4096, "TextSize", "String: " & $sText & @CRLF & @CRLF & "Width: " & $aiSize[0] & @CRLF & "Height: " & $aiSize[1]) Func _TextSize($sString, $iSize = 9, $iWeight = 400, $sFontName = "") Local $hWnd, $hGuiSwitch, $aCtrlSize, $aRetSize[2] = [0, 0] $hWnd = GUICreate($sString, 0, 0, 0, 0, BitOR(0x80000000, 0x20000000), BitOR(0x00000080, 0x00000020)) $hGuiSwitch = GUISwitch($hWnd) GUISetFont($iSize, $iWeight, -1, $sFontName, $hWnd) $aCtrlSize = ControlGetPos($hWnd, "", GUICtrlCreateLabel($sString, 0, 0)) GUIDelete($hWnd) GUISwitch($hGuiSwitch) If IsArray($aCtrlSize) Then $aRetSize[0] = $aCtrlSize[2]; Width $aRetSize[1] = $aCtrlSize[3]; Height Return SetError(0, 0, $aRetSize) EndIf Return SetError(1, 0, $aRetSize) EndFunc ;==>_TextSize
_UnExpandEnvStrings
Author: guinness
A simple wrapper for _WinAPI_PathUnExpandEnvStrings which will return a blank string if no replacements are made though this will return the original path.
#include <WinAPIEx.au3> ConsoleWrite(_UnExpandEnvStrings(@AppDataDir) & @CRLF) ConsoleWrite(_UnExpandEnvStrings('C:') & @CRLF) ConsoleWrite(_UnExpandEnvStrings('E:Scripts') & @CRLF) ; Would normally be blank with _WinAPI_PathUnExpandEnvStrings. ; Version: 1.00. AutoIt: V3.3.8.1 ; Is a simple wrapper for _WinAPI_PathUnExpandEnvStrings which will return a blank string if no replacements are made, though this will return the original path. Func _UnExpandEnvStrings($sFilePath) Local $sUnExpanded = _WinAPI_PathUnExpandEnvStrings($sFilePath) If StringStripWS($sUnExpanded, 8) = '' Then Return $sFilePath EndIf Return $sUnExpanded EndFunc ;==>_UnExpandEnvStrings
