时间:2011/10/29 10:05:26来源:www.pc6.com作者:lff我要评论(0)
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
相关视频
相关阅读 dnf11周年qq会员活动地址 dnf11周年qq会员黑钻礼包领取地址微信QQ广告怎么关闭 QQ微信广告关闭官方网址入口QQ个人轨迹查询地址 QQ个人轨迹查看方法介绍QQ个人轨迹在哪里查看 QQ个人轨迹怎么查看全面战争三国图文攻略 全面战争三国游戏玩法详解除暴战警3图文攻略 除暴战警3剧情流程攻略地铁离去剧情流程攻略 地铁离去图文攻略鬼武者重制版图文攻略 鬼武者重制版全关卡流程攻略
热门文章 tim在线怎么弄 手机qq腾讯TIM是什么 腾讯TIqq面板上的空间,邮箱微信逼死强迫症头像怎
最新文章
qq新表情含义图解2021qq贴表情怎么用 qq表情
qq账号怎么注销 qq怎么注销账号qq比心接力怎么玩 qq比心接力活动介绍qqtim版怎么样 tim版本qq有什么优势黄钻9级怎么升级 黄钻lv9体验链接
人气排行 QQ空间相册密码破解方法 超简单适用任何QQ空qq服务器拒绝了您发送离线文件解决方法qq2014共同好友怎么看 qq怎么查看共同好友是腾讯TIM是什么 腾讯TIM跟腾讯QQ有什么区别qq宠物怎么删除?禁止QQ宠物自动登录设置方qq2012透明皮肤教程 qq2012怎么换皮肤QQ安全中心怎么解除安全模式 QQ安全模式的解qq语音时对方听不到我的声音完美解决方案
支持( 0 ) 盖楼(回复)
查看所有0条评论>>