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

相关文章：

正在阅读：

vbsQQ自动发信息增强版01-01

一节课的感想01-01

自然之美01-01

英文歌曲名01-01

2021新年祝福语大全(精)01-01

战国策·赵三·平原君谓平阳君的原文及翻译01-01

[感同身受是什么意思]感同身受意思及造句01-01

摩羯座女生喜欢的礼物01-01

篮球运动对幼儿身心健康的影响研究01-01

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