标题: [提交Bug] [BUG反馈] 黑名单过滤开关是否存在Bug（动画演示） [打印本页]

---

作者: bbbccc    时间: 2009-10-19 02:35     标题: 黑名单过滤开关是否存在Bug（动画演示）

TW:有重装过
2415
IE 6版本
五笔
xp2
安全软件:无



鼠标操作：

1.黑名单过滤,默认关闭(启动浏览器前);
2.黑名单开启,看看有没有生效(不重启动浏览器);
3.没有生效;
4.按几次回车键-点击应用，过滤广告生效。

过滤广告页
华军软件：http://nj.newhua.com/soft/69228.htm

[attach]83381[/attach]

---

作者: jym2005    时间: 2009-10-19 20:30

提示: 作者被禁止或删除 内容自动屏蔽

---

作者: needed    时间: 2009-10-19 20:55

1. Dim fso
   
2. Set fso = CreateObject("Scripting.FileSystemObject")
   
3. Dim tempfolder
   
4. Const TemporaryFolder = 2
   
5. Set tempfolder = fso.GetSpecialFolder(TemporaryFolder)
   
6. 'Wscript.Echo tempfolder
   
7. 
   
8. Set WshShell=Wscript.CreateObject("Wscript.Shell")
   
9. Set WshSysEnv=WshShell.Environment("Process")
   
10. 'Wscript.Echo WshSysEnv.Item("SYSTEMROOT")
    
11. 
    
12. path=WshShell.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\cache")
    
13. 
    
14. path1 = path & "\Content.IE5"
    
15. inipath = path & "\desktop.ini"
    
16. 
    
17. str_cmd1 = "cmd.exe /c del /f /q /ash """ & inipath & """"
    
18. str_cmd = "cmd.exe /c del /f /q  """ & path1 & """"
    
19. WshShell.run str_cmd1,0
    
20. WshShell.run str_cmd,0
    
21. Wscript.sleep(1)
    
22. WshShell.run str_cmd,0

复制代码

以上代码写得很难看. 不过是我自己一直在用的.

另存为 clean.vbs

  是清空缓存的.

---

作者: bbbccc    时间: 2009-10-21 03:16

按照LS的方法。也空TW上网记录
广告过滤还不生效。。。。
  希望开发组出来说下。

---

欢迎光临 世界之窗论坛 (http://bbs.theworld.cn/)

Powered by Discuz! 7.2