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

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

首先到http://cmdos.net/soft/sort016/down-612.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字符串时电脑就会自动进入休眠，另外注意的是你机器必须设了允许休眠功能。