去除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
 

使用前后对比图

 PS：附件提供下载(For XP)

http://up.2cto.com/2011/1028/20111028050704351.zip

本文出自 “Leaves驿站” 博客