-
-
[旧帖] [讨论]怎样破解vb6中On error goto 中的代码 0.00雪花
-
发表于: 2010-12-15 15:28
-
纯粹出于学习的目的，源程序如下：
Private Sub Command1_Click()
On Error GoTo errHandler
Dim a As Long
Dim b As Long
Dim c As Long
a = 1 / 0
'纯粹迷惑用的
b = 3
c = a + b
Label1.Caption = c
Exit Sub
errHandler:
'这里可以放真正的算法
a = 6
b = 7
c = a + b
Label1.Caption = c
End Sub
这样的一个小程序生成exe后，在OD中怎样跟进到真正的算法部分里去？
一发生错误就跑进msvbvm60.dll中了，出不来了。
Private Sub Command1_Click()
On Error GoTo errHandler
Dim a As Long
Dim b As Long
Dim c As Long
a = 1 / 0
'纯粹迷惑用的
b = 3
c = a + b
Label1.Caption = c
Exit Sub
errHandler:
'这里可以放真正的算法
a = 6
b = 7
c = a + b
Label1.Caption = c
End Sub
这样的一个小程序生成exe后，在OD中怎样跟进到真正的算法部分里去？
一发生错误就跑进msvbvm60.dll中了，出不来了。
|
|
|---|---|
|
|
|
|
|
|
|
|
|
|
|
[QUOTE=jfaumt;903655]00401BAB . 6A 01 push 1 // jmp 00401C33
00401BAD . FF15 20104000 call ds:[<&MSVBVM60.__vbaOnError>] ; MSVBVM60.__vbaOnErro...[/QUOTE] 感谢关注，这个地方我下断点倒也下过，只是看不出反汇编出的代码与 a = 6 b = 7 c = a + b Label1.Caption = c 的对应关系，怎么没有出现6、7这些值，直接就把0D (6+7)的值给出来了？。caption那里倒是有。  对汇编不熟。 这个 mov edi,0D中的0D是怎么得出来的？没看见过程
|
