vbs脚本和windows定时任务实现qq消息表情包定时发送功能

目标

在某个时间唤醒电脑屏幕后，自动发送qq信息，并附带表情包，发送完毕后关闭电脑屏幕。整个过程不用过多的程序运行，我们借助vbs脚本和windows定时任务去实现这一功能。

准备

vbs代码
qq信息txt文本
qq文件表情包文件
发送联系人的快捷方式
3个windows任务

具体操作

信息和快捷方式准备

qq信息txt文本和表情包文件

桌面新建文本输入要发送的信息，保存为abc.txt，

桌面新建文件，把要放的表情包放进里面，保存为abd

qq快捷方式

把联系人拖到桌面生成快捷方式，记住，qq保持登录状态

vbs脚本

程序具体改动见代码注释

Set objShell = CreateObject("Wscript.Shell")
WScript.Sleep 3000
objShell.SendKeys "{ESC}"
WScript.Sleep 7000 '等待时间设置7秒是为了给足时间电脑启动
objShell.SendKeys "{ESC}"
WScript.Sleep 3000
Set Shell=Wscript.Createobject("Wscript.shell")
Shell.run "C:\Users\captainzou\Desktop\abc.txt" 'qq信息文件保存地址
Wscript.Sleep 1000 '等待1秒
set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys ("^a")
Wscript.Sleep 2000 '等待1秒
WshShell.SendKeys ("^c")
Wscript.Sleep 2000 '等待1秒
WshShell.SendKeys "%{F4}"
Wscript.Sleep 1000 '等待1秒
Shell.run "C:\Users\captainzou\Desktop\tanhuang.lnk" '联系人快捷方式保存地址
Wscript.Sleep 5000 '等待5秒
WshShell.SendKeys ("^v")
Wscript.Sleep 1000 '等待1秒
WshShell.SendKeys "%{F4}"
Wscript.Sleep 2000 '等待2秒
Shell.run "C:\Users\captainzou\Desktop\abd" '表情包保存地址
Wscript.Sleep 2000 '等待2秒
WshShell.SendKeys ("^a")
Wscript.Sleep 1000 '等待1秒
WshShell.SendKeys ("^c")
Wscript.Sleep 1000 '等待1秒
WshShell.SendKeys "%{F4}"
Wscript.Sleep 1000 '等待1秒
Shell.run "C:\Users\captainzou\Desktop\tanhuang.lnk" '联系人快捷方式保存地址
Wscript.Sleep 1000 '等待1秒
WshShell.SendKeys ("^v")
Wscript.Sleep 4000 '等待4秒
WshShell.SendKeys "{ENTER}"
Wscript.Sleep 1000 '等待1秒
WshShell.SendKeys "%{F4}"
Wscript.Sleep 1000 '等待1秒

windows自带定时任务

唤醒电脑

在“此电脑”右键后点击管理，找到任务计划程序，点击“创建任务”，输入名称“唤醒电脑”，在常规中勾上“使用最高权限运行”，在触发器中填入唤醒时间，在操作中输入程序“notepad.exe”，在条件中勾上“唤醒计算机运行此任务”。然后确定即可。

发送信息

基本与唤醒电脑一致，注意的是要选择合适的发送时间，以及要在操作中浏览选择vbs脚本。

关闭电脑

基本与唤醒电脑一致，注意的是在操作中，输入程序“shutdown.exe",并且添加参数”-h“。

最后

电脑出现4个图标后就可以躺下等待半夜自动发送信息了。
qq保持登录状态，然后电脑休眠就行了。

qq发送信息后就关机了。

到此这篇关于vbs脚本和windows定时任务实现qq消息表情包定时发送的文章就介绍到这了,更多相关vbs脚本实现qq消息表情包定时发送内容请搜索我们以前的文章或继续浏览下面的相关文章希望大家以后多多支持我们！

赞 (0)

相关推荐

  • vbs定时发送邮件的方法与代码

    '用VBS写个脚本,然后用WINDOWS平台下的计划任务来调用,每天定时群发邮件.  '代码如下:  下载地址 http://www.51tiao.com/info.vbs 复制代码 代码如下: Dim connstr,conn  Dim sql,rs,msg Sub OpenDB()      ConnStr = "DSN=51tiao.Com;UID=sa;PWD=;"      If Not IsObject(Conn) Then          Set conn = Crea

  • vbs脚本和windows定时任务实现qq消息表情包定时发送功能

    vbs脚本和windows定时任务实现qq消息表情包定时发送功能

    目标 在某个时间唤醒电脑屏幕后,自动发送qq信息,并附带表情包,发送完毕后关闭电脑屏幕.整个过程不用过多的程序运行,我们借助vbs脚本和windows定时任务去实现这一功能. 准备 vbs代码qq信息txt文本qq文件表情包文件发送联系人的快捷方式3个windows任务 具体操作 信息和快捷方式准备 qq信息txt文本和表情包文件 桌面新建文本输入要发送的信息,保存为abc.txt, 桌面新建文件,把要放的表情包放进里面,保存为abd qq快捷方式 把联系人拖到桌面生成快捷方式,记住,qq保持登

  • Android仿QQ消息提示点拖拽功能

    很久以前,发现QQ有一个很有趣的功能,就是未读消息的红点是可以拖拽的,而且在任何地方都可以随意拖拽,并且有一个弹性的动画,非常有趣,而且也是一个非常方便的功能,于是总想仿制一个,虽说仿制,但也只是他的拖拽功能,弹性效果还是能力有限. 不多说 先上效果 一个自定义的view 使用方式也很简单 <com.weizhenbin.show.widget.VanishView android:layout_width="30dp" android:layout_height="3

  • Windows系统清理QQ聊天记录、反监控QQ聊天的BAT脚本分享

    今天女朋友告诉我说她们公司居然查看她们qq聊天记录,对于这样的公司我只能说x,好吧,写个脚本先清理下本地的qq聊天记录,再去找机器是否有安装监控软件. 系统:windows 软件:qq 2013 下面是我写的清理qq聊天记录的bat脚本,内容如下: 复制代码 代码如下: @echo off taskkill /f /im qq.exe taskkill /f /im qqprotect.exe taskkill /f /im txplatfirm.exe cd C:\Documents and

  • Vbs脚本经典教材(最全的资料还是MSDN)

      -为什么要使用Vbs? 在Windows中,学习计算机操作也许很简单,但是很多计算机工作是重复性劳动,例如你每周也许需要对一些计算机文件进行复制.粘贴.改名.删除,也许你每天启动计算机第一件事情就是打开WORD,切换到你喜爱的输入法进行文本编辑,同时还要播放优美的音乐给工作创造一个舒心的环境,当然也有可能你经常需要对文本中的某些数据进行整理,把各式各样的数据按照某种规则排列起来--.这些事情重复.琐碎,使人容易疲劳. 第三方软件也许可以强化计算机的某些功能,但是解决这些重复劳动往往事倍功半,

  • 从一个VBS脚本学习一点点东西

    不知道是最近还是以前,反正就是这几天经常在网上看到一个刷QQ群的VBS代码. 复制代码 代码如下: Set WshShell= WScript.createObject("WScript.Shell") WshShell.AppActivate "群 - Powers成员交流" for i=1 to 10 '要发的次数 WScript.Sleep 500 '发送消息的时间间隔 WshShell.SendKeys "^v" '要发的内容 WshSh

  • 利用批处理文件和 vbs 脚本实现网站视频自动录制

    利用批处理文件和 vbs 脚本实现网站视频自动录制 现在电视台基本上都有了自己的门户网站,我们可以充分利用网络的优势来扩大本地电视台的影响.事实上,将本地电视台的每日的王牌节目挂在网站上的做法已经成为建立电视台网站的必要组成步骤之一了.但随之而来的问题是:每天定时需要的手工录制过程,将给管理者带来极大的不便.在 windows 定时任务的基础上,将批处理程序与脚本程序有机的集合,就可以有效地解决这一问题. 1 :建立压码任务 我们将使用一台带有视频采集卡的电脑来完成压码过程.虽然压码不是本文的重

  • python自动化UI工具发送QQ消息的实例

    概述 个人遇到过小的需求,windows自动水群发送垃圾消息,使用一些特别简单易上手的小工具,快速实现功能需求(而不是使用一些重量级的还需要额外花时间去熟悉功能语法的大工具,如UI自动化工具sikulix).在一番摸索下,得出一番结论: 对于多平台的UI自动复杂操作,还是去学sikulix吧,这不是啃一点win32 api获取窗口句柄就能轻松解决的,毕竟sikulix是MIT大佬折腾出来的.而且,原理也更复杂(通过使用opencv对窗体控件进行识别,进而实现控制操作). 对于简单的操作(控制剪切

  • 对一个vbs脚本病毒的病毒原理分析

    对一个vbs脚本病毒的病毒原理分析

    一.前言 病毒课老师丢给我们一份加密过的vbs脚本病毒的代码去尝试分析,这里把分析过程发出来,供大家参考,如果发现文中有什么错误或者是有啥建议,可以直接留言给我,谢谢! 二.目录 整个分析过程可以分为以下几个部分: 0x00 准备工作 0x01 解密部分 0x02 功能分析 三.分析过程 0x00 准备工作 windows xp的虚拟机(在自己的windows下也可以做) vbs的一些基本语法 0x01 解密部分 右击病毒文件然后编辑打开或者是直接把其后缀修改成txt直接打开都行,可以看到一大段

  • 自定义vbs脚本实现开机后延时启动指定程序的方法

    概述 系统开机时,顺带自动启动了不少驱动程序,使得电脑开机后鼠标要呆滞许久.为了加快windows的开机速度,在参考网上不少大牛的资料后,整理出使用vbs脚本实现开机后延时启动程序的方法 vbs内容示例: 复制代码 代码如下: Dim delayer Set delayer = CreateObject("WScript.Shell") WScript.sleep 8000 delayer.Run """C:\Program Files(x86)\King

  • 可以将Bat转换位VBS文件的VBS脚本

    下面代码稍有修改,原结构是脚本与释放的bat同步执行并等待bat执行完毕后删除bat,本意是不遗留临时文件.后来想想通用性不好,比如释放执行的bat文件是个常驻进程的监视类型那VBS也会无休止的等待而无法退出,所以还是改为异步执行,脚本调用bat后自行退出.考虑到还原原文件的完整性末尾添加自删除也打消了想法.压缩包暂未更新. 复制代码 代码如下: 'bat2vbs.vbs by baomaboy Dim WshSHell,FSO On Error Resume Next Set WshSHell

随机推荐