vbs qq自动发信息增强版
更新时间：2014年05月11日 00:53:27 作者：
这篇文章主要介绍了vbs qq自动发信息增强版,需要的朋友可以参考下
运行前请确定你的电脑安装了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
复制代码 代码如下:
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实现的保存剪贴板中的文本实现编辑或保存的实现方法，需要的朋友可以参考下2014-05-05
VBS中的队列需要使用System.Collections.Queue,包含队列的添加元素（入队）、删除元素（出队）、遍历、统计元素个数、清空 ，需要的朋友可以参考下2018-05-05
这个是我见过的最有特色的脚本提醒程序了，时间|提示语，具体使用方法可以参考例子2008-06-06
用vbs实现重新启动 Internet Explorer...2007-03-03
貌似我看过的 VBScript 书籍没有一本介绍过这种写法，当然，书上没写的东西还有很多2012-01-01
用vbscript实现的强制杀系统进程的脚本代码，主要用于一些杀毒软件，占系统内存或cpu，我们可以用下面的方法杀掉，黑人也必须杀掉杀毒软件，才能进行下一步操作，不建议搞破坏。2008-05-05
VBS教程：正则表达式简介 -选择与编组...2006-11-11
MSScriptControl.ScriptControl组件的用法实例
这篇文章主要介绍了MSScriptControl.ScriptControl组件的用法实例,需要的朋友可以参考下2014-08-08
VBS教程：VBscript语句-For...Next 语句
VBS教程：VBscript语句-For...Next 语句...2006-11-11
在网上找了很多IIS日志分析工具，功能实在太有限，有的仅能分析百度、谷歌等搜索引擎爬虫的来访次数，远远达不到我们的用户的需求2020-09-09
最新评论