我写过最蠢的代码是

搞了半天就整出一个cmd

On Error Resume Next
Dim xda,ye
set xda=createobject("wscript.shell")
for i =1 to 5

wscript.sleep 70

xda.AppActivate

xda.sendKeys "^v"

xda.sendKeys "%s"

next wscript.quit