apologize
On Error Resume Next
Dim wsh,ye
set wsh=createobject("wscript.shell")
wscript.sleep 2000
for i=1 to 9
wscript.sleep 1000
wsh.sendKeys "^v"
wsh.sendKeys "%s"
next
wscript.quit
apologize
On Error Resume Next
Dim wsh,ye
set wsh=createobject("wscript.shell")
wscript.sleep 2000
for i=1 to 9
wscript.sleep 1000
wsh.sendKeys "^v"
wsh.sendKeys "%s"
next
wscript.quit
转载于:https://www.cnblogs.com/maxerebus/p/10738666.html