Ashu 发表于 2015-4-3 09:43:48

回复 5# Huiseyu


    有没有具体方法。代码出来。

netegg 发表于 2015-4-3 09:44:01

回复 15# Ashu

那估计要实时监控了

Ashu 发表于 2015-4-3 09:49:17

回复 17# netegg


   就是时时监控。现在360跟电脑管家都有出这个。 主页一修改,他就会弹窗让用户选择。

netegg 发表于 2015-4-3 09:59:02

你用的系统得有多强大呀,用au3实时监控

netegg 发表于 2015-4-3 10:00:21

你用的系统得有多强大呀,用au3实时监控

Ashu 发表于 2015-4-3 10:08:35

回复 20# netegg


   之前有见到别人弄,才敢这么想。

Huiseyu 发表于 2015-4-3 10:37:14

本帖最后由 Huiseyu 于 2015-4-3 12:30 编辑

回复Huiseyu


    有没有具体方法。代码出来。
Ashu 发表于 2015-4-3 09:43 http://www.autoitx.com/images/common/back.gif

我只能说示范一下。可能会有权限问题等着LZ

#RequireAdmin
#RequireAdmin
_Start_Page_Check()





Func _Start_Page_Check()
    Global $HomePage = 'http://www.hao123.com'
        Local $HomeVar = 'HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main', $RegVar = 'Start Page', $regType = 'REG_SZ'
          $startpage = RegRead($HomeVar, $RegVar)
        If $startpage <> $HomePage Then $Setting =MsgBox(8097, '主页被修改', '预设主页为' & $HomePage &@CRLF & '现在设置为' &$startpage &'你愿意吗?')
        If $Setting = 1 Then

                MsgBox(8096, '好吧!',$startpage & @CRLF & '这个网址确实不错!')

        Else

                RegWrite($HomePage ,$RegVar ,$regType ,$HomePage)
                MsgBox(8096,'信息',$HomePage = $startpage ? "OH Yeh ~ 主页没有变动": "I'M So Sorry ..-_-!,我已经尽力了")

        EndIf

;~         MsgBox(8096, 'current !', $startpage)
;~         EndIf

EndFunc   ;==>_Start_Page_Check




tvzml 发表于 2015-4-8 14:53:21

如果 注册项是 随即名称的 而且修改了权限的情况下,AU3遍历也搞不定,因为开始不知道 项名,想修改权 先要知道项名,问题现在不知道,但是遍历的时候没有权限,也就遍历不出项名,所以纠结操作不了这个注册项

Huiseyu 发表于 2015-4-8 15:13:10

如果 注册项是 随即名称的 而且修改了权限的情况下,AU3遍历也搞不定,因为开始不知道 项名,想修改权 先要 ...
tvzml 发表于 2015-4-8 14:53 http://www.autoitx.com/images/common/back.gif


    针对主页检测,在个项值上面,7或8经过测试都是固定一致的,xp应该这也是一样的
不知道有没有误解楼主的意思,个人理解只是想要检测主页是否被修改。
而我会的不多,刚好这个会,就写个段玩下咯

另外希望把你的想法写成代码共享交流一下,看我ID就知道,2014年注册,目前还在学习阶段。
所以,尽我所能,受你所授。^ω^

tvzml 发表于 2015-4-9 09:49:36

如今的绑定主页已是“过去式”了,广告主可以使用丧心病狂来形容,将桌面的IE快捷方式劫持了,不管你主页是什么,全部统一执行广告指定地址,劫持方式五花八门,楼主的话题谈到我伤心处了

ceoguang 发表于 2015-4-13 20:21:09

这是通过驱动实现的,参考
CmRegisterCallback
https://msdn.microsoft.com/en-us/library/windows/hardware/ff541918(v=vs.85).aspx
页: 1 [2]
查看完整版本: 寻找高手,高新酬谢。