Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Аватара для Creat0R

Must AutoIt


Сообщения: 3054
Благодарности: 1009

Профиль | Сайт | Отправить PM | Цитировать


Цитата mymindspam:
Подозреваю, что нужно отправлять клавиши в виде ascii, подскажите как? »
Чтобы не преключать раскладку, предлагаю такую функцию:
Код: Выделить весь код
_ControlSendEx($handle, "", "", $param1)

Func _ControlSendEx($sTitle, $sText, $iCtrlID, $sKeys, $iFlag=0)
    If @KBLayout = 0419 Then
        Local $sANSI_Chars = "ёйцукенгшщзхъфывапролджэячсмитьбю.?"
        Local $sASCII_Chars = "`qwertyuiop[]asdfghjkl;'zxcvbnm,./&"

        Local $aSplit_Keys = StringSplit($sKeys, "")
        Local $sKey
        $sKeys = ""

        For $i = 1 To $aSplit_Keys[0]
            $sKey = StringMid($sANSI_Chars, StringInStr($sASCII_Chars, $aSplit_Keys[$i]), 1)

            If $sKey <> "" Then
                $sKeys &= $sKey
            Else
                $sKeys &= $aSplit_Keys[$i]
            EndIf
        Next
    EndIf

    Return ControlSend($sTitle, $sText, $iCtrlID, $sKeys, $iFlag)
EndFunc
Цитата mymindspam:
Использование ControlSend приводит к периодическому залипанию клавиши shif. Это баг или есть способ лучше? »
Обходится примерно так:
Код: Выделить весь код
#include <Misc.au3>

Func _ControlSendExEx($sTitle, $sText, $iCtrlID, $sKeys, $iFlag)
    Local $hUser32DllOpen = DllOpen("User32.dll")

    While _IsPressed("10", $hUser32DllOpen) Or _IsPressed("11", $hUser32DllOpen) Or _IsPressed("12", $hUser32DllOpen)
        Sleep(10)
    WEnd

    DllClose($hUser32DllOpen)
    Return _ControlSendEx($sTitle, $sText, $iCtrlID, $sKeys, $iFlag)
EndFunc

-------
“Сделай так просто, как возможно, но не проще этого.”... “Ты никогда не решишь проблему, если будешь думать так же, как те, кто её создал.”

Альберт Эйнштейн

P.S «Не оказываю техподдержку через ПМ/ICQ, и по email - для этого есть форум. ©»

http://creator-lab.ucoz.ru/Images/Icons/autoit_icon.png Русское сообщество AutoIt | http://creator-lab.ucoz.ru/Images/Ic...eator_icon.png CreatoR's Lab | http://creator-lab.ucoz.ru/Images/Icons/oac_icon.png Opera AC Community

Это сообщение посчитали полезным следующие участники:

Отправлено: 09:50, 02-12-2009 | #4