hot key for change language Topic is solved

[omar bishr]

i want edit that script to switch between arabic and english only so no German.

Code: Select all

; https://docs.microsoft.com/de-de/windows/desktop/Intl/language-identifier-constants-and-strings
F7:: SetDefaultKeyboardLang(0x02809) ; english
F8:: SetDefaultKeyboardLang(0x0407)  ; german
F9:: SetDefaultKeyboardLang(0x040D)  ; hebrew

; https://autohotkey.com/boards/viewtopic.php?f=6&t=18519
SetDefaultKeyboardLang(LocaleID){
	Static SPI_SETDEFAULTINPUTLANG := 0x005A, SPIF_SENDWININICHANGE := 2	
	Lan := DllCall("LoadKeyboardLayout", "Str", Format("{:08x}", LocaleID), "Int", 0)
	VarSetCapacity(binaryLocaleID, 4, 0)
	NumPut(LocaleID, binaryLocaleID)

[BoBo]

Code: Select all

Albanais

  00000401:   'Arabic Saudi Arabia'           //Arabe Arabie Saoudite

  00000801:   'Arabic Iraq'                   //Arabe Irak

  00000C01:   'Arabic Egypt'                  //Arabe Egypte

  00001001:   'Arabic Libya'                  //Arabe Libye

  00001401:   'Arabic Algeria'                 //Arabe Algerie

  00001801:   'Arabic Morocco'                //Arabe Maroc

  00001C01:   'Arabic Tunisia'                //Arabe Tunisie

  00002001:   'Arabic Oman'                   //Arabe Oman

  00002401:   'Arabic Yemen'                  //Arabe Yemen

  00002801:   'Arabic Syria'                  //Arabe Syrie

  00002c01:   'Arabic Jordan'                 //Arabe Jordanie

  00003001:   'Arabic Lebanon'                //Arabe Liban

  00003401:   'Arabic Kuwait'                 //Arabe Koweit

  00003801:   'Arabic UAE'                    //Arabe Emirats Arabes Unis

  00003c01:   'Arabic Bahrain'                //Arabe Bahrein

  00004001:   'Arabic Qatar'                   //Arabe Qatar

Probably one of these values will do the trick?

Source: https://delphi4arab.net/forum/archive/index.php/thread-1186.html
0x0407 | 0x00000407 | 00000407

[omar bishr]

i think this is bad script i found script to change lang what ever it is just press f1:

Code: Select all

; This should be replaced by whatever your native language is. See 
; http://msdn.microsoft.com/en-us/library/dd318693%28v=vs.85%29.aspx
; for the language identifiers list.
ru := DllCall("LoadKeyboardLayout", "Str", "00000419", "Int", 1)
en := DllCall("LoadKeyboardLayout", "Str", "00000409", "Int", 1)

f1::
w := DllCall("GetForegroundWindow")
pid := DllCall("GetWindowThreadProcessId", "UInt", w, "Ptr", 0)
l := DllCall("GetKeyboardLayout", "UInt", pid)
if (l = en) 
{
    PostMessage 0x50, 0, %ru%,, A
}
else
{
PostMessage 0x50, 0, %en%,, A
}

[BoBo]

Well, that other/first script isn't "bad".
Its main benefit - it assigns a language to a specific key.
That way you won't have to juggle through a bunch of languages if more than two are used.

[amateur+]

@omar bishr, btw, what Windows hotkey do you use? Ctrl+Shift or Shift+Alt?

[omar bishr]

@omar bishr, btw, what Windows hotkey do you use? Ctrl+Shift or Shift+Alt?

Shift+Alt

[amateur+]

So why did you refuse simple sending Alt+Shift?

Code: Select all

F3::Send, {Alt Down}{Shift}{Alt Up}

[bruin1953]

i want edit that script to switch between arabic and english only so no German.

Code: Select all

; https://docs.microsoft.com/de-de/windows/desktop/Intl/language-identifier-constants-and-strings
F7:: SetDefaultKeyboardLang(0x02809) ; english
F8:: SetDefaultKeyboardLang(0x0407)  ; german
F9:: SetDefaultKeyboardLang(0x040D)  ; hebrew

; https://autohotkey.com/boards/viewtopic.php?f=6&t=18519
SetDefaultKeyboardLang(LocaleID){
	Static SPI_SETDEFAULTINPUTLANG := 0x005A, SPIF_SENDWININICHANGE := 2	
	Lan := DllCall("LoadKeyboardLayout", "Str", Format("{:08x}", LocaleID), "Int", 0)
	VarSetCapacity(binaryLocaleID, 4, 0)
	NumPut(LocaleID, binaryLocaleID)

I Use this simple one, since Capslock is useless:

Capslock::
Send, {Alt Down}{Shift Down}{Shift Up}{Alt Up}
SoundBeep 999, 1
return