首页 / 编程脚本 / 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