图文教你去除QQ聊天框底部广告方法_电脑教程

微软原版系统
一键重装系统
纯净系统
在线技术客服

魔法猪系统重装大师 一键在线制作启动 U 盘 PE 系统用一键重装的魔法拯救失去灵魂的系统

立即下载

图文教你去除QQ聊天框底部广告方法: 时间：2015年04月02日 12:04:21 来源：魔法猪系统重装大师官网人气：6916

通常我们都会发现qq聊天框左下角会不断出现广告，非常碍眼，这款去除QQ聊天框底部广告工具能够还大家一个简洁的qq聊天框。使用方法也很简单，直接打开工具然后在相应地方输入自己的qq号码即可。当然使用本工具前要先退出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