[z--z]
GUI<¤>
$hGui = GUICreate('My Program', 250, 260)
$iBtn = GUICtrlCreateButton('Start', 10, 10, 120, 22)
$iStatusBar = GUICtrlCreateLabel('StatusBar', 5, 260 - 20, 150, 17)
GUISetState()
While 1
	Switch GUIGetMsg()
		Case $iBtn
			GUICtrlSetData($iStatusBar, 'Done')
		Case -3
			Exit
	EndSwitch
WEnd
[z--z]
FileRead<¤>
$sText = FileRead(@ScriptDir & '\file.txt')
[z--z]
FileRead 2<¤>
$hFile = FileOpen(@ScriptDir & '\file.txt', 0)
$sText = FileRead($hFile)
FileClose($hFile)
[z--z]
FileWrite<¤>
$hFile = FileOpen(@ScriptDir & '\file.txt', 2)
FileWrite($hFile, $sText)
FileClose($hFile)
[z--z]
If / Else<¤>
If $Trg Then
	
Else
	
EndIf
[z--z]
Switch<¤>
Switch $msg
	Case $iBtn
		MsgBox(0, 'Сообщение', $text)
	Case $iLbl
		MsgBox(0, 'Сообщение', $text)
	Case $iLBx
		MsgBox(0, 'Сообщение', $text)
	Case Else
		MsgBox(0, 'Сообщение', $text)
EndSwitch
[z--z]
Select<¤>
Select
	Case $var = 1
		MsgBox(0, '', 'Если 1 тогда')
	Case $var2 = 'test'
		MsgBox(0, '', 'Если test тогда')
	Case Else
		MsgBox(0, '', 'Иначе')
EndSelect
[z--z]
While<¤>
While 1
	$msg = GUIGetMsg()
	Switch $msg
		Case -3
			Exit
	EndSwitch
WEnd
[z--z]
Do Until<¤>
Do
Until GUIGetMsg() = -3
[z--z]
cse<¤>
#cs

#ce
[z--z]
Func<¤>

Func _FuncName()
	
EndFunc
[z--z]
A3 Wrapper<¤>
#region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_OutFile=Program.exe
#AutoIt3Wrapper_OutFile_X64=ProgramX64.exe
#AutoIt3Wrapper_UseX64=n
#AutoIt3Wrapper_icon=Program.ico
#AutoIt3Wrapper_UseUpx=n
; #AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_Res_Comment=-
#AutoIt3Wrapper_Res_Description=Program.exe
#AutoIt3Wrapper_Res_Fileversion=0.1.0.0
#AutoIt3Wrapper_Res_Fileversion_AutoIncrement=n
#AutoIt3Wrapper_Res_LegalCopyright=Author
#AutoIt3Wrapper_Res_Language=1033
#AutoIt3Wrapper_Run_AU3Check=n
#AutoIt3Wrapper_Res_Field=Version|0.1
#AutoIt3Wrapper_Res_Field=Build|2013.08.15
#AutoIt3Wrapper_Res_Field=Coded by|Author
#AutoIt3Wrapper_Res_Field=Compile date|%longdate% %time%
#AutoIt3Wrapper_Res_Field=AutoIt Version|%AutoItVer%
#AutoIt3Wrapper_Run_Obfuscator=y
#Obfuscator_Parameters=/sf /sv /om /cs=0 /cn=0
#AutoIt3Wrapper_Run_After=del /f /q "%scriptdir%\%scriptfile%_Obfuscated.au3"
#endregion ;**** Directives created by AutoIt3Wrapper_GUI ****
[z--z]
_ArrayDisp<¤>
#include <Array.au3>
_ArrayDisplay($aArray, 'Array')
[z--z]
_Restart<¤>

Func _Restart()
	Local $sAutoIt_File = @TempDir & "\~Au3_ScriptRestart_TempFile.au3"
	Local $sRunLine, $sScript_Content, $hFile

	$sRunLine = @ScriptFullPath
	If Not @Compiled Then $sRunLine = @AutoItExe & ' /AutoIt3ExecuteScript ""' & $sRunLine & '""'
	If $CmdLine[0] > 0 Then $sRunLine &= ' ' & $CmdLineRaw

	$sScript_Content &= '#NoTrayIcon' & @CRLF & _
			'While ProcessExists(' & @AutoItPID & ')' & @CRLF & _
			'   Sleep(10)' & @CRLF & _
			'WEnd' & @CRLF & _
			'Run("' & $sRunLine & '")' & @CRLF & _
			'FileDelete(@ScriptFullPath)' & @CRLF

	$hFile = FileOpen($sAutoIt_File, 2)
	FileWrite($hFile, $sScript_Content)
	FileClose($hFile)

	Run(@AutoItExe & ' /AutoIt3ExecuteScript "' & $sAutoIt_File & '"', @ScriptDir, @SW_HIDE)
	Sleep(1000)
	Exit
EndFunc   ;==>_Restart
[z--z]
Language<¤>
; En
$LngAbout = 'About'
$LngVer = 'Version'

; Ru
; если русская локализация, то русский язык
If @OSLang = 0419 Then
	$LngAbout = 'О программе'
	$LngVer = 'Версия'
EndIf
[z--z]
SaveDialog<¤>
$sPath = FileSaveDialog('Сохранить как ...', @WorkingDir, 'Текстовый файл (*.txt)', 24, 'предпочтительное имя', $hGui)
If @error Then ContinueLoop
If StringRight($sPath, 4) <> '.txt' Then $sPath &= '.txt'
[z--z]
OpenDialog<¤>
$sPath = FileOpenDialog('Открыть', @WorkingDir, 'Конфигурационный (*.ini)', '', '', $hGui)
If @error Then ContinueLoop
If StringRight($sPath, 4) <> '.ini' Then $sPath &= '.ini'
[z--z]
SelectFolder<¤>
$sPath = FileSelectFolder('Открыть', '', 3, @WorkingDir, $hGui)
If @error Then ContinueLoop
GUICtrlSetData($Input, $sPath)
[z--z]
Timer<¤>
$timer = TimerInit()
MsgBox(0, "Время выполнения", 'Время : ' & Round(TimerDiff($timer) / 1000, 2) & ' сек')
[z--z]
AutoIt3ExecuteScript<¤>
$iPID = Run('"' & @AutoItExe & '" /AutoIt3ExecuteScript "' & @TempDir & '\file.au3"', '', @SW_HIDE)
[z--z]
CmdLine<¤>
If $CmdLine[0] Then
	Switch $CmdLine[1]
		Case '/a'
			RegWrite("HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", @ScriptName, "REG_SZ", '"' & @ScriptFullPath & '"')
	EndSwitch
EndIf
[z--z]
StdoutRead<¤>
$sLog = ''
$iPID = Run(@ComSpec & ' /C ipconfig -all', '', @SW_HIDE, 2)
While 1
	$sLog &= StdoutRead($iPID)
	If @error Then ExitLoop
	Sleep(10)
WEnd
MsgBox(0, "", StringRegExpReplace(@CRLF & $sLog, '(\r\n|\r|\n){2,}', '\1'))
[z--z]
compiled<¤>
If Not @Compiled Then GUISetIcon(@ScriptDir & '\icon.ico')
If Not @Compiled Then TraySetIcon(@ScriptDir & '\icon.ico')
[z--z]
HotKey _Exit<¤>
HotKeySet("{ESC}", "_Exit")
Func _Exit()
    Exit
EndFunc
[z--z]
If folder<¤>
If StringInStr(FileGetAttrib($a[$i]), "D") Then
[z--z]