[amel27]

Angelus

Я хочу просто открыть провадник в какойто папке »

вот пример:

Код:

$sPathSelect = "C:\Windows\System32"
Run ("explorer.exe "&$sPathSelect, @SystemDir)

есть возможность даже выбрать папку/файл:

Код:

$sPathSelect = "C:\Windows\System32"
Run ("explorer.exe /e, /select, "&$sPathSelect, @SystemDir)

FYI: Настройка параметров отображения проводника в Windows XP

[Creat0R]

amel27,

хотя можно попытаться порулить политикой питания, на ентот счет есть свои API и, к примеру, менять эти настройки на время блокировки

О, это думаю будет проще/надёжнее, а как туда подрулить? , т.к пересмотрев страничку по ссылке что ты дал, я так и не понял как на AutoIt это дело перевести...

вот вариант для версии 3.2.8.1

Гинеально! Оно и вправду работает, спасибо!
Может на оф. форуме выложить, пусть поправят в оригинале?

обнаружил что, в 10-ке алгоритм более продуманный в плане производительности.

В UDF'ах? или сам движек AutoIt'а?

Angelus,

просто открыть провадник в какойто папке

Можно просто через ShellExecute(@SystemDir).

[amel27]

Creat0R

а как туда подрулить? »

хм, у меня этот способ как-то странно работает... отключаются клавиши вроде сразу после применения политики, а вот включаться обратно не хотят - требуется перезагрузка компа... помучаю еще чуть

Может на оф. форуме выложить, пусть поправят в оригинале? »

да я не против, ткни куда выложить... только вот непонятно под какую версию делать UDF - новую или старую?... с другой стороны какой смысл править статус бар, если есть куча других несовместимых с иникодом GUI-функций?

В UDF'ах? или сам движек AutoIt'а? »

в старом UDF был единый алгоритм для "своих" и "чужих" окон, в новом варианте "свои" GUI-окна пустили по короткому алгоритму

[Creat0R]

amel27,

только вот непонятно под какую версию делать UDF - новую или старую?

Конечно же новую, старую никто переделвать уже не будет
Я думаю нужно запостить в форум AutoIt Feature Requests, назвать тему можно примерно так: “Unicode Support for _GUICtrlStatusBar_SetText()”
И предложить чтобы добавили дополнительный параметр $iUFlag...
Кстати, я до сих пор не понял, для чего функция _GUICtrlStatusBarSetUnicode()? что она делает? я ведь думал что именно она мне позволит отображать юникод в статусбаре.

По поводу всё того же юникода... если нельзя определить кодировку (её тип) строки, то может всё же возможно определить не является ли строка юникодной? т.е проверить нет ли юникодных символов в $String'е. Т.к нужно знать какой параметр ставить в той же функции для статусбар, ведь с 65001 не юникодная строка отображаться корректно не будет

[fak1r]

видимо моя проблема так и не решится (

[Maza Faka]

fak1r

видимо моя проблема так и не решится

Что за проблема?

[amel27]

Maza Faka
пролистай назад, требуется автоматизация задач:

- регистрация на сайте (линк дан);
- заливка на сайт файлов.

Creat0R

я до сих пор не понял, для чего функция _GUICtrlStatusBarSetUnicode()? что она делает? »

Судя по немногочисленным примерам переключает контрол в юникодовый режим, только я плохо представляю как можно передать юникодовый текст ANSI-сообщением... и тем более в каком он должен быть формате: UTF-8 или UTF-16?.. И еще настораживает тот факт, что в тырнете по сообщениям типа SB_SETUNICODEFORMAT инфа практически отсутствует... ИМХО все же перед тем как постить свой вариант нужно определиться чем не устраивает предложенный разработчиками способ...

предложить чтобы добавили дополнительный параметр $iUFlag »

кроме прочего это будет идти в разрез с ихней кодировкой форматов

может всё же возможно определить не является ли строка юникодной? »

можно проверить на соответствие строки требованиям формата, к примеру для UTF-8:

Код:

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

[HORRIBLE]

Все привет.
Как написать, что я зажал кнопку SHIFT ?
Объясните пожалуйсто, вот есть команда ControlClick("Adobe Acrobat 8 Professional", "", "[CLASS:Button; TEXT:Accept; INSTANCE:2]")
INSTANCE:2 - что это такое и откуда это берется?
Спасибо.

[Maza Faka]

HORRIBLE

Как написать, что я зажал кнопку SHIFT ?

Код:

Send("{+ Down}")

INSTANCE:2 - что это такое и откуда это берется?

Это вроде порядкового номера кнопки, если кнопок несколько, то у каждой свой INSTANCE.

В справке всё это обьясняется и очень подробно!

[amel27]

Send("{+ Down}") »

не так, Shift+Down это будет: Send("+{Down}")

есть команда ControlClick("Adobe Acrobat 8 Professional", "", "[CLASS:Button; TEXT:Accept; INSTANCE:2]") [...] что это такое »

то же самое что ControlClick("Adobe Acrobat 8 Professional", "", "Button2")

Creat0R
вроде разобрался как управлять кнопками питания, вот UDF и пример:

Код:

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