去除QQ聊天窗口底部广告
借鉴了网络上的方法，只不过做成工具，方便使用了。
vbs代码如下：
- Const ApplicationData = &H1A&
- Set objShell = CreateObject("Shell.Application")
- Set objFolder = objShell.Namespace(ApplicationData)
- Set objFolderItem = objFolder.Self
- ApplicationDataPath = objFolderItem.Path
- strQQnum = InputBox("该软件将剔除QQ聊天窗口左下角的广告" & vbCrlf & "
- 1.使用前请确保该号码至少成功登陆一次" & vbCrlf & "2.使用前请关闭QQ","请输入你QQ号码")
- If strQQnum = "" Then
- wscript.quit
- End If
- MiscdbFile = ApplicationDataPath & "TencentUsers" & strQQnum & "QQMisc.db"
- Set objFSO = CreateObject("Scripting.FileSystemObject")
- If objFSO.FileExists(MiscdbFile) Then
- objFSO.DeleteFile(MiscdbFile)
- End If
- If not objFSO.FolderExists(MiscdbFile) Then
- Set objFolder = objFSO.CreateFolder(MiscdbFile)
- End If
使用前后对比图
赞 (0)