知识屋：更实用的电脑技术知识网站
知识屋 手机游戏 手机软件 电脑软件 最近更新 手机端
冒险村物语 英雄无敌3塔防 驾考家园手游
password怎么用？p 诺诺视频会议怎 网易UU网游加速
所在位置：首页 > QQ专区 > 技术汇总

去除QQ聊天窗口底部广告

发布时间：2014-09-30 16:26:42作者：知识屋

借鉴了网络上的方法，只不过做成工具，方便使用了。
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
 

 

使用前后对比图

/

 

/

 PS：附件提供下载(For XP)

http://up.2cto.com/2011/1028/20111028050704351.zip

本文出自 “Leaves驿站” 博客

（免责声明：文章内容如涉及作品内容、版权和其它问题，请及时与我们联系，我们将在第一时间删除内容，文章内容仅供参考）
收藏

上一篇:屏蔽QQ群邮件骚扰你会几招？

下一篇:QQ for Mac常见问题

相关知识

软件推荐

更多 >

游戏推荐

更多 >

精选栏目

热门推荐

  • 人气文章
  • 最新文章
  • 下载排行榜
  • 热门排行榜

手机游戏

手机软件

电脑软件

猜你喜欢

英语口语 解谜 影音 彩票 个人借贷 网贷借钱 卡牌 棋牌 投注 健康 RPG 角色 生活 小说 学习 旅游 360 剧情 系统 WIFI 射击 拍照 购物 不上征信 腾讯 塔防 投屏 低息 传奇 竞技 手机美化 奇迹 视频 金融 抢红包 恋爱 吃鸡 竞速 抢票 舞蹈 趣味 美食 借钱 街机 手机赚钱 宫斗 战斗 模拟 儿童 医疗

本站所有软件来自互联网，版权归原著所有。如有侵权，敬请来信告知，我们将及时撤销。

知识屋 www.zhishiwu.com 更实用的电脑技术知识网站

苏ICP备14019037号-7