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

haiji2008 · 发表于 2008-5-28 18:48:08

（原创）VBS+迷你QQ，实现机器远程休眠和电驴的自动休眠
首先到http://www.xdowns.com/soft/40/125/2006/Soft_28470.html下载迷你QQ，解压后运行MiniQQ2.0.exe，输入用户名＆密码，上线，然后开另外一个QQ，给这个迷你QQ随便发个消息， 迷你QQ收到消息后发现多了个名为908922622的文件夹，里面有一个名为“聊天记录.txt”的文件，打开这个文件发现有刚才收到的消息，就是利用这个特点，我实现了计算机的远程休眠（或关机），下面是实现VBS文件的代码，其实我对asp一点也不懂的，我搞了一天一夜才搞出来：
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
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字符串时电脑就会自动进入休眠，另外注意的是你机器必须设了允许休眠功能，这代码很实用，比如电驴在家里下载着，你在外面办事，突然下起了大暴雨，这时你就可以用上面的方法把电脑给关了。

haiji2008 · 发表于 2008-6-25 18:27:16

有人看无人回，我们怀集的人才呢，人才你在哪里？？

夜雨残风 · 发表于 2008-7-6 16:02:31

顶下