VBS+迷你QQ，实现机器远程休眠和电驴的自动休眠

首先到http://www.xdowns.com/soft/40/125/2006/Soft_28470.html下载迷你QQ，解压后运行MiniQQ2.0.exe，输入用户名＆密码，上线，然后开另外一个QQ，给这个迷你QQ随便发个消息，
迷你QQ收到消息后发现多了个名为908922622的文件夹，里面有一个名为“聊天记录.txt”的文件，打开这个文件发现有刚才收到的消息，就是利用这个特点，我实现了计算机的远程休眠（或关机），下面是实现VBS文件的代码：

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Wscript.Echo "VBS+迷你QQ，实现机器远程休眠和电驴的自动休眠……"
Const ForReading = 1
dir="G:/Temp" '电驴的临时下载文件夹
killemule="taskkill /f /t /im emule.exe" '设关闭电驴的变量
hibernate="RUNDLL32.EXE PowrProf.dll,SetSuspendState" '设让机器进入休眠的变量
Set ws=WScript.CreateObject("WScript.Shell")
program1="C:/Program Files/ChinaNet/VnetClient.exe" '星空极速V3.0的路径
set wshshell=CreateObject("wscript.shell")
Set ws=WScript.CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
chksize =objFSO.GetFolder(dir).Size
count=0

do until count<-1
Set objFile = objFSO.OpenTextFile("E:/MiniQQ-v2.0/908922622/聊天记录.txt", ForReading)
strContents = objFile.ReadAll
objFile.Close

If chksize=0 or InStr(strContents, "hibernate") Then '当G:/Temp文件夹为空时或有hibernate字符串时，执行以下代码
ws.run killemule,0
set oexec=wshshell.exec(program1)
wscript.sleep 2000
wshshell.appactivate "星空极速V3.0"
wshshell.sendkeys "%{F4}"
ws.run hibernate,0
Wscript.Quit '退出本程序
End If

WScript.Sleep 120000
loop

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
代码其实很简单，现在把电驴和星空极速都运行，同时确保G:/Temp里要有文件不能空、“聊天记录.txt”里初始时也要有一些字符否则会报错并且字符中没有hibernate字符串，一切准备就绪，好了拿出你的手机（手机必须开通GPRS可以手机上网的），用手机上你的QQ，然后给这个MiniQQ发消息，当消息为hibernate字符串时电脑就会自动进入休眠，另外注意的是你机器必须设了允许休眠功能。

VBS+迷你QQ，实现机器远程休眠和电驴的自动休眠相关推荐

如何关闭台式计算机休眠,如何让电脑不自动休眠 Win7怎么关闭自动休眠功能
对于有一点点电脑知识的朋友来说,电脑在默认的情况下会有休眠模式,比如10分钟不使用电脑,电脑就进入自动休眠模式,唯一的好处就是为电脑省电节能.而对于夜间挂机下载的用户,如果电脑一旦进入自动休眠状态,那 ...
更改计算机休眠,win 7 无法设置自动休眠时间
您好, 明白您的意思了,您先用下面的命令尝试开启休眠功能. 右键开始菜单,找到命令提示符(管理员),输入命令powercfg -h on即可开启计算机休眠功能. 如果无效的话,使用计划任务. 进入wi ...
ubuntu 20.04 | 关闭自动休眠
ubuntu 20.04 | 关闭自动休眠 1. 查看是否开启自动休眠 2. 关闭自动休眠 3. 查看自动休眠是否关闭 1. 查看是否开启自动休眠 sudo systemctl status slee ...
delphi 企业微信消息机器人_简单用VBS调用企业微信机器人发定时消息的方法
去年在企业微信群当中突然看到多了一个叫多群机器人的东西: 企业微信群机器人以为是升级了什么黑科技,看了下说明,原来目前功能是一个接收自定义消息的Webhook接口,可以通过调用接口把自定义消息推送到 ...
远程计算机一键休眠,nuc8i5远程登录-windows10频繁自动休眠解决方案
nuc8i5远程登录-windows10频繁自动休眠解决方案 2021-05-08 16:49:11 0点赞 0收藏 0评论 nuc8i5远程登录-windows10频繁自动休眠解决方案远程开机后, ...
QQ怎么服务器远程,腾讯QQ远程协助功能详解
使用过 Netmeeting 的朋友都会为对其远程桌面共享功能印象颇为深刻.的确,远程共享可以为我们提供很大的方便,但是由于建立互联需要 IP 地址的呼叫,服务器也不是分稳定.大多数人恐怕都有过因为找 ...
安卓开发裕语言程序---调用qq收藏作为远程更新实例
安卓开发&裕语言程序---调用qq收藏作为远程更新实例在裕语言环境下,做安卓个人开发的过程中,我们时有需要在软件内部实现动态远程公告更新,如果不采用传统方法,而改用QQ收藏来做,那么,如何实 ...
笔记本网卡总断连，如何使得网卡不自动休眠？
总结家里面的笔记本拿来开机做服务器,但是出门在外的时候没法远程连接回服务器,回到家发现是因为网卡休眠了.很抓狂. 通过以下方法关闭网卡的自动休眠. 重新安装网卡驱动修改注册表 OK 参考修改注册 ...
ubuntu20.04禁止自动休眠的几种方式
最近不知道为啥,每天晚上ubuntu系统都会自动进入休眠状态,然后远程连接就断开了,还得等第二天到机子那按一下电源键来唤醒系统.可是回想起来自己也没有修改过任何设置,之前电脑都是不会自动休眠的,这 ...

VBS+迷你QQ，实现机器远程休眠和电驴的自动休眠

VBS+迷你QQ，实现机器远程休眠和电驴的自动休眠相关推荐

最新文章

热门文章