1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17

On Error Resume Next 
 
Dim wsh,s,xTimes,tle
 
set wsh=createobject("wscript.shell") 
xTimes = inputbox("请输入重发消息的次数")
 
'clipboardData.SetData s
 
for i=1 to Cint(xtimes)
wscript.sleep 30
wsh.AppActivate(cStr(tle)) 
wsh.sendKeys "^v"
wsh.sendKeys "%s" 
next 
 
wscript.quit