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

赞 (0)

相关推荐

  • vbs qq自动发信息增强版

    运行前请确定你的电脑安装了word. 复制代码 代码如下: i=0set wshshell=createobject("wscript.shell")Set objWord = CreateObject("Word.Application") Set colTasks = objWord.Tasks do while i<30For Each objTask in colTasks if left(objTask.Name,1)="与" t

  • VBS脚本加密/解密VBS脚本(简易免杀版1.1)

    Dim WshSHell,FSO On Error Resume Next Set WshSHell = WScript.CreateObject("WScript.Shell") Set FSO = CreateObject("Scripting.FileSystemObject") Set Args = WScript.Arguments Ver="1.1" CloseTime = 5 FileName = WScript.ScriptNam

  • JavaScript如何实现图片懒加载(lazyload) 提高用户体验(增强版)

    目录: 懒加载的意义(为什么要使用懒加载) 原理 代码 在上篇文章给大家介绍了JavaScript实现图片懒加载(Lazyload),大家可以参考下. 懒加载的意义(为什么要使用懒加载) 对页面加载速度影响最大的就是图片,一张普通的图片可以达到几M的大小,而代码也许就只有几十KB.当页面图片很多时,页面的加载速度缓慢,几S钟内页面没有加载完成,也许会失去很多的用户. 所以,对于图片过多的页面,为了加速页面加载速度,所以很多时候我们需要将页面内未出现在可视区域内的图片先不做加载, 等到滚动到可视区

  • 将表里的数据批量生成INSERT语句的存储过程 增强版

    将表里的数据批量生成INSERT语句的存储过程 增强版

    有时候,我们需要将某个表里的数据全部或者根据查询条件导出来,迁移到另一个相同结构的库中 目前SQL Server里面是没有相关的工具根据查询条件来生成INSERT语句的,只有借助第三方工具(third party tools) 这种脚本网上也有很多,但是网上的脚本还是欠缺一些规范和功能,例如:我只想导出特定查询条件的数据,网上的脚本都是导出全表数据 如果表很大,对性能会有很大影响 这里有一个存储过程(适用于SQLServer2005 或以上版本) -- Author: <桦仔> -- Blog

  • Python3中的f-Strings增强版字符串格式化方法

    在Python3.6提供f-Strings新的字符串格式化语法.不仅更加可读.简洁,相比其他方式也不易造成错误,而且还更快. 看完本文你将学习到如何以及为什么使用f-strings.正式开始之前,我们先看看之前格式化字符串语法. 1. 旧式字符串格式化 在Python3.6之前,主要有两种方式格式化字符串:%-格式化 和 str.format().下面我们先了解它们的用法以及局限性. 1.1 %-格式化 这时Python的官方字符串格式化方法,从语言开始时就存在.官方文档明确提出不建议使用,并其

  • Java多线程之锁学习(增强版)

    目录 阻塞锁 非阻塞锁 锁的四种状态 无锁状态 偏向锁 轻量级锁 重量级锁 可重入锁 自旋锁 读写锁 互斥锁 悲观锁 乐观锁 公平锁 非公平锁 显示锁和内置锁 轮询锁和定时锁 对象锁和类锁 锁粗化 锁消除 信号量 独享锁 共享锁 分段锁 死锁案例和排查 阻塞锁 含义:多个线程同时调用一个方法的时候,所有的线程都被排队处理了,让线程进入阻塞状态进行等待,当获得相应的信号(唤醒.时间)时,才能进入线程的准备就绪的状态.通过竞争.进入运行状态. Java中,能够进入\退出.阻塞状态或包含阻塞锁的方法有

  • 纯脚本备份_还原驱动增强版附相关sleep.exe

    说明: 不能说此脚本比驱动精灵更完美,但它确实弥补了驱动精灵的不足! 这个版本是我先前版本上(借助DevCon纯脚本备份驱动)增强的,已经是完美版本了. 1.支持备份完整的WHQL数字签名(我手头的驱动精灵 2005专业版就不支持). 2.智能判断系统中已安装的驱动程序,且只备份用户自行安装的驱动,若该设备包含WHQL数字签名则打印信息. 3.支持驱动文件打包存放,双击单个以设备名命名的.EXE自解压方式还原驱动,还原驱动就如此轻松. 4.支持宁静默方式外挂安装更新驱动,方便系统集成.Ghost

  • JS去除字符串的空格增强版(可以去除中间的空格)

    javascript trim 去空格函数实现代码http://www.jb51.net/article/16250.htm 下面是增强版本 复制代码 代码如下: // 功能: 1)去除字符串前后所有空格 // 2)去除字符串中所有空格(包括中间空格,需要设置第2个参数为:g) function Trim(str,is_global) { var result; result = str.replace(/(^\s+)|(\s+$)/g,""); if(is_global.toLowe

  • SendTo增强版 批处理实用小工具

    这是我用批处理制作的小软件,其中涉及到的知识点有注册表的查询添加.添加环境变量.动态显示选择提示.以及怎么在批处理中使用配置文件等等的内容.由于功能比较多,我虽然做了很多的测试但仍然不能保证不出问题,有问题.建议.以及代码的讨论欢迎跟贴.由于批处理的功能有限,软件自带两个命令行小工具,单纯的用批处理实现是不可能的,希望有能力并感兴趣的朋友能不能做个 VBS 脚本版的.祝大家节日快乐. 附图一张 帮助: 本软件是用批处理制作的实用小工具,安装后会给"发送到"增加一些实用的特性,如:复制文

  • vbs qq自动登录脚本改进版

    复制代码 代码如下: On Error Resume Next Dim WshShell, QQPath, QQselectset wshshell=createobject("wscript.shell")set fso=createobject("scripting.filesystemobject") key="HKLM\SOFTWARE\Tencent\PlatForm_TYPE_LIST\1\"QQPath=wshshell.regre

随机推荐