这个没办法。
试试用代码切换输入法
For Each lang As Object In Windows.Forms.InputLanguage.InstalledInputLanguages msgbox(lang.LayoutName) If lang.LayoutName Like "*搜狗拼音输入法*" Then Windows.Forms.InputLanguage.CurrentInputLanguage = lang
msgbox("切换到搜狗输入法成功") Exit For End IfNext
加好友 
发短信
Post By：2018/2/7 20:52:00 [显示全部帖子]
