vbs qq自动发信息增强版

复制代码 代码如下:

i=0

set wshshell=createobject("wscript.shell")

Set objWord = CreateObject("Word.Application")

Set colTasks = objWord.Tasks

do while i<30

F编程客栈or Each objTask in colTasks

if left(objTask.Name,1)=http://www.devze.com"与" then

wshshell.appactivate objTask.Name

WshShell.SendKeys "{enter}"

wshshell.sendkeys "^www.devze.comv"

WshShell.Senhttp://www.devze.comdKeys i

wscript.sleep 600

WshShell.SendKeys "%s"

i=i+1

end if

next

loop