比如,如果要切换到某一输入法,可以这样,比如代码
For Each lang As Object In Windows.Forms.InputLanguage.InstalledInputLanguages output.show(lang.LayoutName) If lang.LayoutName Like "*搜狗拼音输入法*" Then Windows.Forms.InputLanguage.CurrentInputLanguage = lang Exit For End IfNext
msgbox("切换到搜狗输入法成功")