去除QQ聊天窗口底部广告

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

vbs代码如下：

ConstapplicationData=&H1A& SetobjShell=CreateObject("Shell.Application") 
SetobjFolder=objShell.Namespace(ApplicationData) SetobjFolderItem=objFolder.Self 
ApplicationDataPath=objFolderItem.Path 
strQQnum=InputBox("该软件将剔除QQ聊天窗口左下角的广告"&vbCrlf&"
1.使用前请确保该号码至少成功登陆一次"&vbCrlf&"2.使用前请关闭QQ","请输入你QQ号码") IfstrQQnum=""Then
wscript.quit EndIf
MiscdbFile=ApplicationDataPath&"TencentUsers"&strQQnum&"QQMisc.db" 
Setobjfso=CreateObject("Scripting.FileSystemObject") 
IfobjFSO.FileExists(MiscdbFile)ThenobjFSO.DeleteFile(MiscdbFile) 
EndIf
IfnotobjFSO.FolderExists(MiscdbFile)ThenSetobjFolder=objFSO.CreateFolder(MiscdbFile) 
EndIf

使用前后对比图