能力值：
( LV12，RANK：730 )
|
-
-
2 楼
 没人有兴趣，还是需要时间？估计不能从资源代码着手，要从初始指令方面改（难找）？只想讨教DIY，没别的意思呀？Let's 讨论，OK?
004AB110 MOV EAX,DWORD PTR DS:[4BA0AC] //VB模块跳往这里这，算是开始初始化Nag窗口吗？我可看见下面？？创建Nag窗体的MSVBVM60.__vbaNew2，对VB不熟，
004AB115 SUB ESP,10
004AB118 TEST EAX,EAX
004AB11A PUSH EBX
004AB11B PUSH EBP
004AB11C PUSH ESI
004AB11D PUSH EDI
004AB11E MOV WORD PTR DS:[4BA024],0
004AB127 JNZ SHORT CSTUDY.004AB139
004AB129 PUSH CSTUDY.004BA0AC
004AB12E PUSH CSTUDY.0040481C
004AB133 CALL DWORD PTR DS:[<&MSVBVM60.__vbaNew2>>; MSVBVM60.__vbaNew2
004AB139 SUB ESP,10
004AB13C MOV ECX,0A
004AB141 MOV EBP,ESP
004AB143 MOV EDI,ECX
004AB145 MOV EAX,80020004
004AB14A SUB ESP,10
004AB14D MOV DWORD PTR SS:[EBP],ECX
004AB150 MOV ECX,DWORD PTR SS:[ESP+34]
004AB154 MOV ESI,DWORD PTR DS:[4BA0AC]
004AB15A MOV EDX,EAX
004AB15C MOV DWORD PTR SS:[EBP+4],ECX
004AB15F MOV ECX,ESP
004AB161 MOV EBX,DWORD PTR DS:[ESI]
004AB163 PUSH ESI
004AB164 MOV DWORD PTR SS:[EBP+8],EAX
004AB167 MOV EAX,DWORD PTR SS:[ESP+40]
004AB16B MOV DWORD PTR SS:[EBP+C],EAX
004AB16E MOV EAX,DWORD PTR SS:[ESP+38]
004AB172 MOV DWORD PTR DS:[ECX],EDI
004AB174 MOV DWORD PTR DS:[ECX+4],EAX
004AB177 MOV DWORD PTR DS:[ECX+8],EDX
004AB17A MOV EDX,DWORD PTR SS:[ESP+40]
004AB17E MOV DWORD PTR DS:[ECX+C],EDX
004AB181 CALL DWORD PTR DS:[EBX+2B0]
004AB187 TEST EAX,EAX
004AB189 FCLEX
004AB18B JGE SHORT CSTUDY.004AB19F
004AB18D PUSH 2B0
004AB192 PUSH CSTUDY.0040A7BC
004AB197 PUSH ESI
004AB198 PUSH EAX
004AB199 CALL DWORD PTR DS:[<&MSVBVM60.__vbaHresu>; MSVBVM60.__vbaHresultCheckObj
004AB19F POP EDI
004AB1A0 POP ESI
004AB1A1 POP EBP
004AB1A2 POP EBX
004AB1A3 ADD ESP,10
004AB1A6 RETN
004B2300 PUSH EBP //此处是开始主窗体form初始吧？
004B2301 MOV EBP,ESP
004B2303 SUB ESP,0C
004B2306 PUSH <JMP.&MSVBVM60.__vbaExceptHandler>
004B230B MOV EAX,DWORD PTR FS:[0]
004B2311 PUSH EAX
004B2312 MOV DWORD PTR FS:[0],ESP
004B2319 SUB ESP,34
004B231C PUSH EBX
004B231D PUSH ESI
004B231E PUSH EDI
004B231F MOV DWORD PTR SS:[EBP-C],ESP
004B2322 MOV DWORD PTR SS:[EBP-8],CSTUDY.00402838
004B2329 MOV EDI,DWORD PTR SS:[EBP+8]
004B232C MOV EAX,EDI
004B232E AND EAX,1
004B2331 MOV DWORD PTR SS:[EBP-4],EAX
004B2334 AND EDI,FFFFFFFE
004B2337 PUSH EDI
004B2338 MOV DWORD PTR SS:[EBP+8],EDI
004B233B MOV ECX,DWORD PTR DS:[EDI]
004B233D CALL DWORD PTR DS:[ECX+4]
004B2340 MOV EAX,DWORD PTR DS:[4BA70C]
004B2345 MOV DWORD PTR SS:[EBP-18],0
004B234C TEST EAX,EAX
004B234E JNZ SHORT CSTUDY.004B2360
004B2350 PUSH CSTUDY.004BA70C
004B2355 PUSH CSTUDY.00408F38
004B235A CALL DWORD PTR DS:[<&MSVBVM60.__vbaNew2>>; MSVBVM60.__vbaNew2
004B2360 MOV ESI,DWORD PTR DS:[4BA70C]
004B2366 LEA EDX,DWORD PTR SS:[EBP-18]
004B2369 PUSH EDI
004B236A PUSH EDX
004B236B MOV EBX,DWORD PTR DS:[ESI]
004B236D CALL DWORD PTR DS:[<&MSVBVM60.__vbaObjSe>; MSVBVM60.__vbaObjSetAddref
004B2373 PUSH EAX
004B2374 PUSH ESI
004B2375 CALL DWORD PTR DS:[EBX+10]
004B2378 TEST EAX,EAX
004B237A FCLEX
004B237C JGE SHORT CSTUDY.004B238D
004B237E PUSH 10
004B2380 PUSH CSTUDY.00408F28
004B2385 PUSH ESI
004B2386 PUSH EAX
004B2387 CALL DWORD PTR DS:[<&MSVBVM60.__vbaHresu>; MSVBVM60.__vbaHresultCheckObj
004B238D LEA ECX,DWORD PTR SS:[EBP-18]
004B2390 CALL DWORD PTR DS:[<&MSVBVM60.__vbaFreeO>; MSVBVM60.__vbaFreeObj
004B2396 MOV EAX,DWORD PTR DS:[4BA010]
004B239B TEST EAX,EAX
004B239D JNZ SHORT CSTUDY.004B23AF
004B239F PUSH CSTUDY.004BA010
004B23A4 PUSH CSTUDY.0040B118
004B23A9 CALL DWORD PTR DS:[<&MSVBVM60.__vbaNew2>>; MSVBVM60.__vbaNew2 //初始主窗口？
|
能力值：
( LV12，RANK：730 )
|
-
-
3 楼
啊呀！顶硬上！
|
能力值：
( LV9，RANK：250 )
|
-
-
4 楼
如果是控件的初始值，可以用VBDED反编译后参照修改其属性。
如果是动态生成的属性，好象用__VBAOBJECTSET函数修改属性。
|
能力值：
( LV12，RANK：730 )
|
-
-
5 楼
Now try and try!Thks your reply.
|
能力值：
( LV4，RANK：50 )
|
-
-
6 楼
如果vb写的程序的的菜单项被隐藏了，该怎么办？
|
