CNPR文章网欢迎你
 
首页  脚本  vbs

vbs qq自动发信息增强版 _qq刷屏vbs[2017-03-01 11:53:50]

运行前请确定你的电脑安装了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
手机网址

网站地图| 精彩标签|

免责声明:所有作品版权归作者享有,若转载或者抄袭他人作品,带来的一切后果与本站无关。若发现本站存在您非授权的原创作品,请立即联系本站删除!本站享有代替本站作者维权的权力!

Copyright © 2011-2012 CNPR版权所有