微点交流论坛 - 主动防御 - 【QQ517826104】为什么SetParent还能用来过微点……

» 游客: 注册 | 登录 | 帮助

微点交流论坛 » 主动防御 » 【QQ517826104】为什么SetParent还能用来过微点……

点饭的百度空间
银牌会员

积分 2315
发帖 2236
注册 2007-11-30

#1 【QQ517826104】为什么SetParent还能用来过微点……

16岁
生日：  1992年 10月03日（天秤座）
血型：  A
出生地：  广西  -  贺州  -  钟山县
就读过的学校：  ZSYZ
个人简介：  A super VB love

2008-04-08 17:22【QQ517826104】 (VB6)超简单方法破解微点的自我保护（ SetParent 大法微点已封？？此方法微点最新版本已经针对其做了处理，加强了对自身进程的保护。）
http://bbs.micropoint.com.cn/sho ... 9%B6%C8%BF%D5%BC%E4

2008-07-26 21:41  貌似微点的这个BUG没修好……

貌似微点的BUG又出来了。。不知道为什么。。。。
而且这次居然可以用FindWindow。。。。
跟以前的代码原理完全相同，而且不需要右键托盘，
反正在我的机器上面效果是秒杀的。。

上次听说微点得到反馈后修复了BUG，然后我就没有继续深入研究，
况且当时的适用版本已经到期，也就没再弄。
这次得到了正版的，当然得好好研究下啦~~
偶然运行了以前的程序，发现居然还能用的……
微点仅仅把响应托盘消息的窗口的标题栏后面加了几个空格。。。

【shineastdh】
微点加空格，这个太没意思了吧！
【QQ517826104】
类似“加空格”这种手段卡巴也玩过……
在“AVP.Root”窗口的类名前面加上一堆下划线，
“_______AVP.Root”
【aegisys】
加点别的显示为空格的字符。
【小伟没来过】
同意楼上~~~~
用点随机的比较好额。
不过这也没用，他可以EnumWindows——————
【QQ517826104】
发现一个很奇怪的现象……
如果用VB6执行代码完全可以达到目的，
但是编译成EXE之后就没用了。。

建议微点以后HOOK掉SetParent和FindWindow....
还有EnumWindows貌似也没做处理……

SRC:

Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long

Private Sub Command1_Click()
SetParent FindWindow("#32770", "微点主动防御软件 "), Me.hWnd
Unload Me
Me.Show
MsgBox "Succeed."

End Sub

Binary:
http://chichou.ys168.com/

※ ※ ※ 本文纯属【点饭的百度空间】个人意见，与【微点交流论坛】立场无关※ ※ ※

你的微笑 is 微点的骄傲！
http://hi.baidu.com/new/micropoint

2008-7-28 18:19

terminus
中级用户

积分 221
发帖 218
注册 2007-2-11
来自 Mp.G

#2

SetParent

VB声明
Declare Function SetParent Lib "user32" Alias "SetParent" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
说明
指定一个窗口的新父（在vb里使用：利用这个函数，vb可以多种形式支持子窗口。例如，可将控件从一个容器移至窗体中的另一个。用这个函数在窗体间移动控件是相当冒险的，但却不失为一个有效的办法。如真的这样做，请在关闭任何一个窗体之前，注意用SetParent将控件的父设回原来的那个）
返回值
Long，前一个父窗口的句柄
参数表
参数类型及说明
hWndChild Long，子窗口的句柄
hWndNewParent Long，hWndChild的新父
注解
可用这个函数在运行期将vb控件置入容器控件内部（比如将一个按钮设成图象或窗体控件的子窗口），或者将控件从一个容器控件移至另一个。控件移至另一个父后，它的位置将由新父的坐标系统决定。这样一来，有必要重新规定控件的位置，使其能在目标位置显示出来

FindWindow

VB声明
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
说明
寻找窗口列表中第一个符合指定条件的顶级窗口（在vb里使用：FindWindow最常见的一个用途是获得ThunderRTMain类的隐藏窗口的句柄；该类是所有运行中vb执行程序的一部分。获得句柄后，可用api函数GetWindowText取得这个窗口的名称；该名也是应用程序的标题）
返回值
Long，找到窗口的句柄。如未找到相符窗口，则返回零。会设置GetLastError
参数表
参数类型及说明
lpClassName String，指向包含了窗口类名的空中止（C语言）字串的指针；或设为零，表示接收任何类
lpWindowName String，指向包含了窗口文本（或标签）的空中止（C语言）字串的指针；或设为零，表示接收任何窗口标题
注解
很少要求同时按类与窗口名搜索。为向自己不准备参数传递一个零，最简便的办法是传递vbNullString常数

那个啥啥..

※ ※ ※ 本文纯属【terminus】个人意见，与【微点交流论坛】立场无关※ ※ ※

[color=blue]不能給她幸福就不要妨礙別人給她幸福[/color]

2008-7-28 23:15

论坛跳转:

可打印版本 | 推荐 | 订阅 | 收藏

[ 联系我们 - 东方微点 ] 北京东方微点信息技术有限责任公司福建东方微点信息安全有限责任公司闽ICP备05030815号