图文教你去除QQ聊天框底部广告方法 -pc6资讯

您的位置：首页 → 资讯 → QQ专区 → 图文教你去除QQ聊天框底部广告方法

图文教你去除QQ聊天框底部广告方法 时间：2011/10/29 10:05:26来源：www.pc6.com作者：lff我要评论(0)

通常我们都会发现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

相关视频

没有数据

文章评论

第 1 楼 广东教育网客人 发表于: 2011/11/1 16:06:43: 希望作者多尊重他人的劳动成果
支持( 0 ) 盖楼(回复)

查看所有0条评论>>