2013年10月11日
显示系统运行时间
摘要： strcomputer ="."Set dtmConvertedDate = CreateObject("WbemScripting.SWbemDateTime")Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")Set colOperatingSystems = objWMIService.Ex 阅读全文
posted @ 2013-10-11 23:50 cnsealine 阅读(461) 评论(0) 推荐(0) 编辑
实时监视进程并终止该进程
摘要： 5秒提示方式On Error Resume NextstrComputer = "."arrTargetProcs = Array("calc.exe")set objShell = CreateObject ("Wscript.Shell")Set SINK = WScript.CreateObject("WbemScripting.SWbemSink","SINK_")Set objWMIService = GetObject("winmgmts:" _& &qu 阅读全文
posted @ 2013-10-11 23:13 cnsealine 阅读(907) 评论(0) 推荐(0) 编辑
AHK_1小时后休息听歌
摘要： RunAsAdmin()Menu,Tray,Icon,Shell32.dll,42mfolder = d:\music\xiami\精选集22325898OnMessage(0x218, "PowerBroadcast") ;脚本接收到0x218:WM_POWERBROADCAST消息时调用“PowerBroadcast”这个自定义函数PowerBroadcast(wParam) ;将0x218的wParam值作为此函数里的wParam变量{If (wParam = 7 OR wParam = 8) ;电源广播消息的wParam值如为7:挂起，8:待机Reload}Loop 阅读全文
posted @ 2013-10-11 13:29 cnsealine 阅读(642) 评论(0) 推荐(0) 编辑