图文教你去除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

（编辑：晋中站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!