真正有效去除腾讯迷你网弹出的方法
2008-02-28 20:00:02
论坛模式 推荐 收藏 等级(5) 编辑 管理 查看(3833) 评论(21)
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
发布于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
-
到处都可以看见你回复,呵呵,兴趣真广。
