On Error Resume Next
Dim xda,ye
set xda=createobject("wscript.shell")
for i =1 to 200
wscript.sleep 70
xda.AppActivate
xda.sendKeys "^v"
xda.sendKeys "%s"
next
wscript.quit
(记得把他放进txt之后改成vbs格式)
On Error Resume Next
Dim xda,ye
set xda=createobject("wscript.shell")
for i =1 to 200
wscript.sleep 70
xda.AppActivate
xda.sendKeys "^v"
xda.sendKeys "%s"
next
wscript.quit
(记得把他放进txt之后改成vbs格式)