发布时间:2019-07-29 17:00:51
Set WshShell =
WScript.Create0bject
("Wscript.Shell")
WshShell.AppActivate"哈哈"
for i = 1 to 20
WScript.sleep 100
WshShell.Sendkeys"^v"
WshShell.Sendkeys i
WshShell.Sendk
eys"%s"
Next
没有点基础就不建议直接复制别人的程序(万一是恶意代码你中招了也不知道)
可运行的代码如下;
Set WshShell = WScript.Createobject("Wscript.Shell")WshShell.AppActivate"哈哈"for i = 1 to 2 WScript.sleep 100WshShell.Sendkeys "^v"WshShell.Sendkeys iWshShell.Sendkeys "%s"Next