EXE运行时如何关闭中文输入法

1、IMESTATUS() 在win7中已经失效了
2、win10的输入法控制方案又发生了变化
目前怎么在win10中控制改变输入法状态，还不清楚

关闭输入法就无必要吧
可以不要时切换到EN，再要时恢复中文输入法

折腾半天，做了“废品”，因为状态一直获取不到。
模拟鼠标点击输入法切换“中”“英”状态。高手再想办法获取到“中”“英”状态就能用了

这个办法只适合反人类设计的win10输入法。xp、win7没必要这么麻烦

DECLARE INTEGER FindWindow IN user32 STRING,STRING
DECLARE INTEGER FindWindowEx IN user32 INTEGER,INTEGER,STRING,STRING

lnHwnd1=FindWindow("Shell_TrayWnd",0)
lnHwnd2=FindWindowEx(lnHwnd1,0,"TrayNotifyWnd",NULL)
lnHwnd3=FindWindowEx(lnHwnd2,0,"TrayInputIndicatorWClass",NULL)
lnHwnd4=FindWindowEx(lnHwnd3,0,"IMEModeButton",NULL)

#DEFINE WM_MOUSEMOVE             0x0200
#DEFINE WM_NCLBUTTONDOWN        0x00A1
WM_LBUTTONDOWN = 0x0201
WM_LBUTTONUP = 0x0202
MK_LBUTTON = 0x0001
WM_GETTEXT = 0x000D

DECLARE INTEGER PostMessage IN user32 INTEGER,INTEGER,INTEGER,INTEGER
PostMessage (lnHwnd4,WM_LBUTTONDOWN,MK_LBUTTON ,1)      && 按下左键
PostMessage (lnHwnd4,WM_LBUTTONUP,MK_LBUTTON ,1)        && 放开左键

[此贴子已经被作者于2023-1-11 18:47编辑过]

获取“中”“英”状态的垃圾办法：根据 lnHwnd4 获取窗口大小，屏幕截图，根据截图可以判断
垃圾办法不适合应用

确定win7是失效还是你理解这个功能上有误？

https://bbs.bccn.net/viewthread.php?tid=485814&highlight=%CA%E4%C8%EB%B7%A8

具体不清楚你要实现什么功能。
“切换输入法”就是用代码自动实现类似手工按键或鼠标点击切换选择输入法的功能。
如果手工切换后也不能满足要求，代码切换结果也一样。
就算删除全部输入法，也总要有个“输入法”，最基本的就是EN输入法，这样也满足不了要求就难搞了。

win10自带的输入法，有“中”“英”2种状态。
装了搜狗输入法之后：
切换搜狗的中英输入状态，win10的“中”“英”状态会改变
切换win10的中英输入状态，搜狗的“中”“英”状态也会改变

我猜测：楼主的意思是想在win10中切换“中”“英”状态

[此贴子已经被作者于2023-1-11 19:41编辑过]

吹版有所不知，我有个程序是专门用来扫描的，程序运行期间不需要键盘输入任何中文，而有的条码里有字母，此时如果输入法为中文的话则会被拦截（系统认为是在输入汉字），有的人（特别是新人）没注意到输入法的问题，认为是程序出错了。故而想自动切换至英文，避免一些麻烦

https://bbs.bccn.net/viewthread.php?tid=485814&highlight=%CA%E4%C8%EB%B7%A8
VFP的IMESTATUS()适用XP，之后的windows版本可能不适用。
可以试试用WinAPI切换输入法，如：
DECLARE LONG GetKeyboardLayout IN User32 LONG
DECLARE LONG LoadKeyboardLayout IN User32 STRING@, LONG
DECLARE LONG ActivateKeyboardLayout IN User32 LONG,LONG
hLayout = GetKeyboardLayout(0)
?"切换为En输入法"
LoadKeyboardLayout("0x0409", 1) && KLF_ACTIVATE
?"按一键恢复原输入法"
INKEY(0)
ActivateKeyboardLayout(hLayout, 0)
上面是2018年的帖子，吹版提供的方法，试过了，可以达到目的
有一点不知能否实现，用了上面的方法，第一次右下角键盘位置显示为 ENG ，再点就没有了，等于输入法当前状态看不到了，能否只切换“中”“英”状态？

要切换为En输入法时：LoadKeyboardLayout("0x0409", 1)
不要时恢复之前输入法状态：ActivateKeyboardLayout(hLayout, 0)
这样不可以吗

你这就是我在 7 楼说的“副作用”：一旦切换到ENG键盘布局，键盘快捷键切换就失效了
你表达的意思我猜对了，因为你想实现的功能，我一直在用。版主的方案是win7方案。
“LoadKeyboardLayout”不是切换输入法，是切换“键盘布局”。
如果你没有主动添加“ENG”，“ENG键盘布局”想要删除，还得安装布局才能删除。

你的想法，我早都知道 win10 下不好处理，昨天看到你问了，就搞了一下，我 6 楼的代码就是你想要的切换“中”“英”状态，遗憾的是：没法判断它的状态。

感谢感谢，我试试

是不是把问题复杂化了，系统的键盘鼠标干预太多也不好。
获取数据后不可以判断出是否有效吗?

找到判断“中”“英”状态的办法了：https://blog.

isEnglishMode(){
    hWnd := winGetID("A")
    result := SendMessage(
        0x283, ; Message : WM_IME_CONTROL
        0x001, ; wParam : IMC_GETCONVERSIONMODE
        0, ; lParam ： (NoArgs)
        , ; Control ： (Window)
        ; 获取当前输入法的模式
        ; Retrieves the default window handle to the IME class.
        "ahk_id " DllCall("imm32\ImmGetDefaultIMEWnd", "Uint", hWnd, "Uint")
    )
    ; DetectHiddenWindows Fasle
    ; 返回值是0表示是英文模式，其他值表明是中文模式
    return result == 0
}

虽暂时用不上，期待英雄放出测试代码学习下

Win10输入法“中”“英”切换源码：https://bbs.bccn.net/thread-511101-1-1.html

谢谢

用PC解决素数有关的问题，也只能局限于很有限的验证。
“素数”问题是纯数论的问题，从论证法测看PC是解决不了，只能有限的“必要性”，体验不了“充分性”。
确要用PC玩素数，因要处理大量数据，用VFP不太适合。
还记得早前那个创建素数表的事情吗，用VFP效率太低，给了个C写的DLL测试，明显VFP就差太多。
VFP处理数据量也很有限，VFP最大也只能处理32bit整数数据类型。
也许会问，可以用大数方法来突破32bit，那就更差劲了，大数方法实质是字符串处理，算法也变复杂，VFP处理大字符串的效率低。

[此贴子已经被作者于2023-1-18 10:26编辑过]

键盘快捷键应该可以重新定义