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

qop1830

如题！
    能获取当前正在使用的输入法也行！
搞定   贴上答案！！   改标题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[0])
          Return "0000"&Hex($ret[0], 4)
EndFunc

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

silvay22

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

qop1830

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

qop1830

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

kakinkgb

好像在旧帖子里有讨论

sanhen

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

qop1830

        API？    我找下先  要是找不到我再来问！    谢谢你们