本帖最后由 haijie1223 于 2012-4-12 08:48 编辑
If MsgBox(4 + 32, "是否选中", "选中IE“允许或安装软件,即签名无效”") = 6 Then
CHECKED();选中
Else
UNCHECKED();取消选中
EndIf
Func CHECKED()
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Desktop\Components", "GeneralFlags", "REG_DWORD", "0")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Download", "RunInvalidSignatures", "REG_DWORD", "1")
DllCall("user32.dll","int","SendMessageTimeout","hwnd",65535,"int",26,"int",0,"int",0,"int",0,"int",1000,"str","dwResult")
EndFunc ;==>CHECKED
Func UNCHECKED()
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Desktop\Components", "GeneralFlags", "REG_DWORD", "1")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Download", "RunInvalidSignatures", "REG_DWORD", "0")
DllCall("user32.dll","int","SendMessageTimeout","hwnd",65535,"int",26,"int",0,"int",0,"int",0,"int",1000,"str","dwResult")
EndFunc ;==>UNCHECKED
|