本帖最后由 Huiseyu 于 2015-4-3 12:30 编辑
回复 Huiseyu
有没有具体方法。代码出来。
Ashu 发表于 2015-4-3 09:43
我只能说示范一下。可能会有权限问题等着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
|