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

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 & "TencentUsers" & strQQnum & "QQMisc.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 

 

使用前后对比图