批处理执行vbs模拟键盘输入焦点被转移，遇到的麻烦事

set wshshell=createobject("wscriptshell")

wscriptsleep 这里输入时间间隔，一秒就输入1000

wshshellsendkeys"{SPACE}"

wscriptquit

调用下面的一段vbs即可，根据窗口标题激活输入窗口。

Dim WshShell

Set WshShell=WScriptCreateObject("WScriptShell")

WScriptSleep 200

WshShellAppActivate "管理员: MAC-TEST"

WScriptSleep 200

WshShellSendKeys "12345678"

Private Sub Command1_Click()

Shell "notepadexe", vbNormalFocus   'vbNormalFocus参数可以让记事本获得焦点

SendKeys Rnd & "{enter}", True       '在记事本中写入5个随机数，一行一个

SendKeys Rnd & "{enter}", True

SendKeys Rnd & "{enter}", True

SendKeys Rnd & "{enter}", True

SendKeys Rnd & "{enter}", True

SendKeys "^sc:\111txt{enter}", True '把文件保存为c:\111txt

End Sub

以上就是关于批处理执行vbs模拟键盘输入焦点被转移，遇到的麻烦事全部的内容，包括:批处理执行vbs模拟键盘输入焦点被转移，遇到的麻烦事、批处理开机自动启动获取输入焦点、vbs中怎么实现打开一个记事本就默认在最前端等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！