Что нового

Языковая проблема при использовании Send

noob

Новичок
Сообщения
17
Репутация
0
Проблема возникает при выполнении в этом месте
Код:
Send("{CTRLDOWN}фс{CTRLUP}")
тем самым должен выделять и копировать инфу в буфер, после чего она обрабатывается.
Запускаю на своём ПК, проблем никаких не возникает, стоит запустить на ПК где нет ру языка, отказывается работать, как сделать, чтобы исполнялось везде одинаково вне зависимости от языковых настроек? Может как-то можно установить по умолчанию выполнение только на англ языке и переделать так
Код:
Send("{CTRLDOWN}ac{CTRLUP}")
 

edyapd

Осваивающий
Сообщения
380
Репутация
30
Код:
Send("^a^c")

Должно выполняться на любой раскладке. Вне зависимости от того, установлен русский язык или нет.
Если я не прав, поправьте.
 

CreatoR

Must AutoIt!
Команда форума
Администратор
Сообщения
8,671
Репутация
2,482
Автор
N

noob

Новичок
Сообщения
17
Репутация
0
Всё заработало, благодарю, заюзал вашу функцию, только поправил на _SendExEx("^a^c") под свои нужды
Код:
;Автор: CreatoR
;Обход проблемы с отправкой нажатии клавиш в русской раскладке клавиатуры

_SendExEx("^c")

Func _SendExEx($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 Send($sKeys, $iFlag)
EndFunc

Есть еще такой вопрос на счет Send, есть у меня такой отрывок кода, можно ли объединить строки в одну?
Код:
Send("mxtoolbox.com/SuperTool.aspx?action=blacklist%3a")
Send($ip[1])
Send("&run=toolpage{ENTER}")
 
Автор
N

noob

Новичок
Сообщения
17
Репутация
0
от души! всё получилось
 
Верх