Forcer clavier Anglais dans un InputBox

[Gavriel]

bonjour
je voudrais savoir comment Forcer le clavier Anglais ou autre langue dans un InputBox sana avoir a faire shift + alt car j ai plusieur langue
merci d'avance

[walkson]

Peut être ceci ?

Code: [Tout sélectionner] [Déplier/Replier]

#include <WinAPISys.au3>
_WinAPI_SetKeyboardLayout ( $hWnd, $iLanguage [, $iFlags = 0] )

GeSHi © Extension Codebox Plus

Code: [Tout sélectionner] [Déplier/Replier]

#include <WinAPISys.au3>
_WinAPI_GetKeyboardLayout ( $hWnd )

GeSHi © Extension Codebox Plus

[Gavriel]

Merci mais je n' ais pas reussi si cest possible de m'ecrire un exemple complet merci beaucoup

[mikell]

Pas forcément évident, c'est vrai

Code: [Tout sélectionner] [Déplier/Replier]

#include <WinAPISys.au3>

$hwnd = WinGetHandle(AutoItWinGetTitle())
_WinAPI_SetKeyboardLayout ($hwnd, 0x0409)   ; English U.S.

InputBox('Test', 'Please enter something', '', '', '', '', 100, 100, 0, $hwnd)

GeSHi © Extension Codebox Plus

[Gavriel]

Merci de m avoire repondu mais ca ne marche pas chez moi ets que c est normal?
merci d avance

[mikell]

Explique mieux le "ça ne marche pas"

(Le "ça ne marche pas" est une conséquence commune découlant de beaucoup trop de raisons potentielles )

[Gavriel]

merci de mavoire repondu je vouler dire que le clavier ne passe pas en anglais mais reste en francais quant j ecris dans le InputBox merci

[mikell]

Avec mon bout de code, si je tape "azerty" ça écrit "qwerty" dans l'inputbox. pas chez toi ?

[Gavriel]

non

[Hugues]

Bonjour,

De mémoire j'ai vu un post sur le forum US, je crois qu'il modifiait la clef associée dans le registre.

[walkson]

Bonjour,
J'ai testé le code de Mikell et aucun problème (sous Win 7)
La question est peut être de savoir si le clavier US existe ?
Un bout de code venu tout droit de l'aide répondra à la question....

Code: [Tout sélectionner] [Déplier/Replier]

#include <APILocaleConstants.au3>
#include <Array.au3>
#include <WinAPILocale.au3>
#include <WinAPISys.au3>

Local $aData = _WinAPI_GetKeyboardLayoutList()
If IsArray($aData) Then
   For $i = 1 To $aData[0]
      $aData[$i] = '0x' & Hex($aData[$i]) & ' (' & _WinAPI_GetLocaleInfo(BitAND($aData[$i], 0xFFFF), $LOCALE_SENGLANGUAGE) & ')'
   Next
EndIf

_ArrayDisplay($aData, '_WinAPI_GetKeyboardLayoutList')

GeSHi © Extension Codebox Plus

[Gavriel]

merci de votre aide voici se que ca me donne
Row|Col 0
[0]|2
[1]|0x04090409 (English)
[2]|0x040C040C (French)
je suis sur win 8