|
通常我们都会发现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 & "TencentUsers" & strQQnum & "QQMisc.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 
（编辑：ASP站长）
【免责声明】本站内容转载自互联网，其相关言论仅代表作者个人观点绝非权威，不代表本站立场。如您发现内容存在版权问题，请提交相关链接至邮箱：bqsm@foxmail.com，我们将及时予以处理。
|
