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
相关文章
有时候我们在个人电脑上，每次输入密码比较麻烦，可以自动登录，但如果qq账号多了，就可以使用这个脚本了2013-07-07
用vbscript脚本实现返回 IP 配置数据的代码...2007-05-05
这篇文章主要介绍了VBScript版的PHP extract()函数,extract函数主要作用是把数组转换成变量,非常好用的一个函数,需要的朋友可以参考下2014-06-06
查看系统C盘剩下的空间方法有很多，在本文要为大家介绍的是通过VBS脚本是如何实现的，感兴趣的朋友不要错过2013-11-11
用vbs实现路由器的重启，时间上就是利用vbs模拟按键输出。2009-03-03
在windows 64位操作系统上运行32位的vbscript的方法
这篇文章主要介绍了在windows 64位操作系统上运行32位的vbscript的方法,需要的朋友可以参考下2016-11-11
这篇文章主要介绍了vbs实现web自动登录网站,首先编写vbs，接着配置为开机自启，这个比较简单，只需要将这个vbs文件放到下面目录中就可以了，需要的朋友可以参考下2022-04-04
可以从一台远程服务器运行 SP2 安装程序Install.vbs
可以从一台远程服务器运行 SP2 安装程序Install.vbs...2007-04-04
用vbs更改 Internet Explorer 的标题栏...2007-03-03
VBS教程：函数-LCase 函数...2006-11-11
最新评论