网站 › 『脱壳破解区』 › QQ牧场全能助手 1.4去广告loader分析+VB源码

sjg00000 发表于 2009-12-9 14:07

QQ牧场全能助手 1.4去广告loader分析+VB源码

既然有人发了脱壳去广告版 那我这个loader也没意义了
发出来和大家分享下 去广告并不是一定要脱壳
有时候可以剑走偏锋

首先当然是要弄懂QQ牧场全能助手的广告方式
那老版本的看看



往下拉 就可以看到关键的控件WebBrowser1
当软件启动后 WebBrowser1会访问网页http://nn47.com/ad/mcad.htm

而这个网页经过一定的时间就会弹回我们讨厌的广告窗口

好了 弹出广告的基本原理掌握 下面就是来杀死它了
一开始我想到的是修改MSVBVM60.DLL 直接破坏WebBrowser功能好了

不过由于QQ牧场全能助手的验证码获取也用到了WebBrowser控件
所以华丽丽的宣告失败

后来我采用了SendMessage发送关闭命令的方式
测试可用

主要的代码如下

Dim hwd1 As Long
Dim hwd2 As Long
Dim hwd3 As Long
hwd1 = FindWindow(vbNullString, "QQ牧场全能助手 v1.4") '获取程序的句柄
hwd3 = FindWindow(vbNullString, "QQ登陆") '获取登陆串口的句柄
If hwd1 <> 0 And hwd3 <> 0 Then '程序句柄和登陆窗口都不为0,则执行。说明，如果登录窗口没有出现就发送关闭命令
                              '会导致登录窗口不可见
    hwd2 = FindWindowEx(hwd1, 0, "ThunderRT6PictureBoxDC", vbNullString) '取得PictureBox1句柄
    SendMessage hwd2, WM_CLOSE, 0, 0 '发送关闭命令
    SetWindowText hwd3, "QQ登陆 " '修改登录窗口标题
    SetWindowText hwd1, "QQ牧场全能助手 v1.4 去广告 By SsbSb" '修改主程序标题
    End '退出
End If


VB完整代码下载:

hxlong 发表于 2009-12-9 15:23

好东西啊支持

hxlong 发表于 2009-12-9 15:24

继续加油啊·~~！！！1

hxlong 发表于 2009-12-9 15:24

好复杂啊~~~李国洪起

嗳你Lǒv吥変 发表于 2009-12-9 15:45

晕、要慢慢看才懂

onlylovewww 发表于 2009-12-9 16:25

这也可以 劫持

xyjx0044 发表于 2009-12-9 17:14

学习了 很好的思路 向楼主学习

Darkmousy 发表于 2009-12-9 18:15

支持。偷鸡小分队居然用了vmp. 头疼

sjg00000 发表于 2009-12-9 18:21

支持。偷鸡小分队居然用了vmp. 头疼
Darkmousy 发表于 2009-12-9 18:15 http://www.52pojie.cn/images/common/back.gif

如果用sendmessage的方法
也是可以的
这个方法和加什么壳没有关系

2051314 发表于 2009-12-9 19:11

不会吧 E语言的？

查看完整版本: QQ牧场全能助手 1.4去广告loader分析+VB源码