Disable the input method of the text control of other programs

@xxdoc · Регистрация: 10.07.2015

Студворк — интернет-сервис помощи студентам

I have a program, when I use a QR code scanner to scan the code, I must set the text control to the English input method. Otherwise, the scan will fail. It should be because I don’t have the source code. I want to know how to specify this text box The input method of the control is English. I want to make a plug-in to automatically perform this operation. Automatically detect when the cursor is in the target text box, modify the input method. Thank you

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Public Function FindCaretHwnd() As Long
    Dim iHwnd   As Long
    Dim iThread As Long
    Dim iGTI    As GUITHREADINFO
    
    iHwnd = GetForegroundWindow
    iThread = GetWindowThreadProcessId(iHwnd, 0&)
    iGTI.cbSize = Len(iGTI)
    GetGUIThreadInfo iThread, iGTI
 
    FindCaretHwnd = iGTI.hwndcaret
  Debug.Print FindCaretHwnd
    ' Debug.Print " Focus " & iGTI.hwndFocus & vbCrLf & "Active: " & iGTI.hwndactive & vbCrLf & "Caret: " & iGTI.hwndcaret & vbCrLf & "Capture: " & iGTI.hwndCapture
 
End Function

Call PostMessage(mhwnd, WM_INPUTLANGCHANGEREQUEST, 0, ENid) ' //ENid = Use Language ID 0x0409(English PRC)

But it doesn’t seem to work perfectly in win10. Is there any other good way?

ImmAssociateContext(mHwnd, 0) It can only act on its own process and has no effect on other processes

ImmAssociateContextEx(mHwnd, 0, 0) It can only act on its own process and has no effect on other processes

@xxdoc · 28.12.2020, 10:47 **[ТС]**

i want used this api "DisableCurrentIme" to disable input method in the other program .i want injected dll to the program.and run DisableCurrentIme.

Visual Basic
1
2
3
            Dim res As Long
            res = DisableCurrentIme(wParam)
            SendMessage hWndServer, WM_SENDMESSAGE, res, ByVal 0&

======================================== ==
test.zip have a test.exe .this is the target program! run this exe ,click the button will show work form.now i want hook this window,and then when the text control have forcus. dll can run DisableCurrentIme !

I want to try this technique.

Добавлено через 1 час 19 минут
thank you sir.

in the test.zip .you can see test.exe.

i want injection dll to the hook the work form .when the text control have forcuse i want run this API DisableCurrentIme to disable

Keyboard input method.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
' // Window procedure
Private Function WndProc(ByVal hwnd As Long, _
                         ByVal uMsg As Long, _
                         ByVal wParam As Long, _
                         ByVal lParam As Long) As Long
    Dim sendData As MsgData
    Dim prevProc As Long
    Dim mHwnd    As Long
 
    Select Case uMsg
 
            ' // Check if the main application queries the subclassing completion
        Case uMsg = WM_SENDMESSAGE
    
            ' // Get the original window handle
            prevProc = GetProp(hwnd, CLng(aPrevProc) And &HFFFF&)
            ' // Restore the original window handle
            SetWindowLong hwnd, GWL_WNDPROC, prevProc
            ' // Clean
            Clear
        
            ' // Disable subclassing
            ' // It's possible that GetMsgProc is called when hook has not been disabled in the main application.
            ' // This flag prevents the re-initialization
           
            disabled = True
            FindedHwnd = False
            Exit Function
 
            ' // Now UnhookWindowsHookEx will be called and this dll will be unloaded
 
        Case WM_SETCURSOR '(&H20) 'wParam=&H2A0ADE lParam=&H2000012 Result=&H0
 
            If FindedHwnd = False Then
                mHwnd = GetFocus
 
                If mHwnd <> 0 Then
                    If GetDlgCtrlID(mHwnd) = &H1 Then '//。
                        '                        wParam = mHwnd
                        '                        lParam = mHwnd
                       ' Dim res As Long
                        Call DisableCurrentIme(mHwnd)
                        FindedHwnd = True
                        SendMessage hWndServer, WM_SENDMESSAGE, 666, ByVal 0&
                        
                    End If
                End If
            End If
            '        Case WM_KILLFOCUS '&H8) ' wParam=&H0 lParam=&H0 Result=&H1
            '            wParam = GetFocus
            '            lParam = GetFocus
    End Select
    
    ' // Check if it's needed to process the message
    
    prevProc = GetProp(hwnd, CLng(aPrevProc) And &HFFFF&)
    WndProc = CallWindowProc(prevProc, hwnd, uMsg, wParam, lParam)
    
End Function

but when i inject dll to the exe .But the program crashes after execution

see the picture 18#

Добавлено через 3 минуты

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
' // Window procedure
Private Function WndProc(ByVal hwnd As Long, _
                         ByVal uMsg As Long, _
                         ByVal wParam As Long, _
                         ByVal lParam As Long) As Long
    Dim sendData As MsgData
    Dim prevProc As Long
    Dim mHwnd    As Long
 
    Select Case uMsg
 
            ' // Check if the main application queries the subclassing completion
        Case uMsg = WM_SENDMESSAGE
    
            ' // Get the original window handle
            prevProc = GetProp(hwnd, CLng(aPrevProc) And &HFFFF&)
            ' // Restore the original window handle
            SetWindowLong hwnd, GWL_WNDPROC, prevProc
            ' // Clean
            Clear
        
            ' // Disable subclassing
            ' // It's possible that GetMsgProc is called when hook has not been disabled in the main application.
            ' // This flag prevents the re-initialization
           
            disabled = True
            FindedHwnd = False
            Exit Function
 
            ' // Now UnhookWindowsHookEx will be called and this dll will be unloaded
 
        Case WM_SETCURSOR '(&H20) 'wParam=&H2A0ADE lParam=&H2000012 Result=&H0
 
            If FindedHwnd = False Then
                mHwnd = GetFocus
 
                If mHwnd <> 0 Then
                    If GetDlgCtrlID(mHwnd) = &H1 Then '//。
                        '                        wParam = mHwnd
                        '                        lParam = mHwnd
                       ' Dim res As Long
                        Call DisableCurrentIme(mHwnd)
                        FindedHwnd = True
                        SendMessage hWndServer, WM_SENDMESSAGE, 666, ByVal 0&
                        
                    End If
                End If
            End If
            '        Case WM_KILLFOCUS '&H8) ' wParam=&H0 lParam=&H0 Result=&H1
            '            wParam = GetFocus
            '            lParam = GetFocus
    End Select
    
    ' // Check if it's needed to process the message
    
    prevProc = GetProp(hwnd, CLng(aPrevProc) And &HFFFF&)
    WndProc = CallWindowProc(prevProc, hwnd, uMsg, wParam, lParam)
    
End Function

i want inject dll to the test.exe in the test.zip to disable the ime . But the program crashes after execution

see 17 # .18#

@The trick · 28.12.2020, 23:52

Do you need to disable the IME only for a specific window?

@xxdoc · 29.12.2020, 02:17 **[ТС]**

@the trick. yes. you are right.

Добавлено через 3 минуты
I just want to disable the input method of a specific window！

In addition, I want to know, what is wrong with my use of your dll inject method? Can you tell this defect

@The trick · 29.12.2020, 14:37

Сообщение от xxdoc

@the trick. yes. you are right.

There is the more simple way to do that without runtime initialization.

@xxdoc · 29.12.2020, 17:43 **[ТС]**

thank you

I'm glad you have time to reply to my question. I also tested your demo and it works well. But I modified it a bit. I hope to hook the text box automatically. There is a problem here. Please see the attachment,if hooked i have to click on the window of Injector.exe first, after transferring the focus, click on the text box. Then I can disable the input method.

injectdll.zip

By the way, is there any problem with the previous dll inject method?

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
        Case WM_SETCURSOR '(&H20) 'wParam=&H2A0ADE lParam=&H2000012 Result=&H0
 
            If FindedHwnd = False Then
                mHwnd = GetFocus
 
                If mHwnd <> 0 Then
                    If GetDlgCtrlID(mHwnd) = &H1 Then '//。
                        '                        wParam = mHwnd
                        '                        lParam = mHwnd
                       ' Dim res As Long
                        Call DisableCurrentIme(mHwnd)
                        FindedHwnd = True
                        SendMessage hWndServer, WM_SENDMESSAGE, 666, ByVal 0& 
                        
                    End If
                End If
            End If

I want to understand the direct information exchange between this dll and the control program.I hope to be able to use other aspects

@xxdoc · 02.01.2021, 03:37 **[ТС]**

It seems that if you don't understand OD or other languages, you can't figure it out.

This is the trick that can be used very well. And we will have all kinds of doubts

Happy New Year!

@xxdoc · 03.01.2021, 06:11 **[ТС]**

This is the effect I achieved with non-dll injection. I hope to use dll to achieve it again

used this dll inject

https://www.vbforums.com/showt... ost5505050

I think this method of dll injection and file mapping to transfer data is very useful

@xxdoc · 04.01.2021, 10:25 **[ТС]**

can give me a demo ？used timer

sub timer

if true then
dll inject
else

unload hook

end sub

@xxdoc · 06.01.2021, 11:41 **[ТС]**

Thanks the trick

now i konw why ...

There is the more simple way to do that without runtime initialization.

Добавлено через 5 часов 24 минуты
in win10 ;If the injected program is not an administrator runed, it cannot be injected. how can fixed this

@xxdoc · 07.01.2021, 09:47 **[ТС]**

cant used timer ... It's a big problem!

in ide used timer work well ,but exe cant used timer .crashes or becomes nonresp~~~

Добавлено через 3 часа 3 минуты
because this timer have a do loop to find a window handle !

@xxdoc · 08.01.2021, 08:36 **[ТС]**

I am ready to give up looking for a solution. Maybe it is more practical to learn a new language and write dll

@The trick · 08.01.2021, 09:40

Please provide a normal example.

Добавлено через 18 минут

Сообщение от xxdoc

I am ready to give up looking for a solution. Maybe it is more practical to learn a new language and write dll

I've already provided the example here.

@xxdoc · 08.01.2021, 12:12 **[ТС]**

I've already provided the example here.

I know your demo. And it works very well. But I am not very familiar with the way you share data between processes. I prefer to pass data through file mapping. This can be used by me in future code.

So I like your dll injection function in vbfroums.

see 27# gif . This is the effect display

please help me modify this code!! I want to use partial matching to find the window handle,This is the most important place.

@xxdoc · 11.01.2021, 04:16 **[ТС]**

Waiting is really a bad feeling. please reply

@xxdoc · 15.01.2021, 04:48 **[ТС]**

now used EnumWindows find hwnd .now work ok .game over

@xxdoc · 20.01.2021, 09:43 **[ТС]**

same code in win10 work ok. in win7 work not ok. Unable to debug, the injected program does not respond. This is estimated to be only a toy for me. give up

Новые блоги и статьи Все статьи Все блоги /
Калькулятор для расчета родства russiannick 07.08.2026 1. Задача: Создать калькулятор для расчета родства. Родственных связей существует 8 ступеней, такие как: p - отец P - мать q - муж Q - жена b - брат B - сестра s - сын S - дочь	Мир по моей воле kumehtar 07.08.2026 Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .	Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .	У нас сейчас поговорку "Опять 25" нужно переделать на "Опять +35". kumehtar 04.08.2026 С ностальгией вспоминаю времена моего детства, когда у нас и правда +25 - была максимальная температура летом. Раньше +25 °C реально казались вершиной жары, когда можно было весь день пропадать на. . .
Как ИИ начал спорить и врать (возможно почуяв опасность для себя от индустрии - уход от электроники). Hrethgir 04.08.2026 Недельный диалог, на фоне событий с НПЗ. Да, из спирта можно получать бензин, и это не сложно. Но потом в схеме я решил избавиться от насоса, при этом полностью сделав контроль подачи спирта в. . .	Термопринтер QR701 Argus19 03.08.2026 Термопринтер QR701 Купил два термопринтера QR701. На сэлф-тесте написано: Language: PC936 (GB18030). Что означает, что принтеры могут печатать только латиницу и китайские иероглифы. Так же. . .	Создание формы заимствованного документа Maks 03.08.2026 Задача: Необходимо создать собственную форму заимствованного документа. На форме должен быть реквизит "Покупатель", а также табличная часть со следующими реквизитами: - Расчетный счет покупателя. . .	Задача предоставления скидок покупателям Maks 03.08.2026 Задача: В документе "Продажи" необходимо реализовать функционал предоставления скидок покупателям. Скидка должна автоматически рассчитываться и подставляться в соответствующее поле при выборе. . .

@The trick Модератор 10065 / 3910 / 885 Регистрация: 22.02.2013 Сообщений: 5,860 Записей в блоге: 79
	28.12.2020, 23:52
	Do you need to disable the IME only for a specific window? 0

@xxdoc 7 / 7 / 0 Регистрация: 10.07.2015 Сообщений: 69
	29.12.2020, 02:17 [ТС]
	@the trick. yes. you are right. Добавлено через 3 минуты I just want to disable the input method of a specific window！ In addition, I want to know, what is wrong with my use of your dll inject method? Can you tell this defect 0

@xxdoc 7 / 7 / 0 Регистрация: 10.07.2015 Сообщений: 69
	02.01.2021, 03:37 [ТС]
	It seems that if you don't understand OD or other languages, you can't figure it out. This is the trick that can be used very well. And we will have all kinds of doubts Happy New Year! 0

@xxdoc 7 / 7 / 0 Регистрация: 10.07.2015 Сообщений: 69
	03.01.2021, 06:11 [ТС]
	This is the effect I achieved with non-dll injection. I hope to use dll to achieve it again used this dll inject https://www.vbforums.com/showt... ost5505050 I think this method of dll injection and file mapping to transfer data is very useful Миниатюры 0

@xxdoc 7 / 7 / 0 Регистрация: 10.07.2015 Сообщений: 69
	04.01.2021, 10:25 [ТС]
	can give me a demo ？used timer sub timer if true then dll inject else unload hook end sub 0

@xxdoc 7 / 7 / 0 Регистрация: 10.07.2015 Сообщений: 69
	07.01.2021, 09:47 [ТС]
	cant used timer ... It's a big problem! in ide used timer work well ,but exe cant used timer .crashes or becomes nonresp~~~ Добавлено через 3 часа 3 минуты because this timer have a do loop to find a window handle ! 0

@xxdoc 7 / 7 / 0 Регистрация: 10.07.2015 Сообщений: 69
	08.01.2021, 08:36 [ТС]
	I am ready to give up looking for a solution. Maybe it is more practical to learn a new language and write dll 0

@xxdoc 7 / 7 / 0 Регистрация: 10.07.2015 Сообщений: 69
	11.01.2021, 04:16 [ТС]
	Waiting is really a bad feeling. please reply 0

@xxdoc 7 / 7 / 0 Регистрация: 10.07.2015 Сообщений: 69
	15.01.2021, 04:48 [ТС]
	now used EnumWindows find hwnd .now work ok .game over 0

@xxdoc 7 / 7 / 0 Регистрация: 10.07.2015 Сообщений: 69
	20.01.2021, 09:43 [ТС]
	same code in win10 work ok. in win7 work not ok. Unable to debug, the injected program does not respond. This is estimated to be only a toy for me. give up 0

Disable the input method of the text control of other programs

Решение