Код: Выделить всё
$sPathSelect = "C:\Windows\System32"
Run ("explorer.exe "&$sPathSelect, @SystemDir)Код: Выделить всё
$sPathSelect = "C:\Windows\System32"
Run ("explorer.exe /e, /select, "&$sPathSelect, @SystemDir)
, т.к пересмотрев страничку по ссылке что ты дал, я так и не понял как на AutoIt это дело перевести... 
Оно и вправду работает, спасибо! 
, у меня на компе установлен Flash Player.Код: Выделить всё
Global $oErr = ObjEvent("AutoIt.Error","_ComError")
ConsoleWrite(_FlashMajorVersion() & @CRLF)
Func _FlashMajorVersion()
Local $oSwf,$sVersion
$oSwf = ObjCreate("ShockwaveFlash.ShockwaveFlash")
if @error Then Return 0 ; No flash at all
$oSwf.AllowScriptAccess = "always"
$sVersion = $oSwf.GetVariable("$version")
if @error Then
$oSwf = ObjCreate("ShockwaveFlash.ShockwaveFlash.3")
if @error Then
$oSwf = ObjCreate("ShockwaveFlash.ShockwaveFlash.2")
if @error then return 0
Return 2
EndIf
Return 3
EndIf
$sVersion = StringTrimLeft($sVersion,3)
$sVersion = StringLeft($sVersion,StringInStr($sVersion,",")-1)
Return Number($sVersion)
EndFunc
Func _ComError()
; Just set @error, the script will handle it...
Local $iErr = $oErr.number
if $iErr = 0 Then $iErr = -1
SetError($iErr)
EndFunc
Получилось то что надо!!! я правда поменял концепцию примера, во-первых потому то ещё не ставил последнюю версию, а во-вторых потому что мне нужно иметь возможность включать/выключать клавиатуру по запросу (не при выходе из скрипта)...Код: Выделить всё
#include <DllCallBack.au3>
Global $hWinHook
$CallBackProc = TogglePlugKeyBoard()
MsgBox(4096, "", "Клавиатура заблокирована, нажмите OK для разблокирования.")
TogglePlugKeyBoard($CallBackProc)
MsgBox(4096, "", "Клавиатура разблокирована!")
Exit
Func TogglePlugKeyBoard($hCallProc=0)
If IsArray($hWinHook) Then
DllCall("user32.dll", "int", "UnhookWindowsHookEx", "hwnd", $hWinHook[0])
_DllCallBack_Free($hCallProc)
Return 0
EndIf
Local Const $WH_KEYBOARD_LL = 13
Local $hKeyProc = _DllCallBack("_KeyProc", "int;ptr;ptr")
Local $hMod = DllCall("kernel32.dll", "hwnd", "GetModuleHandle", "ptr", 0)
$hWinHook = DllCall("user32.dll", "hwnd", "SetWindowsHookEx", _
"int", $WH_KEYBOARD_LL, _
"ptr", $hKeyProc, _
"hwnd", $hMod[0], _
"dword", 0)
Return $hKeyProc
EndFunc
Func _KeyProc($nCode, $wParam, $lParam)
If $nCode < 0 Then
Local $iRet = DllCall("user32.dll", "long", "CallNextHookEx", "hwnd", $hWinHook[0], _
"int", $nCode, _
"ptr", $wParam, _
"ptr", $lParam)
Return $iRet[0]
EndIf
Return 1
EndFunc
Код: Выделить всё
Func _StringIsUTF8Format($string)
Local $asc, $i, $j, $len = StringLen($string), $ext = $len
For $i=1 To $len
$asc = Asc(StringMid($string, $i, 1))
If Not(BitAnd($asc,0x80)) Then
$ext=0
ElseIf Not(BitXOR(BitAnd($asc,0xE0),0xC0)) Then
$ext=1
ElseIf Not(BitXOR(BitAnd($asc,0xF0),0xE0)) Then
$ext=2
ElseIf Not(BitXOR(BitAnd($asc,0xF8),0xF0)) Then
$ext=3
EndIf
If $i+$ext>$len Then Return False
For $j = $i+1 To $i+$ext
$asc = Asc(StringMid($string, $j, 1))
If BitXOR(BitAnd($asc,0xC0),0x80) Then Return False
Next
$i+=$ext
Next
Return True
EndFunc
- у меня много скриптов, всё мгновенно поламется, желание сразу пропадёт что либо там менять 
. Код: Выделить всё
Send("{+ Down}")Код: Выделить всё
Global Const $PowerActionNone = 0
Global Const $PowerActionReserved = 1
Global Const $PowerActionSleep = 2
Global Const $PowerActionHibernate = 3
Global Const $PowerActionShutdown = 4
Global Const $PowerActionShutdownReset = 5
Global Const $PowerActionShutdownOff = 6
Global Const $PowerActionWarmEject = 7
Dim $aOFF[3]=[0,0,0]
$aBAK = PowerKeysCallState($aOFF) ; читаем/записываем состояние клавиш
MsgBox(0,'','Клавиши питания заблокированы!')
PowerKeysCallState($aBAK) ; восстанавливаем состояние клавиш
MsgBox(0,'','Состояние клавиш восстановлено!')
; $aKeys[0] - Power Key Action
; $aKeys[1] - Sleep Key Action
; $aKeys[2] - NoteBook Close Action
Func PowerKeysCallState($aKeys = 0)
Local Const $SysPwrPolLen = 232 ; size of SYSTEM_POWER_POLICY structure
Local $buf = DllStructCreate("byte["&$SysPwrPolLen&"]")
Local $tmp = DllStructCreate("long;int;long[2];int;long[2];int;long[2]", DllStructGetPtr($buf))
; Чтение текущей системной политики питания
Local $ret = DllCall("PowrProf.dll", "int", "CallNtPowerInformation", "int", 0, _
"ptr", 0, "int", 0, "ptr", DllStructGetPtr($buf), "int", DllStructGetSize($buf))
If Not(IsArray($ret)) Then SetError(1, @error) ; ошибка DLL
If $ret[0] Then Return SetError(2, $ret[0]) ; ошибка чтения политики
; Сохранение текущей конфигурации клавиш в выходном массиве
Local $i, $res[3]
For $i=1 To 3
$res[$i-1] = DllStructGetData($tmp,$i*2)
Next
; Сохранение требуемой конфигурации в структуре данных политики
If UBound($aKeys,1)=3 Then ; проверка типа данных
For $i=1 To 3
If BitShift($aKeys[$i-1],3)=0 Then ; проверка допустимого значения
DllStructSetData($tmp, $i*2, $aKeys[$i-1])
If $aKeys[$i-1]=0 Then DllStructSetData($tmp,$i*2+1,BitOR (DllStructGetData($tmp,$i*2+1,2),0x80000000),2)
If $aKeys[$i-1]>0 Then DllStructSetData($tmp,$i*2+1,BitAND(DllStructGetData($tmp,$i*2+1,2),0x7FFFFFFF),2)
EndIf
Next
; Применение новой политики
$ret = DllCall("PowrProf.dll", "int", "CallNtPowerInformation", "int", 0, _
"ptr", DllStructGetPtr($buf), "int", $SysPwrPolLen, "ptr", 0, "int", 0)
If Not(IsArray($ret)) Then SetError(1, @error) ; ошибка DLL
If $ret[0] Then Return SetError(3, $ret[0]) ; ошибка записи политики
EndIf
Return $res
EndFunc