知识屋：更实用的电脑技术知识网站
知识屋 手机游戏 手机软件 电脑软件 最近更新 手机端
冒险村物语 英雄无敌3塔防 驾考家园手游 我的小家破解版 业力汉堡商店
cah职工e家 智能安全管控 易慧 iedukids学习中 闪背
亿彩文本文件批 文件自动分类器（ Win8激活信息备
LOL手游国服和外 LOL手游日服怎么 怎么注册LOL手游 2020双十一活动
所在位置：首页 > QQ专区  > 技术汇总

去除QQ聊天窗口底部广告

发表时间：2014-09-30来源：网络

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

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

上一篇：制作QQ2011绿色版不求人

下一篇：QQ for Mac常见问题

知识阅读

软件推荐

更多 >

游戏推荐

更多 >

精选栏目

热门推荐

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

手机游戏

手机软件

电脑软件

猜你喜欢

城市 智能 家居 福利 美女 壁纸 截图 照片 修图 新闻 八卦 免费 农业 司机 会议 物流 资源 拍摄 下载 美图 手机 宠物 计算机 服务 汽车 二手 程序员 短视频 播放器 影视 动漫 停车 江浙沪 地铁 公交 抖音 舞蹈 征信 母婴 低息 分期 钱包 区块链 360 投注 彩票 借贷 网贷 借钱 抢票 吃货 购物 WIFI 导航 运动 健康

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

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

苏ICP备14019037号-7

联系我们