[在VB6程序中寻找控件的事件断点]脚本

spc_cll

/*
   在VB6程序中寻找控件的事件断点
   programer :SPC_CLL
   Email    :[email protected]
*/
var NextStart
var FindAddr
var BrkCount

mov NextStart,eip
mov BrkCount,0

NextPoint:
find NextStart,#816c2404#
cmp $RESULT,0
je ExitLoop
mov FindAddr,$RESULT
mov NextStart,FindAddr
add NextStart,8
add FindAddr,4
mov FindAddr,[FindAddr]
cmp FindAddr,0000FFFF
je NextPoint
bp NextStart
inc BrkCount
jmp NextPoint

ExitLoop:

var BreakCount
cmp BrkCount,0
eval "没有找到断点"
je lblShowMsg
eval "共设置0x{BrkCount}个事件断点"

lblShowMsg:
mov BreakCount,$RESULT
log BreakCount

ret

hrbx

先收藏，改天试试效果如何。

mojingtai

好啊，用这个应该方便些。

坦克总动员

很方便.比设API方便多了.