vbsQQ自动发信息增强版

【#文档大全网# 导语】以下是®文档大全网的小编为您整理的《vbsQQ自动发信息增强版》，欢迎阅读！





运行前请确定你的电脑安装了word。 代码如下: i=0

setwshshell=createobject("wscript.shell")

SetobjWord=CreateObject("Word.Application") SetcolTasks=objWord.Tasks dowhilei<30

ForEachobjTaskincolTasks

ifleft(objTask.Name,1)="与"then wshshell.appactivateobjTask.Name WshShell.SendKeys"{enter}" wshshell.sendkeys"¶" WshShell.SendKeysi wscript.sleep600

WshShell.SendKeys"%s" i=i+1 endif next loop

更多信息请查看IT技术专栏

本文来源：https://www.wddqxz.cn/3d48bf7027fff705cc1755270722192e4436585a.html