手机
当前位置:查字典教程网 >脚本专栏 >vbs >vbs qq自动发信息增强版
vbs qq自动发信息增强版
摘要:运行前请确定你的电脑安装了word。复制代码代码如下:i=0setwshshell=createobject("wscript.shell"...

运行前请确定你的电脑安装了word。

复制代码 代码如下:

i=0

set wshshell=createobject("wscript.shell")

Set objWord = CreateObject("Word.Application")

Set colTasks = objWord.Tasks

do while i<30

For Each objTask in colTasks

if left(objTask.Name,1)="与" then

wshshell.appactivate objTask.Name

WshShell.SendKeys "{enter}"

wshshell.sendkeys "^v"

WshShell.SendKeys i

wscript.sleep 600

WshShell.SendKeys "%s"

i=i+1

end if

next

loop

【vbs qq自动发信息增强版】相关文章:

vbs fso跨盘移动文件夹的怪问题

emule自动关机脚本

vbs 自动复制U盘的内容

vbs获取当前路径的代码

vbs自动填表单分析附源码

用vbs实现注册表开关的脚本

vbs实现恢复暂停的自动启动服务的脚本

VBS Runas 自动输入密码, 明文

使用vbs下载文件的代码加强版

vbscript 可以按引用传递参数吗?

精品推荐
分类导航