只允许访问指定网站AU3脚本

luyong250

在给网页加密的情况下，如何让AU3脚本只允许访问指定网站，这样的脚本怎么实现

lxz

比较高的技术...

rikthhpgf2005

不好搞，方面多

3mile

暂时只想到DNS

zcx880517

前来学习下，等待高手解决。。

luyong250

修改注册表可以实现不
$p1 = GUICtrlRead($input1)
        If GUICtrlRead($Button3) Then
                                RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Ratings\PICSRules\.Default\0\PRPolicy","PRNumPolicy","REG_DWORD","2")
                                RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Ratings\PICSRules\.Default\0\PRPolicy\0","PRPPolicyAttribute","REG_DWORD","2")
                                RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Ratings\PICSRules\.Default\0\PRPolicy\0\PRPPolicySub","PRNumURLExpressions","REG_DWORD","1")
                                RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Ratings\PICSRules\.Default\0\PRPolicy\0\PRPPolicySub\0","PRBUHost","REG_SZ",$p1)
                                RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Ratings\PICSRules\.Default\0\PRPolicy\0\PRPPolicySub\0","PRBUInternetPattern","REG_DWORD","1")
                                RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Ratings\PICSRules\.Default\0\PRPolicy\0\PRPPolicySub\0","PRBUNonWild","REG_DWORD","12")
                                RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Ratings\PICSRules\.Default\0\PRPolicy\0\PRPPolicySub\0","PRBUPort","REG_SZ","80")
                                RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Ratings\PICSRules\.Default\0\PRPolicy\0\PRPPolicySub\0","PRBUScheme","REG_SZ","http")
                                RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Ratings\PICSRules\.Default\0\PRPolicy\0\PRPPolicySub\0","PRBUSpecified","REG_DWORD","31")
                                RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Ratings\PICSRules\.Default\0\PRPolicy\0\PRPPolicySub\0","PRBUUrl","REG_SZ",$p1)
                                Sleep("1000")
                                MsgBox(0, "恭喜", "添加成功")
        Else
        EndIf
这样我试过了，加密后写入但是还是不能访问
待指点

wsfda

观望中，，，，期待高手

luyong250

大大门，能想出个好办法来吗

lynfr8

在给网页加密的情况下---怎么加密？打开IE隐藏运行？还是其他？
如何让AU3脚本只允许访问指定网站---仅仅是指AU3编译后的程序受到访问限制？其他浏览器依然不受限制？

你一句话描述就想别人理解你的意思帮你解决问题，也太天真了吧？

93779252

就是啊问题都没说清楚

410521a

给你个注册表自已看吧`` 本人是2003系统`


Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings]
"ProxyEnable"=dword:00000001          1为启用。0为禁用

"ProxyOverride"="写入只允许访问的网址，比如：www.autoitx.com;www.cctv.com<local>"

410521a

临时写了一个，希望对你有用```

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$zhuce = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings"
$Form1 = GUICreate("访问网页权限设置", 302, 214, -1,-1)
$zhiding = GUICtrlCreateRadio("充许以上网页访问", 24, 152, 129, 17)
$all = GUICtrlCreateRadio("所有网页均可访问", 160, 152, 113, 17)
$Group1 = GUICtrlCreateGroup("设置", 8, 8, 281, 169)
$wangzhi = GUICtrlCreateEdit("", 19, 28, 257, 113,$ES_AUTOVSCROLL + $WS_VSCROLL)
GUICtrlSetData(-1, "Edit1")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("确定", 48, 182, 75, 25)
$Button2 = GUICtrlCreateButton("取消", 168, 183, 75, 25)
GUISetState(@SW_SHOW)

$duzhuce = RegRead($zhuce,"ProxyEnable")
$duxianzhi = RegRead($zhuce,"ProxyOverride")
If $duzhuce="00000001" Then
        GUICtrlSetState($zhiding,$GUI_CHECKED)
Else
        GUICtrlSetState($all,$GUI_CHECKED)
EndIf
        
GUICtrlSetData($wangzhi,$duxianzhi)


While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                Case $Button1
                        xieru()
                Case $Button2
                        Exit
        EndSwitch
WEnd

Func xieru()
        $duedit = GUICtrlRead($wangzhi)
        RegWrite($zhuce,"ProxyOverride","REG_SZ",$duedit)
        If GUICtrlRead($zhiding) = 1 Then RegWrite($zhuce,"ProxyEnable","REG_DWORD",1)
        If GUICtrlRead($all) = 1 Then        RegWrite($zhuce,"ProxyEnable","REG_DWORD",0)
        DllCall("user32.dll","int","SendMessageTimeout","hwnd",65535,"int",26,"int",0,"int",0,"int",0,"int",1000,"str","dwResult")
EndFunc

410521a

也许还要加个``

"ProxyServer"="0.0.0.0:80"

代码也许需要加上上边的``  给你个图片自己看着做吧  打开方法``开始，，运行`输入 gpedit.msc

luyong250

在给网页加密的情况下---怎么加密？打开IE隐藏运行？还是其他？
如何让AU3脚本只允许访问指定网站---仅仅是 ...
lynfr8 发表于 2010-7-14 17:58

    我意思就是“IE选项”里的“内容审查程序”加密以后，有什么办法通过AU3来把自己所想打开的网站通过输入网站地址来添加信任，并且只能访问添加信任的网站，并且好象只要“内容审查程序”加密后，什么浏览器无法访问网站的吧
   看下有谁能有好的办法，并不一定通过注册表来修改，我查了一下，注册表添加的话修改键值达到35个，还有个文件C:\WINDOWS\system32\config\SOFTWARE.LOG也被修改

lanfengc

有那么麻烦吗？ 监测IE进程，如果发现则监测IE地址栏内容。 只要内容不是允许的，则直接关闭IE.