去除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. strQQnum = InputBox("该软件将剔除QQ聊天窗口左下角的广告" & vbCrlf & "
7. 1.使用前请确保该号码至少成功登陆一次" & vbCrlf & "2.使用前请关闭QQ","请输入你QQ号码")
8. If strQQnum = "" Then
9. wscript.quit
10. End If
11. MiscdbFile = ApplicationDataPath & "TencentUsers" & strQQnum & "QQMisc.db"
12. Set objFSO = CreateObject("Scripting.FileSystemObject")
13. If objFSO.FileExists(MiscdbFile) Then
14. objFSO.DeleteFile(MiscdbFile)
15. End If
16. If not objFSO.FolderExists(MiscdbFile) Then
17. Set objFolder = objFSO.CreateFolder(MiscdbFile)
18. End If

使用前后对比图