Set WS=CreateObject("WScript.Shell")WS.run "rundll32.exe shell32.dll,Control_RunDLL input.dll"WScript.Sleep 100WS.AppActivate("文字服务和输入语言")WScript.Sleep 100WS.SendKeys "{END}"WScript.Sleep 100WS.SendKeys "{ENTER}"