借鉴了网络上的方法，只不过做成工具，方便使用了。
vbs代码如下：
- Const ApplicationData = &H1A&
- Set objShell = CreateObject("Shell.Application")
- Set objFolder = objShell.Namespace(ApplicationData)
- Set objFolderItem = objFolder.Self
- ApplicationDataPath = objFolderItem.Path
- strQQnum = InputBox("该软件将剔除QQ聊天窗口左下角的广告" & vbCrlf & "1.使用前请确保该号码至少成功登陆一次" & vbCrlf & "2.使用前请关闭QQ","请输入你QQ号码")
- If strQQnum = "" Then
- wscript.quit
- End If
- MiscdbFile = ApplicationDataPath & "\Tencent\Users\" & strQQnum & "\QQ\Misc.db"
- Set objFSO = CreateObject("Scripting.FileSystemObject")
- If objFSO.FileExists(MiscdbFile) Then
- objFSO.DeleteFile(MiscdbFile)
- End If
- If not objFSO.FolderExists(MiscdbFile) Then
- Set objFolder = objFSO.CreateFolder(MiscdbFile)
- End If
使用前后对比图
本文转自yangye1985 51CTO博客，原文链接：http://blog.51cto.com/yangye/698985，如需转载请自行联系原作者
