Set WshShell=Wscript.CreateObject("Wscript.Shell")
WshShell.AppActivate"Hello,world"
for i=1 to 60
WScript.sleep 60
WshShell.sendkeys"^v"
WshShell.sendkeys i
WshShell.sendkeys"%s"
next
注:新建文件,后缀名改成vbs,运行脚本
![](https://i-blog.csdnimg.cn/blog_migrate/4b931d1536ff3847c8f5d1ea8dd14f40.jpeg)
Set WshShell=Wscript.CreateObject("Wscript.Shell")
WshShell.AppActivate"Hello,world"
for i=1 to 60
WScript.sleep 60
WshShell.sendkeys"^v"
WshShell.sendkeys i
WshShell.sendkeys"%s"
next
注:新建文件,后缀名改成vbs,运行脚本