vbs qq自动发信息增强版
运行前请确定你的电脑安装了word。复制代码 代码如下:i=0set wshshell=createobject("wscript.shell")Set objWord = CreateObject("Word.Application") Set colTasks = objWord.Tasks do while i<30For Each objTask in colTasks if left(objTask.Name,1)="与" thenwshs...