Тема: НЕофициальный FAQ AutoIt (Прочитано 15116 раз)

CreatoR · « **Создано:** Февраль 05, 2011, 00:47:49 »

Этот FAQ будет постепенно расти, по мере появления частых вопросов на форуме.

По любым предложениям/улучшениям/поправкам смело пишите мне в ЛС.

GUI и его элементы
1. Как избежать мелькание элементов GUI при их частом обновлений?
2. Как показать прокрутку только после того, когда текст выходит за рамки edit-поля?
3. Как сменить иконку у ListView Item?
4. Как правильно создавать дочерние окна?

Графика
1. Как получить размер изображения?

Автоматизация
1. Как учетной записи пользователя назначить административные права?
2. Как создать учётную запись пользователя с правами администратора?

Имитирование нажатия клавиш, Send, HotKeys
1. Почему не работает HotKeySet, или как обойти проблему с раскладкой клавиатуры при отправке сочетаний клавиш?

Общие принципы написания скриптов
1. Как эффективнее организовать операторы сравнения?
2. Почему лучше использовать BitOR для добавления значении констант (например в стилях GUI)?

Системный Tray
1. Как создать GUI по двойному нажатию на иконку в трее?

Разное
1. Как установить пароль на запуск скрипта?
2. Как запустить скрипт вместе с Windows?

Интернет и сеть
1. Как включить/выключить локальное сетевое подключение?
2. Как отправить GET-запрос?
3. Как отправить POST-запрос?
4. Как отправить имя и пароль для HTTP-аутентификации?

Файловая система
1. Как разделить/соеденить файл?

Процессы, сервисы и работа с памятью
1. Как “заморозить/разморозить” процесс?

AutoIt-специфичное
1. Как заставить FileInstall работать с каталогами?

CreatoR

Вопрос:
Почему не работает HotKeySet, или как обойти проблему с раскладкой клавиатуры при отправке сочетаний клавиш?

Ответ:
Обход проблемы с HotKeySet/Accelerators при разных раскладках клавиатуры

CreatoR

Вопрос:
Как отправить GET-запрос?

Ответ:

С помощью InetGet/InetRead

Код: AutoIt [Выделить]
$bData = InetRead('http://localhost/test/get.php?param1=value1&param2=value2', 1)

If Not @error Then
MsgBox(0, 'Data', BinaryToString($bData))
EndIf
С помощью WinHTTP через COM-интерфейс (http://msdn.microsoft.com/en-us/library/aa384106%28v=VS.85%29.aspx)

Код: AutoIt [Выделить]
$oRequest = ObjCreate('WinHttp.WinHttpRequest.5.1') ;Создаём COM-объект

If @error Then
MsgBox(16, 'Ошибка', 'Ошибка при создании объекта "WinHttp.WinHttpRequest.5.1".')
Exit 1
EndIf

$oErrorHandler = ObjEvent('AutoIt.Error', 'ErrorFunc') ;Создаём обработчик ошибок (COM Error Handling http://www.autoitscript.com/autoit3/docs/intro/ComRef.htm)

Func ErrorFunc()
MsgBox(16, 'Ошибка', $oErrorHandler.description)
Exit 2
EndFunc

$oRequest.Open('GET', 'http://localhost/test/get.php?param1=value1&param2=value2', 0) ;Создаём соеденение, указываем адрес страницы вместе с параметрами
$oRequest.SetRequestHeader('User-Agent', 'au3browser') ;Указываем заголовок User-Agent
$oRequest.Send() ;отправляем запрос
$sData = $oRequest.ResponseText

$oErrorHandler = 0 ;выключаем обработчик ошибок

MsgBox(0, 'Data', $sData)
С помощью WinHttp.au3 (WinHTTP через DllCalls) (http://www.autoitscript.com/forum/topic/84133-winhttp-functions/)

Код: AutoIt [Выделить]
#include "WinHttp.au3"

$hOpen = _WinHttpOpen('au3browser') ;инициализируем использование WinHTTP-функций, указываем заголовок User-Agent

If @error Then
MsgBox(16, 'Ошибка', 'Не удалось инициализировать использование WinHttp-функций.')
Exit 1
EndIf

$hConnect = _WinHttpConnect($hOpen, 'localhost') ;создаём соеденение, указываем только домен/ip-адрес

If @error Then
MsgBox(16, 'Ошибка', 'Не удалось создать соеденение.')
Exit 2
EndIf

$sData = _WinHttpSimpleRequest($hConnect, 'GET', 'test/get.php?param1=value1&param2=value2') ;отправляем запрос, указываем его метод, адрес страницы без домена и параметры

If @error Then
MsgBox(16, 'Ошибка', 'Не удалось отправить сообщение.')
Exit 3
EndIf

_WinHttpCloseHandle($hConnect)
_WinHttpCloseHandle($hOpen)

MsgBox(0, 'Data', $sData)
С помощью TCP-функций AutoIt

Код: AutoIt [Выделить]
$sDomain = 'localhost' ;домен или ip-адрес
$iPort = 80 ;порт

;Запрос, который будет отправлен серверу
$sRequest = 'GET /test/get.php?param1=value1&param2=value2 HTTP/1.1' & @CRLF ;Request-строка, параметры GET-запроса
$sRequest &= 'Connection: close' & @CRLF ;Заголовки
$sRequest &= 'Accept: */*' & @CRLF
$sRequest &= 'User-Agent: au3browser' & @CRLF
$sRequest &= 'Host: localhost' & @CRLF & @CRLF

If TCPStartup() = 0 Then ;запускаем TCP/UDP-службы
MsgBox(16, 'Ошибка', 'Не удалось запустить TCP/UDP-службы.')
Exit 1
EndIf

$sIP = TCPNameToIP($sDomain) ;получаем ip-адрес

If @error Then
MsgBox(16, 'Ошибка', 'Не удалось получить ip-адрес сервера.')
Exit 2
EndIf

$iSocket = TCPConnect($sIP, $iPort) ;соединяемся с сервером

If @error Then
MsgBox(16, 'Ошибка', 'Не удалось соедениться с сервером.')
Exit 3
EndIf

TCPSend($iSocket, $sRequest) ;отправляем сообщение

If @error Then
MsgBox(16, 'Ошибка', 'Не удалось отправить запрос.')
Exit 4
EndIf

$sData = ''
$iTimer = TimerInit() ;запускаем таймер

Do
$sBuffer = TCPRecv($iSocket, 1024) ;получаем часть сообщения сервера
$iError = @error
If Not $sBuffer = '' Then ;если удалось получить сообщение
$sData &= $sBuffer ;сохраняем полученное сообщение
$iTimer = TimerInit() ;обнуляем таймер
EndIf
Until $iError <> 0 Or TimerDiff($iTimer) > 5000 ;если при получении сообщения произошла ошибка (данные получены, соединение закрыто) или в течении 5 секунд ничего не было получено, выход из цикла

TCPCloseSocket($iSocket)
TCPShutdown()

$aData = StringRegExp($sData, '(?s)(.*?)\r\n\r\n(.*)', 3) ;отделяем http-заголовки от тела сообщения ('заголовки' & @CRLF & @CRLF & 'тело')

If @error Then
MsgBox(16, 'Ошибка', 'Полученные данные неверны.')
Exit 5
EndIf

MsgBox(0, 'Data', $aData[1])

CreatoR

Вопрос:
Как отправить POST-запрос?

Ответ:

С помощью WinHTTP через COM-интерфейс (http://msdn.microsoft.com/en-us/library/aa384106%28v=VS.85%29.aspx)

Код: AutoIt [Выделить]
$oRequest = ObjCreate('WinHttp.WinHttpRequest.5.1') ;Создаём COM-объект

If @error Then
MsgBox(16, 'Ошибка', 'Ошибка при создании объекта "WinHttp.WinHttpRequest.5.1".')
Exit 1
EndIf

$oErrorHandler = ObjEvent('AutoIt.Error', 'ErrorFunc') ;Создаём обработчик ошибок (COM Error Handling http://www.autoitscript.com/autoit3/docs/intro/ComRef.htm)

Func ErrorFunc()
MsgBox(16, 'Ошибка', $oErrorHandler.description)
Exit 2
EndFunc

$oRequest.Open('POST', 'http://localhost/test/post.php', 0) ;Создаём соеденение, указываем адрес страницы
$oRequest.SetRequestHeader('User-Agent', 'au3browser') ;Указываем заголовок User-Agent
$oRequest.SetRequestHeader('Content-Type', 'application/x-www-form-urlencoded') ;Указываем заголовок Content-Type (необходимо для POST-запроса (Content-Length указывается автоматически))
$oRequest.Send('param1=value1&param2=value2') ;отправляем запрос
$sData = $oRequest.ResponseText

$oErrorHandler = 0 ;выключаем обработчик ошибок

MsgBox(0, 'Data', $sData)
С помощью WinHttp.au3 (WinHTTP через DllCalls) (http://www.autoitscript.com/forum/topic/84133-winhttp-functions/)

Код: AutoIt [Выделить]
#include "WinHttp.au3"

$hOpen = _WinHttpOpen('au3browser') ;инициализируем использование WinHTTP-функций, указываем заголовок User-Agent

If @error Then
MsgBox(16, 'Ошибка', 'Не удалось инициализировать использование WinHttp-функций.')
Exit 1
EndIf

$hConnect = _WinHttpConnect($hOpen, 'localhost') ;создаём соеденение, указываем только домен/ip-адрес

If @error Then
MsgBox(16, 'Ошибка', 'Не удалось создать соеденение.')
Exit 2
EndIf

$sData = _WinHttpSimpleRequest($hConnect, 'POST', 'test/post.php', Default, 'param1=value1&param2=value2') ;отправляем запрос, указываем его метод, адрес страницы без домена и параметры

If @error Then
MsgBox(16, 'Ошибка', 'Не удалось отправить сообщение.')
Exit 3
EndIf

_WinHttpCloseHandle($hConnect)
_WinHttpCloseHandle($hOpen)

MsgBox(0, 'Data', $sData)
С помощью TCP-функций AutoIt

Код: AutoIt [Выделить]
$sDomain = 'localhost' ;домен или ip-адрес
$iPort = 80 ;порт
$sParameters = 'param1=value1&param2=value2' ;Параметры

;Запрос, который будет отправлен серверу
$sRequest = 'POST /test/post.php HTTP/1.1' 1& @CRLF ;Request-строка
$sRequest &= 'Connection: close' & @CRLF ;Заголовки
$sRequest &= 'Accept: */*' & @CRLF
$sRequest &= 'User-Agent: au3browser' & @CRLF
$sRequest &= 'Host: localhost' & @CRLF
$sRequest &= 'Content-Type: application/x-www-form-urlencoded' & @CRLF ;Указываем заголовок Content-Type (необходимо для POST-запроса)
$sRequest &= 'Content-Length: ' & StringLen($sParameters) & @CRLF ;Указываем заголовок Content-Length (необходимо для POST-запроса)
$sRequest &= @CRLF ;Заголовки от параметров отделяет пустая строка
$sRequest &= $sParameters ;Параметры в запросе

If TCPStartup() = 0 Then ;запускаем TCP/UDP-службы
MsgBox(16, 'Ошибка', 'Не удалось запустить TCP/UDP-службы.')
Exit 1
EndIf

$sIP = TCPNameToIP($sDomain) ;получаем ip-адрес

If @error Then
MsgBox(16, 'Ошибка', 'Не удалось получить ip-адрес сервера.')
Exit 2
EndIf

$iSocket = TCPConnect($sIP, $iPort) ;соединяемся с сервером

If @error Then
MsgBox(16, 'Ошибка', 'Не удалось соедениться с сервером.')
Exit 3
EndIf

TCPSend($iSocket, $sRequest) ;отправляем сообщение

If @error Then
MsgBox(16, 'Ошибка', 'Не удалось отправить запрос.')
Exit 4
EndIf

$sData = ''
$iTimer = TimerInit() ;запускаем таймер

Do
$sBuffer = TCPRecv($iSocket, 1024) ;получаем часть сообщения сервера
$iError = @error
If Not $sBuffer = '' Then ;если удалось получить сообщение
$sData &= $sBuffer ;сохраняем полученное сообщение
$iTimer = TimerInit() ;обнуляем таймер
EndIf
Until $iError <> 0 Or TimerDiff($iTimer) > 5000 ;если при получении сообщения произошла ошибка (данные получены, соединение закрыто) или в течении 5 секунд ничего не было получено, выход из цикла

TCPCloseSocket($iSocket)
TCPShutdown()

$aData = StringRegExp($sData, '(?s)(.*?)\r\n\r\n(.*)', 3) ;отделяем http-заголовки от тела сообщения ('заголовки' & @CRLF & @CRLF & 'тело')

If @error Then
MsgBox(16, 'Ошибка', 'Полученные данные неверны.')
Exit 5
EndIf

MsgBox(0, 'Data', $aData[1])

CreatoR

Вопрос:
Как отправить имя и пароль для HTTP-аутентификации?

Ответ:

С помощью InetGet/InetRead

Код: AutoIt [Выделить]
$bData = InetRead('http://name:password@localhost/test/authentication.php', 1)

If Not @error Then
MsgBox(0, 'Data', BinaryToString($bData))
EndIf
С помощью WinHTTP через COM-интерфейс (http://msdn.microsoft.com/en-us/library/aa384106%28v=VS.85%29.aspx)

Код: AutoIt [Выделить]
Global Const $HTTPREQUEST_SETCREDENTIALS_FOR_SERVER = 0

$oRequest = ObjCreate('WinHttp.WinHttpRequest.5.1') ;Создаём COM-объект

If @error Then
MsgBox(16, 'Ошибка', 'Ошибка при создании объекта "WinHttp.WinHttpRequest.5.1".')
Exit 1
EndIf

$oErrorHandler = ObjEvent('AutoIt.Error', 'ErrorFunc') ;Создаём обработчик ошибок (COM Error Handling http://www.autoitscript.com/autoit3/docs/intro/ComRef.htm)

Func ErrorFunc()
MsgBox(16, 'Ошибка', $oErrorHandler.description)
Exit 2
EndFunc

$oRequest.Open('GET', 'http://localhost/test/authentication.php', 0) ;Создаём соеденение, указываем адрес страницы
$oRequest.SetRequestHeader('User-Agent', 'au3browser') ;Указываем заголовок User-Agent
$oRequest.SetCredentials('name', 'password', $HTTPREQUEST_SETCREDENTIALS_FOR_SERVER) ;Указываем имя и пароль
$oRequest.Send() ;отправляем запрос
$sData = $oRequest.ResponseText

$oErrorHandler = 0 ;выключаем обработчик ошибок

MsgBox(0, 'Data', $sData)
С помощью WinHttp.au3 (WinHTTP через DllCalls) (http://www.autoitscript.com/forum/topic/84133-winhttp-functions/)

Код: AutoIt [Выделить]
#include "WinHttp.au3"

$hOpen = _WinHttpOpen('au3browser') ;инициализируем использование WinHTTP-функций, указываем заголовок User-Agent

If @error Then
MsgBox(16, 'Ошибка', 'Не удалось инициализировать использование WinHttp-функций.')
Exit 1
EndIf

$hConnect = _WinHttpConnect($hOpen, 'localhost') ;создаём соеденение, указываем только домен/ip-адрес

If @error Then
MsgBox(16, 'Ошибка', 'Не удалось создать соеденение.')
_WinHttpCloseHandle($hOpen)
Exit 2
EndIf

$hRequest = _WinHttpOpenRequest($hConnect, 'GET', 'test/authentication.php') ;формируем запрос

If @error Then
MsgBox(16, 'Ошибка', 'Не удалось сформировать запрос.')
_WinHttpCloseHandle($hConnect)
_WinHttpCloseHandle($hOpen)
Exit 3
EndIf

_WinHttpSetCredentials($hRequest, $WINHTTP_AUTH_TARGET_SERVER, $WINHTTP_AUTH_SCHEME_BASIC, 'name', 'password') ;указваем имя и пароль

If @error Then
MsgBox(16, 'Ошибка', 'Не удалось указать имя и пароль для аутентификации.')
_WinHttpCloseHandle($hRequest)
_WinHttpCloseHandle($hConnect)
_WinHttpCloseHandle($hOpen)
Exit 4
EndIf

_WinHttpSendRequest($hRequest) ;отправляем запрос

If @error Then
MsgBox(16, 'Ошибка', 'Не удалось отправить запрос.')
_WinHttpCloseHandle($hRequest)
_WinHttpCloseHandle($hConnect)
_WinHttpCloseHandle($hOpen)
Exit 5
EndIf

_WinHttpReceiveResponse($hRequest) ;ждём ответа

If @error Then
MsgBox(16, 'Ошибка', 'Не удалось получить ответ сервера.')
_WinHttpCloseHandle($hRequest)
_WinHttpCloseHandle($hConnect)
_WinHttpCloseHandle($hOpen)
Exit 6
EndIf

If Not _WinHttpQueryDataAvailable($hRequest) Then ;проверяем наличие ответа
MsgBox(16, 'Ошибка', 'Не удалось получить ответ сервера.')
_WinHttpCloseHandle($hRequest)
_WinHttpCloseHandle($hConnect)
_WinHttpCloseHandle($hOpen)
Exit 7
EndIf

$sData = _WinHttpReadData($hRequest, 1)

_WinHttpCloseHandle($hRequest)
_WinHttpCloseHandle($hConnect)
_WinHttpCloseHandle($hOpen)

MsgBox(0, 'Data', $sData)
С помощью TCP-функций AutoIt

Код: AutoIt [Выделить]
#include "Encoding.au3" ;http://autoit-script.ru/index.php/topic,510.0.html

$sDomain = 'localhost' ;домен или ip-адрес
$iPort = 80 ;порт

;Запрос, который будет отправлен серверу
$sRequest = 'GET /test/authentication.php HTTP/1.1' & @CRLF ;Request-строка, параметры GET-запроса
$sRequest &= 'Connection: close' & @CRLF ;Заголовки
$sRequest &= 'Accept: */*' & @CRLF
$sRequest &= 'User-Agent: au3browser' & @CRLF
$sRequest &= 'Host: localhost' & @CRLF
$sRequest &= 'Authorization: Basic ' & StringRegExpReplace(_Encoding_Base64Encode('name:password'), '\r|\n', '') & @CRLF & @CRLF ;имя и пароль зашифрованные Base64, _Encoding_Base64Encode может добавлять @CRLF в конец строки, пустая строка между заголовками чревата ошибками!

If TCPStartup() = 0 Then ;запускаем TCP/UDP-службы
MsgBox(16, 'Ошибка', 'Не удалось запустить TCP/UDP-службы.')
Exit 1
EndIf

$sIP = TCPNameToIP($sDomain) ;получаем ip-адрес

If @error Then
MsgBox(16, 'Ошибка', 'Не удалось получить ip-адрес сервера.')
Exit 2
EndIf

$iSocket = TCPConnect($sIP, $iPort) ;соединяемся с сервером

If @error Then
MsgBox(16, 'Ошибка', 'Не удалось соедениться с сервером.')
Exit 3
EndIf

TCPSend($iSocket, $sRequest) ;отправляем сообщение

If @error Then
MsgBox(16, 'Ошибка', 'Не удалось отправить запрос.')
Exit 4
EndIf

$sData = ''
$iTimer = TimerInit() ;запускаем таймер

Do
$sBuffer = TCPRecv($iSocket, 1024) ;получаем часть сообщения сервера
$iError = @error
If Not $sBuffer = '' Then ;если удалось получить сообщение
$sData &= $sBuffer ;сохраняем полученное сообщение
$iTimer = TimerInit() ;обнуляем таймер
EndIf
Until $iError <> 0 Or TimerDiff($iTimer) > 5000 ;если при получении сообщения произошла ошибка (данные получены, соединение закрыто) или в течении 5 секунд ничего не было получено, выход из цикла

TCPCloseSocket($iSocket)
TCPShutdown()

$aData = StringRegExp($sData, '(?s)(.*?)\r\n\r\n(.*)', 3) ;отделяем http-заголовки от тела сообщения ('заголовки' & @CRLF & @CRLF & 'тело')

If @error Then
MsgBox(16, 'Ошибка', 'Полученные данные неверны.')
Exit 5
EndIf

MsgBox(0, 'Data', $aData[1])

CreatoR

Вопрос:
Как заставить FileInstall работать с каталогами?

Ответ:
FileInstall предназначен строго для файлов.

Однако можно использовать следующий код, который в не скомпилированный скрипт добавит список FileInstall'ов с файлами указанного каталога:

Код: AutoIt [Выделить]

_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

Запустите данный скрипт до компиляции.
Рядом с вашим скриптом появится файл «InstalledDir_ИмяУказаннойПапки.fdi», а в сам скрипт будет прописана строчка #include "InstalledDir_ИмяУказаннойПапки.fdi".

CreatoR

Вопрос:
Почему лучше использовать BitOR для добавления значении констант (например в стилях GUI)?

Ответ:
При обычном сложении значении констант, мы получаем кашу из чисел. А при использовании BitOR, существующее значение в добавляемом числе, повторяться не будет (т.е не будет добавляться содержащееся число). Вот пример сравнения:

Код: AutoIt [Выделить]

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

$bUseBitOR = True ;Поставьте на False и увидите ошибку в стилизации GUI

$iStyles = $GUI_SS_DEFAULT_GUI + $WS_SIZEBOX

;Вторично пытаемся добавить стиль $WS_SIZEBOX (иногда это происходит если стили берутся к примеру из файла конфигурации)
If $bUseBitOR Then
    $iStyles = BitOR($iStyles, $WS_SIZEBOX)
Else
    $iStyles += $WS_SIZEBOX
EndIf

$hGUI = GUICreate("Test Script", 300, 200, -1, -1, $iStyles)
GUISetState(@SW_SHOW, $hGUI)

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