去除QQ聊天窗口底部广告

借鉴了网络上的方法，只不过做成工具，方便使用了。

vbs代码如下：

1. Const ApplicationData = &H1A&  
2. Set objShell = CreateObject("Shell.Application")  
3. Set objFolder = objShell.Namespace(ApplicationData)  
4. Set objFolderItem = objFolder.Self  
5. ApplicationDataPath = objFolderItem.Path  
6.  
7. strQQnum = InputBox("该软件将剔除QQ聊天窗口左下角的广告" & vbCrlf & "1.使用前请确保该号码至少成功登陆一次" & vbCrlf & "2.使用前请关闭QQ","请输入你QQ号码")  
8. If strQQnum = "" Then 
9. wscript.quit  
10. End If 
11.  
12. MiscdbFile = ApplicationDataPath & "\Tencent\Users\" & strQQnum & "\QQ\Misc.db"  
13.  
14. Set objFSO = CreateObject("Scripting.FileSystemObject")  
15. If objFSO.FileExists(MiscdbFile) Then 
16. objFSO.DeleteFile(MiscdbFile)  
17. End If 
18.  
19. If not objFSO.FolderExists(MiscdbFile) Then 
20. Set objFolder = objFSO.CreateFolder(MiscdbFile)  
21. End If 

 

使用前后对比图

 

本文转自yangye1985 51CTO博客，原文链接：http://blog.51cto.com/yangye/698985，如需转载请自行联系原作者