vbs qq自动发信息增强版

运行前请确定你的电脑安装了word。

i=0
set wshshell=createobject("wscript.shell")
set objword = createobject("word.application")
set coltasks = objword.tasks
do while i<30
for each objtask in coltasks
if left(objtask.name,1)="与" then
wshshell.appactivate objtask.name
wshshell.sendkeys "{enter}"
wshshell.sendkeys "^v"
wshshell.sendkeys i
wscript.sleep 600
wshshell.sendkeys "%s"
i=i+1
end if
next
loop