UC知道谁给解释一下这段vbs代码 好像很简单
来源：百度知道 编辑：UC知道 时间：2024/06/15 13:29:24
strcomputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\default")
Set colevents = objWMIService.ExecNotificationQuery("SELECT*FROM RegistryKeyChangeEvent WHERE Hive='HKEY_LOCAL_MACHINE' AND KeyPath='SOFTWARE\\Microsoft\\Windows\\currentVersion\\Run'")
Do
colEvents.nextEvent
MsgBox "在" & Now & "启动项被更改！", vbExclamation, "注册表防火墙."
loop
1.winmgmts:\\" & strComputer & "\root\default这一句是什么意思？winmgmts我怎么在手册里查不到
2.ExecNotificationQuery("SELECT*FROM RegistryKeyChangeEvent WHERE Hive='HKEY_LOCAL_MACHINE' AND KeyPath='SOFTWARE\\Microsoft\\Windows\\currentVersion\\Run'")这一句解释下
3.Do
colEvents.nextEvent
MsgBox "在" & Now & "启动项被更改！", vbExclamation, "注册表防火墙.&
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\default")
Set colevents = objWMIService.ExecNotificationQuery("SELECT*FROM RegistryKeyChangeEvent WHERE Hive='HKEY_LOCAL_MACHINE' AND KeyPath='SOFTWARE\\Microsoft\\Windows\\currentVersion\\Run'")
Do
colEvents.nextEvent
MsgBox "在" & Now & "启动项被更改！", vbExclamation, "注册表防火墙."
loop
1.winmgmts:\\" & strComputer & "\root\default这一句是什么意思？winmgmts我怎么在手册里查不到
2.ExecNotificationQuery("SELECT*FROM RegistryKeyChangeEvent WHERE Hive='HKEY_LOCAL_MACHINE' AND KeyPath='SOFTWARE\\Microsoft\\Windows\\currentVersion\\Run'")这一句解释下
3.Do
colEvents.nextEvent
MsgBox "在" & Now & "启动项被更改！", vbExclamation, "注册表防火墙.&
1.Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\default") '绑定到本机的wmi服务
2.Set colevents = objWMIService.ExecNotificationQuery("SELECT*FROM RegistryKeyChangeEvent WHERE Hive='HKEY_LOCAL_MACHINE' AND KeyPath='SOFTWARE\\Microsoft\\Windows\\currentVersion\\Run'") '绑定到注册表根键(Hive)为HKEY_LOCAL_MACHINE子键为SOFTWARE\\Microsoft\\Windows\\currentVersion\\Run的键
3.Do '循环检测
colEvents.nextEvent '监视有无修改动作
MsgBox "在" & Now & "启动项被更改！", vbExclamation, "注册表防火墙." '有则提示
loop
第二句是一个select查询语句,建议你先去学基础
第一句好象是一个路征
第三句是如果查询有结果就显示更改的项
这跟注册表有关
修改注册表