既然有人发了脱壳去广告版 那我这个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完整代码下载:
QQ牧场全能助手LOADER.rar
(11.27 KB, 下载次数: 193)
| 
[复制链接]
发表于 2009-12-9 14:07
|
发表于 2009-12-9 18:21
