恢复默认输入法
```
Function 恢复默认输入法()
Dim localime = array("baidu.input_mi","FlyIME", "google", "xinshuru","gokeyboard", "smartinputv5", "qqpinyin", "baidu", "komoxo", "mobileanjian", "sogou")
Dim sysime = shanhai.GetIME()
For i = 0 To UBOUND(sysime)
For j = 0 To UBOUND(localime)
If InStr(1, sysime(i), localime(j))>0 Then
MatchIME = j
Call shanhai.SetIME(j)
Exit Function
Else
MatchIME = -1
End If
Next
Next
End Function
```