Jump to content
Sign in to follow this  
AZJIO

"Send" in different language keyboard layouts

Recommended Posts

AZJIO

$lng=RegRead("HKCU\Keyboard Layout\Preload", 1)

If $lng = 00000419 Then Send('^{ф}')

If $lng = 00000409 Then Send('^{a}')

If $lng = 00000<???> Then Send('^{<?>}')

required

If $lng = 00000419 Or $lng = 00000409 Or $lng = 00000<???> Then Send('^{<?>}')

How to use it

http://www.autoitscript.com/forum/index....oard%20layouts&fromsearch=1&#entry540332

Edited by AZJIO

Share this post


Link to post
Share on other sites
AZJIO

Global $lng=@OSLang
; Send('^{'&_Send_Lng('f')&'}')
MsgBox(0, 'Сообщение', _Send_Lng('f'))
MsgBox(0, 'Сообщение', _Send_Lng('V'))

Func _Send_Lng($s)
    If $lng = '0409' Then Return $s
    Local $n, $out
    Local $EnDef = "`qwertyuiop[]asdfghjkl;'zxcvbnm,./~QWERTYUIOP{}ASDFGHJKL:""|ZXCVBNM<>?@#$^&"
    Local $RuDef = "ёйцукенгшщзхъфывапролджэячсмитьбю.ЁЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭ/ЯЧСМИТЬБЮ,""№;:?"
    If $lng = '0419' Then
        $n=StringInStr($EnDef,$s,1)
        $out = StringMid($RuDef, $n, 1)
        Return $out
    EndIf
    Return $s
EndFunc
 

Edited by AZJIO

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.