请参考!
#include <date.au3>
Opt("TrayIconHide", 1)
$strComputer = "."
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\default")
$colEvents = $objWMIService.ExecNotificationQuery _
("SELECT * FROM RegistryKeyChangeEvent WHERE Hive='HKEY_LOCAL_MACHINE' AND " & _
"KeyPath='SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Run'")
While 1
Sleep(250)
$objLatestEvent = $colEvents.NextEvent
ConsoleWrite (_Now() & ": 注册表已更改!")
WEnd
我们的子弟兵们救援队伍已经进入四川重灾区的所有市县,希望四川的同胞们平安!我们祖国,我们华夏民族一定能战胜天灾! |