真正有效去除腾讯迷你网弹出的方法

2008-02-28 20:00:02

前言来自360

腾讯这个家喻户晓的品牌,终于把互联网影响到了一种让人习惯的地步,其魅力也好,魔力也罢,总之,是征服、是侵略了中国千千万万的网民的应用习惯。一个事务的成长,有利当然,也有弊端,当然,腾讯也不例外,他要生存,他要发展,他就要不能完全的顺从所有人的习惯,更不能顺从部分人的习惯。矛盾也就产生了。

腾讯的迷你小首页,在形式上和很多桌面软件很相似,占领桌面,是为了占领更大的市场。弹出小首页,这个至关重要。腾讯的QQ版本,官方版本是不能关闭这个选项的;修改版本可以,这里忌说修改版本,呵!这个迷你首页的网页地址是:http://minisite.qq.com/all/allinone.shtml,也是一普通的网页,只不过强制了大小和居中。在百度知识上,有评论,可以通过防火墙的办法来屏蔽这个网页地址,达到不显示这个网页的目的,但不能阻止弹出。有人提出,能弹出腾讯QQ的迷你小首页,但为什么不显示内容呢?这时候,你就要检查一下你的杀毒监控设置了,是不是有防火墙屏蔽了上面的这个地址?

有人提出这个方法来关闭迷你小首页的弹出:

1、打开QQ安装后的文件夹,单击菜单栏“工具”→文件夹选项,在打开的“文件夹选项”对话框中选择“查看”选项卡,在“高级设置”框中把“隐藏已知文件类型的扩展名”项前边的勾去掉。

2、在QQ安装后的文件夹中找到QQexternal.exe(不是QQexternal.tlg)文件,把该文件删除,因为QQ的新闻首页就是由QQexternal.exe 产生的

QQexternal.exe是什么东西?QQ即时通讯客户端相关程序,用于下载展示广告。腾讯专门启动一个进程来下载广告,广告,利益之源,由不得不重视啊!

有人用操作系统的权限来屏蔽腾讯迷你小首页的弹出:

真正有效去除腾讯迷你网弹出的方法

迷你网页是从服务器端下载flash广告到本地,然后再播放的。因此,我们的原理就是禁止这些flash广告的下载,自然TX的广告也就无法播放了!
在QQ安装目录下有一个AD文件夹,所有的flash都是先下载到这个文件夹下面的,因此我们要做的就是彻底地禁止该文件夹写入数据(说明:直接删除该文件是无效的,TX会在你的安装目录下面自动生成滴)!呵呵,接下来就让我们开始动手吧———
(1)找到你电脑的QQ安装目录下面的AD文件夹,一般人默认安装在C:\Program Files\Tencent下面
(2)打开这个文件夹,进去全选所有文件,按“shift+delete”把它们彻底删除;
(3)右击该文件夹里面的任意空白处,执行“属性”命令。选择“安全选项卡”,在“组或用户名称”中选择用户并单击下面的“删除”按钮,将所选用的用户删除。或者将所有用户的权限都设置成“拒绝”(如果没有找到“安全”选项卡,请按以下方法操作)
打开 控制面板—>管理工具—>本地安全策略,单击“本地安全策略—>安全选项”,在右侧窗口中找到“网络访问,本地账户的共享和安全模式”项,双击将其改为“经典-本地用户以自己的身份验证”
(4)单击“高级”按钮,取消选中“从父项继承那些可以应用到子对象的权限项目,包括那些在此明确定义的项目”,在随后弹出的“安全”对话框中单击“删除 ”按钮
(5)设置完后点“确定”退出即可,这样就大功告成啦,所有用户都无法访问该文件夹啦
说明:(1)本方法以XP系统为例,其他操作系统可能会有所不同~~

这个方法,其实同样适合删除QQexternal.exe的办法,不删除QQexternal.exe,把它的读、运行权限等都取消了,自然也就无法启动了,广告也就没办法下载了。同样,权限这个办法,也适合整治病毒,如果实在删除不了某个病毒文件,删除了又再生;那么,把这个病毒文件的安全权限全部删除,这样,此病毒文件既无法运行,也无法被再次覆盖,也就达到了禁止病毒运行的目的。前提是,执行磁盘分区必须是NTFS格式,如果发现没有“安全”选项卡,你就查证一下,你的执行磁盘所在分区是不是格为FAT32格式了?

这两年,我就喜欢用TM了,不管是久未更新时期的TM2007,还是现在已经更新的,还是更新的TM2008不满意版本,我都在使用;休闲时,用腾讯QQ,上班时,大多数用tm2007,纯粹工作时,用tm2008;呵,QQ的官方版本,普通会员关不掉弹出首页,tm2007没有弹出现象,tm2008有弹出迷你小首页,但好在有关闭的选项,普通会员也可以轻松关闭,事实上,腾讯这样做了,我反而不关闭这个功能了,让他每天弹出,看下里面相关新闻;失望的是,这个对腾讯至关重要的迷你小首页,腾讯似乎更新的不是很及时,很全面,百思不得其解,千辛万苦占领的市场,怎么不重视进一步深化完善哟?

对个人用户,不是服务器,很少有人装机听微软的建议格式化系统为NTFS.

这年头QQ会员很多,但也有不少非QQ会员,并不是我们没钱,而是不愿意花在这个虚拟头衔中。

但是我们也有不看广告的权力,珊瑚虫事件后,飘云自QQ2008开始就没面世了,跑哪里去了。
大家都可能写了些常用工具,常驻内存,那么在你的内存中加一个句柄吧。

首先删除D:\Program Files\Tencent\QQ\ad\中所有文件,看名字就是广告,删除后QQ会再次下载Ad放入里面,累不累啊。

你一定想到了锁定这个ad目录,除了NTFS一族的朋友用360方法,Fat32就用下面的吧。

在你的工具中窗体模块加入

CODE:

Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long '关闭一个内核对象。其中包括文件、文件映射、进程、线程、安全和同步对象等。涉及文件处理时,这个函数通常与vb的close命令相似。应尽可能的使用close,因为它支持vb的差错控制。注意这个函数使用的文件句柄与vb的文件编号是完全不同的
Private Const OPEN_EXISTING = 3                       '文件必须已经存在。由设备提出要求
Private Const FILE_FLAG_BACKUP_SEMANTICS = &H2000000  '在打开或生成文件任何文件时,系统一般执行安全检查来确证试图打开或生成一个文件的进程拥有所要求的访问权限.然儿 , 备份或恢复软件可以越过特定的文件安全检查,并且只允许执行备份或恢复.
Private Const GENERIC_READ = &H80000000               '如果为 GENERIC_READ 表示允许对设备进行读访问,只需设置这个参数即可保护文件夹
Private mlnghDir As Long
From_Load中

CODE:

    Dim strQQPath As String
    Dim strQQAdPath As String
    Dim objWscrīpt As Object              '动态引用Windows scrīpt Host Object Model
    Set ōbjWscrīpt = CreateObject("wscrīpt.shell")

    strQQPath = objWscrīpt.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Tencent\QQ\Install")
    Set ōbjWscrīpt = Nothing

    If strQQPath <> vbNullString Then
        strQQAdPath = strQQPath & "ad"
        mlnghDir = CreateFile(strQQAdPath, GENERIC_READ, ByVal 0&, ByVal 0&, OPEN_EXISTING, FILE_FLAG_BACKUP_SEMANTICS, ByVal 0&)
    End If
这个程序必须于QQ之前运行,即开机运行等。

TAG:

jiwei79发布于2008-12-16 21:43:31
不错不错
带头大哥的个人空间 weiyi75 发布于2008-09-05 15:23:05
Dim lngHwnd As Long
    Dim lngAdHwnd As Long
    Dim i As Long
    Dim strClassName As String
    For i = 200 To 300
        Sleep (1)
        DoEvents
        strClassName = "Afx:" & Trim$(Str$(i)) & "0000:b"
        lngHwnd = FindWindow(strClassName, vbNullString)
        If lngHwnd Then
           Call PostMessage(lngHwnd, WM_CLOSE, 0, 0)
        End If
    Next

腾讯强弹新闻窗口的动态窗口类强行关闭代码
beethoven21发布于2008-04-19 01:10:36
本人一直都没有用官方版本的,因此也没有所谓的广告弹出……
beethoven21发布于2008-04-19 01:09:19

带头大哥的个人空间 weiyi75 发布于2008-04-18 22:17:15
第二代就是后来的随便什么时候运行,一样的是双核对双核了。
huangyi3562发布于2008-04-18 22:09:36
强!
但必须在QQ运行前运行,似乎麻烦了一些?
带头大哥的个人空间 weiyi75 发布于2008-04-17 10:35:41
呵呵,想法不同,随便你了。
荷城居 ewqs 发布于2008-04-16 16:06:55
呵呵,以前用珊瑚的,没有那个广告,但珊瑚倒了,就用QQ官方的啦,不过现在反而习惯了,没有那个广告还有点不甘心啦,因为这上面的新闻都是一些焦点新闻,可以省不少买报纸的钱啊..
呵呵,现在每天开QQ的第一件事就是等广告弹出来,然后慢慢地看新闻....其实也挺不错的..
gujin162发布于2008-04-15 18:50:09
楼主有心了
但是大部分人已经习惯在QQ上看看新闻了
以前我也讨厌这个
但是
现在已经喜欢上这个了~~~
huafeidu发布于2008-04-07 19:48:26
QQ广告挺好的呀,可以看看新闻嘛,两耳不闻天下事,一心只写好程序是不行的哦。
带头大哥的个人空间 weiyi75 发布于2008-04-07 19:23:14
TX终于改进了AD方式,迷你网弹出,现在使用了双核,除了在AD目录下载垃圾文件外还有QQexternal.exe但任二把手,如果用户删除之并不是Winxp系统类似的系统文件保护而恢复,而是调用了QQ的资源对话框作为第三核,在庞大的QQ窗体中再加一个AD窗口有什么不可的。这次要干掉它得加一个时钟了。

CODE:

Private Sub tmrReadCordinates_Timer()                    '屏保,节能,关闭显示器
    '默认时间800毫秒,如果选项窗口的激活屏保和禁止屏保均为无则不读取用户坐标
    If frmOption.optActiveNothing.Value <> True Or frmOption.optForbidNothing.Value <> True Then GetPosition  '读取坐标
    Dim lngHwnd As Long
    lngHwnd = FindWindow(vbNullString, "腾讯网迷你首页")       '这三句
    If lngHwnd Then Call PostMessage(lngHwnd, WM_CLOSE, 0, 0)
End Sub

toVB发布于2008-03-01 10:33:26
期待百度hi
带头大哥的个人空间 weiyi75 发布于2008-03-01 09:52:30
编qq还可以,已经说了qq2008已经不用QQexternal.exe,直接QQ主程序调用广告。
zl90659064的个人空间 zl90659064 发布于2008-03-01 09:06:25
自己编一个假的 QQexternal.exe 把原来的替换掉 不就行了吗?
带头大哥的个人空间 weiyi75 发布于2008-02-29 20:54:11
当然不会,QQexternal.exe就捆绑进入qq主程序了,QQ2008已没这个程序了。

有矛就有盾,一个死循环。
toVB发布于2008-02-29 16:38:01
腾迅是霸道,但这种办法会不会长期有效?
带头大哥的个人空间 weiyi75 发布于2008-02-29 09:30:40
Dim objWscript As Object              '动态引用Windows Script Host Object Model
Set objWscript = CreateObject("wscript.shell")
strQQPath = objWscript.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Tencent\QQ\Install")
Set objWscript = Nothing

引用了C:\WINDOWS\system32\wshom.ocx
在模块中可以看到\wshom.ocx,但过一会就自己释放了,它不当场释放可能有缓冲的意思,可能你马上就会再调用它。

如果超级兔子设置了未使用动态链接库自动释放优化,它就会自己释放。

vb6.exe 进程包含 62 个模块
一会刷新就还剩61个模块。

[ 本帖最后由 weiyi75 于 2008-2-29 09:33 编辑 ]
TiRA发布于2008-02-29 09:07:31
LZ,这篇一定要顶~~~~~~
自动化之光——未来城 VBProFan 发布于2008-02-29 08:02:04
跟腾讯对着干,好极了!支持!
带头大哥的个人空间 weiyi75 发布于2008-02-28 21:04:39
到处都可以看见你回复,呵呵,兴趣真广。
我来说两句

(可选)

Open Toolbar