vbs qq自动发信息增强版
导读：收集整理的这篇文章主要介绍了vbs qq自动发信息增强版，觉得挺不错的，现在分享给大家，也给大家做个参考。 运行前请确定你的电脑安装了word。复制代码 代码如下:i=0set wshs...
收集整理的这篇文章主要介绍了vbs qq自动发信息增强版，觉得挺不错的，现在分享给大家，也给大家做个参考。 运行前请确定你的电脑安装了word。复制代码 代码如下:
i=0
set wshshell=createobject("wscript.shell")
Set objWord = CreateObject("Word.Application")
Set colTasks = objWord.Tasks
do while i30
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
声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！
若转载请注明出处： vbs qq自动发信息增强版
本文地址： https://pptw.com/jishu/610038.html