首页
社区
课程
招聘
求高手暴一个简单的程序
发表于: 2012-1-16 09:44 4133

求高手暴一个简单的程序

2012-1-16 09:44
4133
exps.rar首先声明,这是一个新手学习的无聊东西。希望大大暴过后贴一下过程。感激。

这是一个VB写的东西。源码如下:
Private Sub Form_Load()
Dim a
a = 0
If a < 1 Then
MsgBox "<<<<"

Else

MsgBox ">>>"
Command1.Caption = "YES"
End If
End Sub

程序一运行就会弹出信息框<<<

如何绕过这个信息框,让程序弹出>>>>并让按钮标题显示为"yes"

谢谢。

[招生]科锐逆向工程师培训(2024年11月15日实地,远程教学同时开班, 第51期)

上传的附件:
收藏
免费 0
支持
分享
最新回复 (7)
雪    币: 319
活跃值: (1181)
能力值: ( LV7,RANK:100 )
在线值:
发帖
回帖
粉丝
2
00401B0B     /74 51         je Xexps.00401B5E           // 改成jmp
00401B0D   . |8D55 88       lea edx,dword ptr ss:[ebp-0x78]
00401B10   . |8D4D C8       lea ecx,dword ptr ss:[ebp-0x38]
00401B13   . |C745 90 C4164>mov dword ptr ss:[ebp-0x70],exps.004016C>;  UNICODE "<<<<"
00401B1A   . |C745 88 08000>mov dword ptr ss:[ebp-0x78],0x8
00401B21   . |FF15 7C104000 call dword ptr ds:[<&MSVBVM60.__vbaVarDu>;  msvbvm60.__vbaVarDup
00401B27   . |8D4D 98       lea ecx,dword ptr ss:[ebp-0x68]
00401B2A   . |8D55 A8       lea edx,dword ptr ss:[ebp-0x58]
00401B2D   . |51            push ecx
00401B2E   . |8D45 B8       lea eax,dword ptr ss:[ebp-0x48]
00401B31   . |52            push edx
00401B32   . |50            push eax
00401B33   . |8D4D C8       lea ecx,dword ptr ss:[ebp-0x38]
00401B36   . |57            push edi
00401B37   . |51            push ecx
00401B38   . |FF15 24104000 call dword ptr ds:[<&MSVBVM60.#rtcMsgBox>;  msvbvm60.rtcMsgBox
2012-1-16 09:56
0
雪    币: 171
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
3
我不要鱼,我要渔。我是绝对的新手。谢谢!能给详细讲解下吗?
比如,你是怎么找到
00401B0B     /74 51         je Xexps.00401B5E           // 改成jmp

这一行来的。
2012-1-16 10:01
0
雪    币: 517
活跃值: (35)
能力值: ( LV6,RANK:90 )
在线值:
发帖
回帖
粉丝
4
不看,我最怕愚ed。
2012-1-16 10:06
0
雪    币: 319
活跃值: (1181)
能力值: ( LV7,RANK:100 )
在线值:
发帖
回帖
粉丝
5
VB程序弹框调用了VB库中的rtcMsgBox函数,设置断点后会断下来,从函数体返回后,向上看一下,就能找到这个je(if)判断了,改之……
2012-1-16 10:09
0
雪    币: 13762
活跃值: (4102)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
6
学习  
2012-1-16 11:28
0
雪    币: 62
活跃值: (25)
能力值: ( LV3,RANK:20 )
在线值:
发帖
回帖
粉丝
7
xx谢谢  学习了 看见大侠的风采  新年快乐
2012-1-16 15:37
0
雪    币: 171
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
8
如何在这里下断呢trcmsgbox
2012-1-17 01:31
0
游客
登录 | 注册 方可回帖
返回
//