黑名单过滤开关是否存在Bug（动画演示）
TW:有重装过2415
IE 6版本
五笔
xp2
安全软件:无
鼠标操作：
1.黑名单过滤,默认关闭(启动浏览器前);
2.黑名单开启,看看有没有生效(不重启动浏览器);
3.没有生效;
4.按几次回车键-点击应用，过滤广告生效。
过滤广告页
[u][color=#1f72d0]华军软件：[url=http://nj.newhua.com/soft/69228.htm]http://nj.newhua.com/soft/69228.htm[/url][/color][/u]
[attach]83381[/attach] **** 作者被禁止或删除 内容自动屏蔽 **** [code]Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
Dim tempfolder
Const TemporaryFolder = 2
Set tempfolder = fso.GetSpecialFolder(TemporaryFolder)
'Wscript.Echo tempfolder
Set WshShell=Wscript.CreateObject("Wscript.Shell")
Set WshSysEnv=WshShell.Environment("Process")
'Wscript.Echo WshSysEnv.Item("SYSTEMROOT")
path=WshShell.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\cache")
path1 = path & "\Content.IE5"
inipath = path & "\desktop.ini"
str_cmd1 = "cmd.exe /c del /f /q /ash """ & inipath & """"
str_cmd = "cmd.exe /c del /f /q """ & path1 & """"
WshShell.run str_cmd1,0
WshShell.run str_cmd,0
Wscript.sleep(1)
WshShell.run str_cmd,0
[/code]以上代码写得很难看. 不过是我自己一直在用的.
另存为 clean.vbs
是清空缓存的. 按照LS的方法。也空TW上网记录
广告过滤还不生效。。。。
希望开发组出来说下。
页:
[1]