CMD/BAT - [решено] Узнать язык раскладки клавиатуры

amel27 · Отправлено: **09:17, 27-07-2011** | #2

Цитата m0nkrus:

получить информацию о текущем языке ввода данных с клавиатуры »

- у каждого окна/приложения может быть свой язык ввода;
- AFAIK CMD (без сторонних инструментов на API32/.NET) не имеет доступа к такой инфе

P.S. язык ввода Windows по умолчанию (нового окна) можно взять с реестра (HKCU\Keyboard Layout\Preload\1)

m0nkrus · Отправлено: **09:25, 27-07-2011** | #3

amel27, тогда уточню: язык ввода для активного окна.

amel27 · Отправлено: **12:11, 27-07-2011** | #4

Цитата m0nkrus:

язык ввода для активного окна »

код батника, который компилирует требуемый EXE (требуется .NET):

Код:

@if not exist "%~n0.exe" (
 for /f "delims=" %%a in ('dir/s/a-d/b/od "%windir%\Microsoft.NET\Framework\vbc.exe"') do @set "vbc=%%a"
(echo Imports System.Runtime.InteropServices
 echo Module Test
 echo ^<DllImport^("user32.dll",SetLastError:=True^)^> Public Function GetForegroundWindow^(^) As IntPtr
 echo End Function
 echo ^<DllImport^("user32.dll",SetLastError:=True^)^> Public Function GetWindowThreadProcessId^(ByVal hwnd As IntPtr,ByRef lpdwProcessId As Integer^) As Integer
 echo End Function
 echo Public Declare Function GetKeyboardLayout Lib "user32" ^(ByVal idThread As UInteger^) As IntPtr
 echo Sub Main^(^)
 echo Console.WriteLine^(GetKeyboardLayout^(GetWindowThreadProcessId^(GetForegroundWindow^(^),0^)^).ToString^("X"^)^)
 echo End Sub
 echo End Module)>"%~n0.tmp"
call "%%vbc%%" "%~n0.tmp" /out:"%~n0.exe">nul
del "%~n0.tmp")

P.S. проверено на XP/2003

ferget · Отправлено: **12:51, 27-07-2011** | #5

а что этот exe должен делать?
выдает всегда 4190419
W7U

amel27 · Отправлено: **12:55, 27-07-2011** | #6

Цитата ferget:

а что этот exe должен делать? »

выдавать кодировку активного в данный момент окна (4190419/4090409)

Код:

@echo off
:loop
test.exe
ping -n 3 127.0.0.1>Nul
goto:loop

ferget · Отправлено: **13:01, 27-07-2011** | #7

а выловить alt+shift не выйдет?

amel27 · Отправлено: **16:16, 27-07-2011** | #8

Цитата ferget:

выловить alt+shift не выйдет? »

- потребуется отловить ВСЕ нажатия;
- может быть ctrl+shift;
- AFAIK для установки хука (на чужое окно) потребуются админские права + отключение UAC

m0nkrus · Отправлено: **16:17, 27-07-2011** | #9

amel27, слишком сложно на мой взгляд. Ну да ладно...
Ставлю отметку о решении проблемы.

amel27 · Отправлено: **16:22, 27-07-2011** | #10

Цитата m0nkrus:

слишком сложно на мой взгляд. »

проще только использовать сторонние CMD-утилиты, сходу не нашел
вероятно, проще написать... но это уже в другую ветку (программирование), либо AutoIT/AHK