如何在OD中为Delphi程序添加按钮点击事件

Answer 1

用 OD 捕获按钮事件，可以尝试以下办法：

1、通过编写好的脚本来获取按钮事件：

先将以下脚本保存至 .txt 文件中：

var Addr
mov Addr,401000
loop:
find Addr,#740E8BD38B83????????FF93????????#
cmp $RESULT,0
je Exit
add $RESULT,0A
bp $RESULT
add $RESULT,1
mov Addr,$RESULT
jmp loop
Exit:
ret

用OD载入 Delphi 程序，右键 运行脚本-->打开，选择上面保存的文件，运行，如果弹出了script finished 窗口就表示找到按钮事件断点位置。

 

2、用资源编辑工具+十六进制编辑工具来查找：

首先用ResScope或者其他工具打开目标程序，在RCData中能够找到窗体的资源信息，例如

  object Form1: TForm1
    object Button1: TButton
      Caption = 'Button1'
      OnClick = Button1Click
    end
  end

  æ­¤æ—¶å‡è®¾æˆ‘们要找“Button1”按钮事件，记住OnClick的名字（在这里就是Button1Click）
  ç„¶åŽå†ç”¨WinHex打开程序，查找事件名“Button1Click”，如下图所示： 事件名的前一个字节就是事件名的长度，再前面就是事件地址了：

找到地址后，用 OD载入程序，直接Ctrl+G前往该地址。