pb在win10中控制是否使用拼音输入法

本人最近遇到一个关于输入法的问题：在特定的情况下控制输入法只能输入英文。

以前pb在这块的处理都是使用GetKeyboardLayout和ImmIsIME和ImmSimulateHotKey处理的，但是最近发现当操作系统超过win7之后，有的电脑就不能自动控制了。

上网查询了很多方法都没有解决，最终在查看window API时发现了PostMessage和LoadKeyboardLayout这两个函数。

本身是可以在pb中直接调用这两个函数的，但是由于本人不知道这两个函数的入参类型在pb中对应的数据类型，所以没有办法只能使用c#调用，封装成dll，然后pb这边注册调用。（我也觉得比较麻烦。。。如果大佬们知道pb中的调用方式，可以留言告诉我，谢谢）

####这种方法，我在我本地测试了下，xp，win7，win10（只有微软自带的一种输入法时可用）是可以使用的。

具体步骤如下：

1.新建.net 的类库，一定要记住.net 的版本，后面pb中注册时需要使用对应的regasm.exe。（具体步骤可以上网查找，这里贴出关键代码。）

using System;
using System.Collections.Generic;
using System.Linq;
using System.Runtime.InteropServices;
using System.Text;

namespace imm
{
    public class ChangeLanguageClass
    {
        [DllImport("user32.dll")]
        private static extern bool PostMessage(int hhwnd, uint msg, IntPtr wparam, IntPtr lparam);
        [DllImport("user32.dll")]
        private static extern IntPtr LoadKeyboardLayout(string pwszKLID, uint Flags);
        private  uint WM_INPUTLANGCHANGEREQUEST = 0x0050;
        private  int HWND_BROADCAST = 0xffff;
        private  string en_US = "00000409"; //英文
        private  string cn_ZH = "00000804";
        private  uint KLF_ACTIVATE = 1;
        public void ChangeLanguage(string languageType)
        {
            if (languageType == "en_US")
            {
                PostMessage(HWND_BROADCAST, WM_INPUTLANGCHANGEREQUEST, IntPtr.Zero, LoadKeyboardLayout(en_US, KLF_ACTIVATE));
            }
            else {
                PostMessage(HWND_BROADCAST, WM_INPUTLANGCHANGEREQUEST, IntPtr.Zero, LoadKeyboardLayout(cn_ZH, KLF_ACTIVATE));
            }
        }
    }
}

2.在pb中调用。

步骤：

a.建议新建一个bat文件，在里面写注册的语句：regAsm /codebase %cd%imm.dll /tlb:%cd%imm.tlb  (regAsm /codebase /u %cd%imm.dll /tlb:%cd%imm.tlb是注销的语句)

b.将c#生成的dll和tlb两个文件以及上面新建的bat文件和前面提到的regasm.exe文件一起放到pb程序的根路径，然后在pb程序中启动的地方进行注册

string ls_currentdirectory
ls_currentdirectory = GetCurrentDirectory()
if fileexists(ls_currentdirectory+"imm.bat") then run(ls_currentdirectory+"imm.bat")

在具体使用的地方

//英文

oleobject imm_object
imm_object = create oleobject
long ll_return 
ll_return = imm_object.connecttonewobject('imm.ChangeLanguageClass')
imm_object.ChangeLanguage('en_US')
destroy imm_object 

//中文

oleobject imm_object
imm_object = create oleobject
long ll_return 
ll_return = imm_object.connecttonewobject('imm.ChangeLanguageClass')
imm_object.ChangeLanguage('cn_ZH')
destroy imm_object