qop1830 发表于 2008-7-14 08:45:29

切换到指定输入法！ 智能ABC

如题！
    能获取当前正在使用的输入法也行！
搞定   贴上答案！！   改标题1

00000804 =英文
e0040804 = 智能ABC 5.0
e0010804 = 全拼
E00E0804 = 微软拼音3.0


Opt("WinTitleMatchMode", 4)
Run("notepad.exe")
Sleep(500)
$hWnd = WinGetHandle("classname=Notepad")
MsgBox (0, "New Layout", _GetKeyboardLayout($hWnd))


Func _GetKeyboardLayout($hWnd)
    Local $ret = DllCall("user32.dll", "long", "GetWindowThreadProcessId", "hwnd", $hWnd, "ptr", 0)
          $ret = DllCall("user32.dll", "long", "GetKeyboardLayout", "long", $ret)
          Return "0000"&Hex($ret, 4)
EndFunc

[ 本帖最后由 qop1830 于 2008-7-14 23:37 编辑 ]

silvay22 发表于 2008-7-14 09:23:00

大侠虽说我帮不了你什么，但是受人恩惠当以涌泉相报，我在网上看见了用dephi的方法呵呵http://www.3pcode.com/code/2008/05/98976.htm

qop1830 发表于 2008-7-14 09:31:22

谢谢你的回答 ！      但是我不懂dephi

qop1830 发表于 2008-7-14 19:54:07

晕！！AU3就没人知道怎么弄？？

kakinkgb 发表于 2008-7-14 21:24:15

好像在旧帖子里有讨论

sanhen 发表于 2008-7-14 21:47:19

懒得研究了。。。VB可以实现的，AU3完全没有问题。
你研究一下输入法的API。非常好用的说。

qop1830 发表于 2008-7-14 21:56:55

:face (30):      API？    我找下先要是找不到我再来问！    谢谢你们
页: [1]
查看完整版本: 切换到指定输入法！ 智能ABC