vbsQQ自动发信息增强版

时间：2022-05-19 18:49:27 阅读：最新文章文档下载

说明：文章内容仅供预览，部分内容可能不全。下载后的文档，内容与下面显示的完全一致。下载之前请确认下面内容是否您想要的，是否完整无缺。

运行前请确定你的电脑安装了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.wddqw.com/doc/3d48bf7027fff705cc1755270722192e4436585a.html

相关文章：

正在阅读：

上一篇：QQ表情代码再整理下一篇：QQ表情代码之欧阳语创编