请问如何用au3控制ie访问，只让用户访问一个特定的网址？

mtvtop

请问如何用au3控制ie访问，只让用户访问一个特定的网址？

例如我只想让用户访问qq.com的内容，其他的网站都不能访问？

查询了很多资料都没有找到，求高手解答，万分感谢

netegg

#Include <WinINet.au3>
_WinINet_PrivacySetZonePreference????

mtvtop

回复 2# netegg

老大，我新手一个，能不能给个完整点的代码？谢谢，简单的就成，感谢

amxi

回复 2# netegg

我的autoit help里没有找到这个...

mtvtop

我也是，完全没有找到

xms77

回复 2# netegg
在UserInclude里面有

xms77

回复 5# mtvtop
在UserInclude里面有

mtvtop

回复 7# xms77

UserInclude 我在帮助里还是没有搜索到！
哪位大神能不能直接发个代码学习一下，谢谢

mtvtop

求高手帮助，谢谢

mtvtop

求高手帮助，谢谢

kyann1

#include <IE.au3>

HotKeySet("{F2}","OpenIE") ；加的系统热键F2

While 1
     Sleep(100)
WEnd

Func OpenIE()
        ShellExecute ("Firefox.exe", "www.baidu.com")  ；指定火狐浏览器来打开网页

        _IECreate ( "about:blank" , 0 ,  1 ,  1 ,  1 ) ；正常用IE打开的
       
EndFunc

mtvtop

回复 11# kyann1

这个好像无法限制其他网址，我输入其他网址还是能访问，我们希望实现无法访问指定网址以外的网址

kyann1

回复 你指定的网址都有什么 12# mtvtop

502762378

内容审查程序通过注册表可以完成
之前工作要求限制某个网站不能登录，可以登录其他网站，和楼主的要求恰恰相反
你看的修改下注册表项吧

$file = @ScriptDir&"\list.ini"
$n = IniReadSection($file,"list")
For $1 = 1 To $n[0][0]

$reg1=$n[$1][0]&"\HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Ratings"
RegWrite($reg1,"Hint","REG_SZ","11111")
RegWrite($reg1,"FileName0","REG_SZ","C:\\WINDOWS\\system32\\icrav03.rat")
RegWrite($reg1,"Key","REG_BINARY","0xF2295D433951241D858296F93F9981FC")

$reg2=$n[$1][0]&"\HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Ratings\.Default"
RegWrite($reg2,"Allow_Unknowns","REG_DWORD","00000001")
RegWrite($reg2,"Enabled","REG_DWORD","00000001")
RegWrite($reg2,"PleaseMom","REG_DWORD","00000000")

$reg3=$n[$1][0]&"\HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Ratings\.Default\http://www.icra.org/pics/vocabularyv03/"
RegWrite($reg3,"c","REG_DWORD","00000000")
RegWrite($reg3,"oh","REG_DWORD","00000000")
RegWrite($reg3,"og","REG_DWORD","00000000")
RegWrite($reg3,"of","REG_DWORD","00000000")
RegWrite($reg3,"oe","REG_DWORD","00000000")
RegWrite($reg3,"od","REG_DWORD","00000000")
RegWrite($reg3,"oc","REG_DWORD","00000000")
RegWrite($reg3,"ob","REG_DWORD","00000000")
RegWrite($reg3,"oa","REG_DWORD","00000000")
RegWrite($reg3,"l","REG_DWORD","00000000")
RegWrite($reg3,"v","REG_DWORD","00000000")
RegWrite($reg3,"s","REG_DWORD","00000000")
RegWrite($reg3,"n","REG_DWORD","00000000")

$reg4=$n[$1][0]&"\HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Ratings\PICSRules"
RegWrite($reg4)

$reg5=$n[$1][0]&"\HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Ratings\PICSRules\.Default"
RegWrite($reg5)

$reg6=$n[$1][0]&"\HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Ratings\PICSRules\.Default\0"
RegWrite($reg6,"dwFlags","REG_DWORD","00000000")
RegWrite($reg6,"errLine","REG_DWORD","00000000")

$reg7=$n[$1][0]&"\HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Ratings\PICSRules\.Default\0\PRPolicy"
RegWrite($reg7,"PRNumPolicy","REG_DWORD","00000001")

$reg8=$n[$1][0]&"\HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Ratings\PICSRules\.Default\0\PRPolicy\0"
RegWrite($reg8,"PRPPolicyAttribute","REG_DWORD","00000001")

$reg9=$n[$1][0]&"\HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Ratings\PICSRules\.Default\0\PRPolicy\0\PRPPolicySub"
RegWrite($reg9,"PRNumURLExpressions","REG_DWORD","00000001")

$reg10=$n[$1][0]&"\HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Ratings\PICSRules\.Default\0\PRPolicy\0\PRPPolicySub\0"
RegWrite($reg10,"PRBUInternetPattern","REG_DWORD","1")
RegWrite($reg10,"PRBUNonWild","REG_DWORD","29")
RegWrite($reg10,"PRBUSpecified","REG_DWORD","31")
RegWrite($reg10,"PRBUScheme","REG_SZ","http")
RegWrite($reg10,"PRBUHost","REG_SZ","ap12mf02")
RegWrite($reg10,"PRBUPort","REG_SZ","80")
RegWrite($reg10,"PRBUPath","REG_SZ","/index.asp")
RegWrite($reg10,"PRBUUrl","REG_SZ","http://ap12mf02/index.asp")
Next

我代码是批量设置http://ap12mf02/index.asp不能访问，而可以访问其他网站，如设置该网站可以访问，修改一以下:
RegWrite($reg8,"PRPPolicyAttribute","REG_DWORD","00000002")
而要设置不能访问其他网站：修改以下：
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Ratings\.Default
下创建Allow_Unknowns为0

mtvtop

回复 14# 502762378
太感谢了，谢谢