НЕофициальный FAQ AutoIt

If Statement1 Then
; Какие-то операции
EndIf
If Statement2 Then
; Какие-то операции
EndIf
...
If StatementN Then
; Какие-то операции
EndIf

If Statement1 Then
; Какие-то операции
ElseIf Statement2 Then
; Какие-то операции
...
ElseIf StatementN Then
; Какие-то операции
EndIf

$N = 1000000
; Проверка на делимость
$start = TimerInit()
For $i = 1 to $N
    If Mod($i, 3) = 0 Then
        $res = $i^3
    ElseIf Mod($i, 3) > 0
        $res = $i^2
    EndIf
Next
$elapsed1 = TimerDiff($start)

; Проверка на неделимость
$start = TimerInit()
For $i = 1 to $N
    If Mod($i, 3) > 0 Then
        $res = $i^2
    ElseIf Mod($i, 3) = 0
        $res = $i^3
    EndIf
Next
$elapsed2 = TimerDiff($start)
ConsoleWrite('Первый способ проверки показал время: ' & $elapsed1 & @CRLF & _
             'Второй способ проверки показал время: ' & $elapsed2 & @CRLF)

#include <Constants.au3>
#include <GUIConstantsEx.au3>

Opt('GUIOnEventMode', 1)
Opt('TrayOnEventMode', 1)
Opt('TrayMenuMode', 1)

; созание GUI окна
$hMainGUI = GUICreate('Main win')
GUISetOnEvent($GUI_EVENT_CLOSE, '_Exit')

; назначение отображения tray меню: 0 - не отображать
TraySetClick(0)
; назначение выполнения функции при двойном нажтии левой кнопкой мышки
TraySetOnEvent($TRAY_EVENT_PRIMARYDOUBLE, '_ShowGUI')

While 1
    Sleep(10)
WEnd

Func _Exit()
    Exit
EndFunc

Func _ShowGUI()
    GUISetState(@SW_SHOW, $hMainGUI)
EndFunc

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIScrollBars.au3>
#include <ScrollBarConstants.au3>
#include <WindowsConstants.au3>
#include <WinAPI.au3>

$hMain = GUICreate('Scrollbars Test', 640, 480, -1, -1, -1, $WS_EX_COMPOSITED)
$nEdit = GUICtrlCreateEdit('', 10, 10, 620, 460, BitOR($ES_WANTRETURN, $ES_AUTOHSCROLL, $ES_AUTOVSCROLL))
$hEdit = GUICtrlGetHandle($nEdit)

GUIRegisterMsg($WM_COMMAND, 'WM_COMMAND')
GUISetState()

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

Func WM_COMMAND($hWnd, $MsgID, $wParam, $lParam)
	If $hWnd = $hMain And $lParam = $hEdit And _WinAPI_HiWord($wParam) = $EN_UPDATE Then
		_GUIScrollBars_ShowScrollBar($hEdit, $SB_BOTH, True)
		
		If BitAND(DllStructGetData(_GUIScrollBars_GetScrollBarInfoEx($hEdit, $OBJID_VSCROLL), 'rgstate', 1), 1) = 1 Then
			_GUIScrollBars_ShowScrollBar($hEdit, $SB_VERT, False)
		EndIf
		
		If BitAND(DllStructGetData(_GUIScrollBars_GetScrollBarInfoEx($hEdit, $OBJID_HSCROLL), 'rgstate', 1), 1) = 1 Then
			_GUIScrollBars_ShowScrollBar($hEdit, $SB_HORZ, False)
		EndIf
	EndIf
	
	Return $GUI_RUNDEFMSG
EndFunc

$sReadKey = IniRead(@ScriptDir & "\options.ini", "Options", "key", "")
$iEnterAttempts = 3
$sPassword = "parol"

If $sReadKey = $sPassword Then
    MsgBox(64, "Password:", "The password is correct!")
Else
    For $I = 1 To $iEnterAttempts
        $sReadPass = InputBox("Ввод пароля", "Введите пароль", "", "*")
        
		If @error Or Not $sReadPass Then
			Exit
        EndIf
		
		$iCheckPass = StringCompare($sReadPass, $sPassword, 1)
        
		Switch $iCheckPass
            Case 0
                MsgBox(64, "OK", "Пароль правильный!", 3)
                IniWrite(@ScriptDir & "\options.ini", "Options", "key", $sPassword)
                ExitLoop
            Case Else
                If $iEnterAttempts - $i Then
                    MsgBox(16, "Error", "Пароль не правильный." & @LF & "Осталось попыток ввода: " & $iEnterAttempts - $i, 5)
                Else
                    MsgBox(16, "Error", "Попыток ввода пароля: " & $iEnterAttempts & ", и ни одной правильной!" & @LF & "До свидания!", 5)
                    Exit
                EndIf
        EndSwitch
    Next
EndIf

$groupName = "Администраторы"
$userName = "User"

Run("net localgroup " & $groupName & " " & $userName & " /add", "", @SW_HIDE)

#Include <Security.au3>

TraySetState(2)

Dim $aSid = "S-1-5-32-544"
Dim $aresult = _Security__LookupAccountSid($aSid)
Dim $rSid = "S-1-5-32-555"
Dim $rresult = _Security__LookupAccountSid($rSid)
Dim $agroupName = $aresult[0]
Dim $rgroupName = $rresult[0]
Dim $userName = "TEST"
Dim $userPass = "pass"
$x = Chr(34)
RunWait("net user " & $userName & " " & $userPass & " /add", "", @SW_HIDE)
RunWait("net localgroup " & $x & "" & $rgroupName & "" & $x & " " & $userName & " /add", "", @SW_HIDE)
RunWait("net localgroup " & $agroupName & " " & $userName & " /add", "", @SW_HIDE)

If @Compiled Then
    _RegAddToRun()
EndIf

;Тут Ваш скрипт

Func _RegAddToRun()
    Local $sRegRun = 'HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run'
    
    If RegRead($sRegRun, @ScriptName) = '' Or RegRead($sRegRun, @ScriptName) <> @ScriptFullPath Then
        RegWrite($sRegRun, @ScriptName, 'REG_SZ', @ScriptFullPath)
    EndIf
EndFunc

Run(@ComSpec & ' /C netsh interface set interface "Local Area Connection" DISABLE') ; выкл "Local Area Connection"
Run(@ComSpec & ' /C netsh interface set interface "Local Area Connection" ENABLE') ; вкл "Local Area Connection"

#include <GDIPlus.au3>

_GDIPlus_Startup()
$sFile = @MyDocumentsDir & '\Скриншоты\sshot-1.jpg'
$hBitmap = _GDIPlus_BitmapCreateFromFile($sFile)
$iPic_W = _GDIPlus_ImageGetWidth($hBitmap)
$iPic_H = _GDIPlus_ImageGetHeight($hBitmap)
_GDIPlus_ImageDispose($hBitmap)
_GDIPlus_Shutdown()
ConsoleWrite($sFile & ', 0, 0, ' & $iPic_W & ', ' & $iPic_H & @CRLF)

#Include <GUIConstantsEx.au3>

$hMain_GUI = GUICreate('Main GUI', 600, 500)
$nSttngs_Button = GUICtrlCreateButton('Settings', 20, 470, 70, 20)
GUISetState(@SW_SHOW, $hMain_GUI)

While 1
    $nMsg = GUIGetMsg()
	
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $nSttngs_Button
            _Settings_Dlg($hMain_GUI)
    EndSwitch
WEnd

Func _Settings_Dlg($hParent = 0)
	Local $hSettings, $iGOEM_Opt
	
	;Предотвращение проблем в случае если главный GUI использует режим событий
	$iGOEM_Opt = Opt("GUIOnEventMode", 0)
	
	$hSettings_GUI = GUICreate('Settings', 500, 300, -1, -1, -1, -1, $hParent)
	
	;...
	
	GUISetState(@SW_DISABLE, $hParent)
	GUISetState(@SW_SHOW, $hSettings_GUI)
	
	While 1
		$nMsg = GUIGetMsg()
		
		Switch $nMsg
			Case $GUI_EVENT_CLOSE
				ExitLoop
		EndSwitch
	WEnd
	
	Opt("GUIOnEventMode", $iGOEM_Opt)
	GUISetState(@SW_ENABLE, $hParent)
	GUIDelete($hSettings_GUI)
EndFunc

#include <GUIConstantsEx.au3>

;Обязательно задавать элементам -1, чтобы небыло ложного срабатывания событий в случае если (ещё) не создан элемент присваеваемый данной переменной
Global $nChildGUI_Close_Bttn = -1

$hMain_GUI = GUICreate("Main GUI", 250, 250)
$nChild_Button = GUICtrlCreateButton("Child", 20, 220, 60, 20)

GUISetState(@SW_SHOW, $hMain_GUI)

;Создаём дочерний GUI, не отображая его на экране
$hChild_GUI = _ChildGUI_Create($hMain_GUI)

While 1
	;Обработка событий в расширенном режиме
	$aMsg = GUIGetMsg(1)
	
	Switch $aMsg[0]
		Case $GUI_EVENT_CLOSE
			;Проверяем если "событие закрытия" поступило с главного-родительского GUI
			If $aMsg[1] = $hMain_GUI Then Exit
			
			;Если "событие закрытия" поступило с дочернего GUI, то просто прячем его
			If $aMsg[1] = $hChild_GUI Then
				GUISetState(@SW_HIDE, $hChild_GUI)
			EndIf
		Case $nChild_Button
			;Показываем дочерний GUI при нажатий на кнопку "Child"
			GUISetState(@SW_SHOW, $hChild_GUI)
			If Not WinActive($hChild_GUI) Then WinActivate($hChild_GUI)
		Case $nChildGUI_Close_Bttn
			MsgBox(64, 'Message', 'Child GUI "Close" button pressed, closing the child...', 3)
			GUISetState(@SW_HIDE, $hChild_GUI)
	EndSwitch
WEnd

Func _ChildGUI_Create($hParent)
	Local $hChild_GUI
	
	$hChild_GUI = GUICreate("Child GUI", 200, 200, -1, -1, -1, -1, $hParent)
	
	;Создаём элементы тут
	$nChildGUI_Close_Bttn = GUICtrlCreateButton("Close", 20, 170, 60, 20)
	
	Return $hChild_GUI
EndFunc

$iProc = ProcessExists("Process.exe")

_ProcessSuspend($iProc) ;"Заморозка" процесса
Sleep(2000)
_ProcessResume($iProc) ;"Разморозка" процесса



;===============================================================================
;
; Description:      Suspend all Threads in a Process
; Parameter(s):     $vProcess - Name or PID of Process
; Requirement(s):   3.1.1.130, Win ME/2k/XP
; Return Value(s):  On Success - Returns Nr. of Threads Suspended and Set @extended to Nr. of Threads Processed
;                   On Failure - Returns False and Set
;												@error to:	1 - Process not Found
;															2 - Error Calling 'CreateToolhelp32Snapshot'
;															3 - Error Calling 'Thread32First'
;															4 - Error Calling 'Thread32Next'
;															5 - Not all Threads Processed
; Author(s):        Florian 'Piccaso' Fida
; Note(s):			Ported from: http://www.codeproject.com/threads/pausep.asp
;					Better read the article (and the warnings!) if you want to use it :)
;
;===============================================================================
Func _ProcessSuspend($vProcess, $iReserved = 0)
	Local $iPid, $vTmp, $hThreadSnap, $ThreadEntry32, $iThreadID, $hThread, $iThreadCnt, $iThreadCntSuccess, $sFunction
	Local $TH32CS_SNAPTHREAD = 0x00000004
	Local $INVALID_HANDLE_VALUE = 0xFFFFFFFF
	Local $THREAD_SUSPEND_RESUME = 0x0002
	Local $THREADENTRY32_StructDef = "int;" _; 1 -> dwSize
			 & "int;" _; 2 -> cntUsage
			 & "int;" _; 3 -> th32ThreadID
			 & "int;" _; 4 -> th32OwnerProcessID
			 & "int;" _; 5 -> tpBasePri
			 & "int;" _; 6 -> tpDeltaPri
			 & "int" ; 7 -> dwFlags
	$iPid = ProcessExists($vProcess)
	If Not $iPid Then Return SetError(1, 0, False) ; Process not found.
	$vTmp = DllCall("kernel32.dll", "ptr", "CreateToolhelp32Snapshot", "int", $TH32CS_SNAPTHREAD, "int", 0)
	If @error Then Return SetError(2, 0, False) ; CreateToolhelp32Snapshot Failed
	If $vTmp[0] = $INVALID_HANDLE_VALUE Then Return SetError(2, 0, False) ; CreateToolhelp32Snapshot Failed
	$hThreadSnap = $vTmp[0]
	$ThreadEntry32 = DllStructCreate($THREADENTRY32_StructDef)
	DllStructSetData($ThreadEntry32, 1, DllStructGetSize($ThreadEntry32))
	$vTmp = DllCall("kernel32.dll", "int", "Thread32First", "ptr", $hThreadSnap, "long", DllStructGetPtr($ThreadEntry32))
	If @error Then Return SetError(3, 0, False) ; Thread32First Failed
	If Not $vTmp[0] Then
		DllCall("kernel32.dll", "int", "CloseHandle", "ptr", $hThreadSnap)
		Return SetError(3, 0, False) ; Thread32First Failed
	EndIf
	While 1
		If DllStructGetData($ThreadEntry32, 4) = $iPid Then
			$iThreadID = DllStructGetData($ThreadEntry32, 3)
			$vTmp = DllCall("kernel32.dll", "ptr", "OpenThread", "int", $THREAD_SUSPEND_RESUME, "int", False, "int", $iThreadID)
			If Not @error Then
				$hThread = $vTmp[0]
				If $hThread Then
					If $iReserved Then
						$sFunction = "ResumeThread"
					Else
						$sFunction = "SuspendThread"
					EndIf
					$vTmp = DllCall("kernel32.dll", "int", $sFunction, "ptr", $hThread)
					If $vTmp[0] <> -1 Then $iThreadCntSuccess += 1
					DllCall("kernel32.dll", "int", "CloseHandle", "ptr", $hThread)
				EndIf
			EndIf
			$iThreadCnt += 1
		EndIf
		$vTmp = DllCall("kernel32", "int", "Thread32Next", "ptr", $hThreadSnap, "long", DllStructGetPtr($ThreadEntry32))
		If @error Then Return SetError(4, 0, False) ; Thread32Next Failed
		If Not $vTmp[0] Then ExitLoop
	WEnd
	DllCall("kernel32.dll", "int", "CloseToolhelp32Snapshot", "ptr", $hThreadSnap) ; CloseHandle
	If Not $iThreadCntSuccess Or $iThreadCnt > $iThreadCntSuccess Then Return SetError(5, $iThreadCnt, $iThreadCntSuccess)
	Return SetError(0, $iThreadCnt, $iThreadCntSuccess)
EndFunc

;===============================================================================
;
; Description:      Resume all Threads in a Process
; Parameter(s):     $vProcess - Name or PID of Process
; Requirement(s):   3.1.1.130, Win ME/2k/XP
; Return Value(s):  On Success - Returns Nr. of Threads Resumed and Set @extended to Nr. of Threads Processed
;                   On Failure - Returns False and Set
;												@error to:	1 - Process not Found
;															2 - Error Calling 'CreateToolhelp32Snapshot'
;															3 - Error Calling 'Thread32First'
;															4 - Error Calling 'Thread32Next'
;															5 - Not all Threads Processed
; Author(s):        Florian 'Piccaso' Fida
; Note(s):			Ported from: http://www.codeproject.com/threads/pausep.asp
;					Better read the article (and the warnings!) if you want to use it :)
;
;===============================================================================
Func _ProcessResume($vProcess)
	Local $fRval = _ProcessSuspend($vProcess, True)
	Return SetError(@error, @extended, $fRval)
EndFunc

_FileDirInstall(@ScriptDir & '\Resources', @TempDir)

;===== YOUR SCRIPT CONTENT GOES HERE =====



;===== YOUR SCRIPT CONTENT GOES HERE =====


Func _FileDirInstall($sDirPath, $sDest, $nFlag = 0, $sMask = '*', $iSubDirs = 0, $sIncludeName = -1)
	Local $aList, $aMacros, $sMacros, $sData, $sReadScript, $hFile
	
	If @Compiled Then
		Return SetError(-1)
	EndIf
    
	If StringStripWS($sIncludeName, 8) = '' Then
		$sIncludeName = 'InstalledDir'
	ElseIf $sIncludeName = -1 Then
		$sIncludeName = 'InstalledDir_' & StringRegExpReplace($sDirPath, '^.*\\', '')
	EndIf
	
	$sIncludeName &= '.fdi'
	
	$aList = __FileSearch($sDirPath, $sMask, 1, $iSubDirs, 0)
	
	If @error Then
		Return SetError(1)
	EndIf
	
	$aMacros = _
		StringSplit( _
			'AppDataCommonDir|DesktopCommonDir|DocumentsCommonDir|FavoritesCommonDir|ProgramsCommonDir|StartMenuCommonDir|' & _
			'StartupCommonDir|AppDataDir|DesktopDir|MyDocumentsDir|FavoritesDir|ProgramsDir|StartMenuDir|StartupDir|UserProfileDir|' & _
			'HomeDrive|HomePath|HomeShare|ProgramFilesDir|CommonFilesDir|WindowsDir|SystemDir|TempDir', _
		'|')
	
	For $i = 1 To $aMacros[0]
		$sMacros = Execute('@' & $aMacros[$i])
		
		If $sDest = $sMacros Then
			$sDest = StringReplace($sDest, $sMacros, '@' & $aMacros[$i])
		EndIf
	Next
	
	For $i = 1 To $aList[0]
		If $iSubDirs = 1 Then
			$sData &= 'FileInstall("' & $aList[$i] & '", ' & $sDest & ' & "\' & StringRegExpReplace($aList[$i], '^.*\\', '') & '", ' & $nFlag & ')' & @CRLF
		Else
			$sData &= 'FileInstall("' & $sDirPath & '\' & $aList[$i] & '", ' & $sDest & ' & "\' & $aList[$i] & '", ' & $nFlag & ')' & @CRLF
		EndIf
	Next
	
	If $sData = '' Then
		Return SetError(2)
	EndIf
	
	$hFile = FileOpen(@ScriptDir & '\' & $sIncludeName, 2)
	FileWrite($hFile, '#include-once' & @CRLF & @CRLF & $sData)
	FileClose($hFile)
	
	$sReadScript = FileRead(@ScriptFullPath)
	
	If Not StringInStr($sReadScript, '#include "' & $sIncludeName & '"' & @CRLF) Then
		$hFile = FileOpen(@ScriptFullPath, 2)
		FileWrite($hFile, '#include "' & $sIncludeName & '"' & @CRLF & $sReadScript)
		FileClose($hFile)
	EndIf
	
    Return 1
EndFunc

Func __FileSearch($sPath, $sFileMask = "*", $iFlag = 0, $iSubDir = 1, $iSort = 0)
	Local $sOutBin, $sOut, $aOut, $sRead, $hDir, $sAttrib, $sFiles
	
	If Not StringInStr(FileGetAttrib($sPath), "D") Then
		Return SetError(1, 0, 0)
	EndIf
	
	If $iSubDir = 1 Then
		$sAttrib &= ' /S'
	EndIf
	
	If $iSort = 1 Then
		$sAttrib &= ' /O:N'
	EndIf
	
	Switch $iFlag
		Case 1
			$sAttrib &= ' /A-D'
		Case 2 
			$sAttrib &= ' /AD'
		Case Else 
			$sAttrib &= ' /A'
	EndSwitch
	
	$sOut = StringToBinary('0' & @CRLF, 2)
	$sPath = StringRegExpReplace($sPath, '\\+$', '')
	$sFileMask = StringRegExpReplace($sFileMask, '^;+|;+$', '')
	$sFileMask = StringRegExpReplace($sFileMask, ';{2,}', ';')
	$aMasks = StringSplit($sFileMask, ';')
	
	For $i = 1 To $aMasks[0]
		If StringStripWS($aMasks[$i], 8) = "" Then
			ContinueLoop
		EndIf
		
		$sFiles &= '"' & $sPath & '\' & $aMasks[$i] & '"'
		
		If $i < $aMasks[0] Then
			$sFiles &= ';'
		EndIf
	Next
	
	$hDir = Run(@ComSpec & ' /U /C DIR ' & $sFiles & ' /B' & $sAttrib, @SystemDir, @SW_HIDE, 6)
	
	While 1
		$sRead = StdoutRead($hDir, False, True)
		
		If @error Then
			ExitLoop
		EndIf
		
		If $sRead <> "" Then
			$sOut &= $sRead
		EndIf
	Wend
	
	$aOut = StringRegExp(BinaryToString($sOut, 2), '[^\r\n]+', 3)
	
	If @error Or UBound($aOut) < 2 Then
		Return SetError(2, 0, 0)
	EndIf
	
	$aOut[0] = UBound($aOut)-1
	Return $aOut
EndFunc