【www.hzclsc.cn--工具】
通常我们都会发现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 ) [引用回复]
本文来源:http://www.hzclsc.cn/ruanjianzixun/45049.html