第一个VB的CM
这几天坛子里都没有新的CM出来/:011 ,中午没事用现学现卖的VB写了一个给大家玩玩,写得很烂,难度very very easy:loveliness: ,欢迎大家尽情来秒吧!/:001附件更新了一下,/:011 下过的请重新下载!
[ 本帖最后由 x80x88 于 2008-11-3 15:29 编辑 ] 看见VB绕道走/:018 /:018 /:018
楼下继续 支持一下！/:good /:good /:good
[ 本帖最后由 hanyu 于 2008-11-3 21:49 编辑 ] 又见明码/:017 毁尸灭迹
[ 本帖最后由 冰糖 于 2008-11-3 22:05 编辑 ] 楼上的好像看少了什么吧！好像不你说的那么容易啊！/:010 /:010
[ 本帖最后由 as3852711 于 2008-11-3 22:05 编辑 ] text:00402510 push ebp
.text:00402511 mov ebp, esp
.text:00402513 sub esp, 18h
.text:00402516 push offset __vbaExceptHandler
.text:0040251B mov eax, large fs:0
.text:00402521 push eax
.text:00402522 mov large fs:0, esp
.text:00402529 mov eax, 14Ch
.text:0040252E call __vbaChkstk
.text:00402533 push ebx
.text:00402534 push esi
.text:00402535 push edi
.text:00402536 mov , esp
.text:00402539 mov dword ptr , offset dword_401130
.text:00402540 mov eax,
.text:00402543 and eax, 1
.text:00402546 mov , eax
.text:00402549 mov ecx,
.text:0040254C and ecx, 0FFFFFFFEh
.text:0040254F mov , ecx
.text:00402552 mov dword ptr , 0
.text:00402559 mov edx,
.text:0040255C mov eax,
.text:0040255E mov ecx,
.text:00402561 push ecx
.text:00402562 call dword ptr
.text:00402565 mov dword ptr , 1
.text:0040256C mov dword ptr , 2
.text:00402573 push 1
.text:00402575 call ds:__vbaOnError
.text:0040257B mov dword ptr , 3
.text:00402582 mov edx,
.text:00402585 mov eax,
.text:00402587 mov ecx,
.text:0040258A push ecx
.text:0040258B call dword ptr
.text:00402591 push eax
.text:00402592 lea edx,
.text:00402595 push edx
.text:00402596 call ds:__vbaObjSet
.text:0040259C mov , eax
.text:004025A2 lea eax,
.text:004025A5 push eax
.text:004025A6 mov ecx,
.text:004025AC mov edx,
.text:004025AE mov eax,
.text:004025B4 push eax
.text:004025B5 call dword ptr
.text:004025BB fnclex
.text:004025BD mov , eax
.text:004025C3 cmp dword ptr , 0
.text:004025CA jge short loc_4025F2
.text:004025CC push 0A0h
.text:004025D1 push offset dword_401BC8
.text:004025D6 mov ecx,
.text:004025DC push ecx
.text:004025DD mov edx,
.text:004025E3 push edx
.text:004025E4 call ds:__vbaHresultCheckObj
.text:004025EA mov , eax
.text:004025F0 jmp short loc_4025FC
.text:004025F2 ; ---------------------------------------------------------------------------
.text:004025F2
.text:004025F2 loc_4025F2: ; CODE XREF: .text:004025CAj
.text:004025F2 mov dword ptr , 0
.text:004025FC
.text:004025FC loc_4025FC: ; CODE XREF: .text:004025F0j
.text:004025FC mov eax,
.text:004025FF mov , eax
.text:00402605 mov dword ptr , 0
.text:0040260C mov ecx,
.text:00402612 mov , ecx
.text:00402615 mov dword ptr , 8
.text:0040261C push 1
.text:0040261E lea edx,
.text:00402621 push edx
.text:00402622 lea eax,
.text:00402625 push eax
.text:00402626 call ds:rtcRightCharVar
.text:0040262C lea ecx,
.text:0040262F push ecx
.text:00402630 lea edx,
.text:00402633 push edx
.text:00402634 call ds:__vbaStrVarVal
.text:0040263A push eax
.text:0040263B call ds:rtcAnsiValueBstr
.text:00402641 mov , ax
.text:00402645 lea ecx,
.text:00402648 call ds:__vbaFreeStr
.text:0040264E lea ecx,
.text:00402651 call ds:__vbaFreeObj
.text:00402657 lea eax,
.text:0040265A push eax
.text:0040265B lea ecx,
.text:0040265E push ecx
.text:0040265F push 2
.text:00402661 call ds:__vbaFreeVarList
.text:00402667 add esp, 0Ch
.text:0040266A mov dword ptr , 4
.text:00402671 movsx edx, word ptr
.text:00402675 mov , edx
.text:0040267B fild dword ptr
.text:00402681 fstp qword ptr
.text:00402687 fld ds:dbl_4011B8
.text:0040268D cmp dword_404000, 0
.text:00402694 jnz short loc_40269E
.text:00402696 fdiv qword ptr
.text:0040269C jmp short loc_4026AF
.text:0040269E ; ---------------------------------------------------------------------------
.text:0040269E
.text:0040269E loc_40269E: ; CODE XREF: .text:00402694j
.text:0040269E push dword ptr
.text:004026A4 push dword ptr
.text:004026AA call _adj_fdiv_m64
.text:004026AF
.text:004026AF loc_4026AF: ; CODE XREF: .text:0040269Cj
.text:004026AF fnstswax
.text:004026B1 test al, 0Dh
.text:004026B3 jnz loc_402CCC
.text:004026B9 call ds:__vbaFpI4
.text:004026BF xor eax, 0BC61BDh
.text:004026C4 mov , eax
.text:004026CA mov dword ptr , 3
.text:004026D4 lea edx,
.text:004026DA lea ecx,
.text:004026DD call ds:__vbaVarMove
.text:004026E3 mov dword ptr , 5
.text:004026EA mov eax,
.text:004026ED mov ecx,
.text:004026EF mov edx,
.text:004026F2 push edx
.text:004026F3 call dword ptr
.text:004026F9 push eax
.text:004026FA lea eax,
.text:004026FD push eax
.text:004026FE call ds:__vbaObjSet
.text:00402704 mov , eax
.text:0040270A lea ecx,
.text:0040270D push ecx
.text:0040270E mov edx,
.text:00402714 mov eax,
.text:00402716 mov ecx,
.text:0040271C push ecx
.text:0040271D call dword ptr
.text:00402723 fnclex
.text:00402725 mov , eax
.text:0040272B cmp dword ptr , 0
.text:00402732 jge short loc_40275A
.text:00402734 push 0A0h
.text:00402739 push offset dword_401BC8
.text:0040273E mov edx,
.text:00402744 push edx
.text:00402745 mov eax,
.text:0040274B push eax
.text:0040274C call ds:__vbaHresultCheckObj
.text:00402752 mov , eax
.text:00402758 jmp short loc_402764
.text:0040275A ; ---------------------------------------------------------------------------
.text:0040275A
.text:0040275A loc_40275A: ; CODE XREF: .text:00402732j
.text:0040275A mov dword ptr , 0
.text:00402764
.text:00402764 loc_402764: ; CODE XREF: .text:00402758j
.text:00402764 mov ecx,
.text:00402767 mov , ecx
.text:0040276D mov dword ptr , 0
.text:00402774 mov edx,
.text:0040277A mov , edx
.text:0040277D mov dword ptr , 8008h
.text:00402784 mov eax,
.text:00402787 xor ecx, ecx
.text:00402789 cmp word ptr , 0
.text:0040278E setz cl
.text:00402791 neg ecx
.text:00402793 mov , cx
.text:0040279A mov dword ptr , 0Bh
.text:004027A4 lea edx,
.text:004027A7 push edx
.text:004027A8 lea eax,
.text:004027AB push eax
.text:004027AC lea ecx,
.text:004027AF push ecx
.text:004027B0 call ds:__vbaVarCmpEq
.text:004027B6 push eax
.text:004027B7 lea edx,
.text:004027BD push edx
.text:004027BE lea eax,
.text:004027C4 push eax
.text:004027C5 call ds:__vbaVarXor
.text:004027CB push eax
.text:004027CC lea ecx,
.text:004027D2 push ecx
.text:004027D3 call ds:__vbaVarNot
.text:004027D9 push eax
.text:004027DA call ds:__vbaBoolVarNull
.text:004027E0 mov , ax
.text:004027E7 lea ecx,
.text:004027EA call ds:__vbaFreeObj
.text:004027F0 lea edx,
.text:004027F6 push edx
.text:004027F7 lea eax,
.text:004027FA push eax
.text:004027FB push 2
.text:004027FD call ds:__vbaFreeVarList
.text:00402803 add esp, 0Ch
.text:00402806 movsx ecx, word ptr
.text:0040280D test ecx, ecx
.text:0040280F jz loc_4028B6
.text:00402815 mov dword ptr , 6
.text:0040281C mov dword ptr , 80020004h
.text:00402826 mov dword ptr , 0Ah
.text:00402830 mov dword ptr , 80020004h
.text:0040283A mov dword ptr , 0Ah
.text:00402844 mov dword ptr , 80020004h
.text:0040284B mov dword ptr , 0Ah
.text:00402852 mov dword ptr , offset dword_401BDC
.text:0040285C mov dword ptr , 8
.text:00402866 lea edx,
.text:0040286C lea ecx,
.text:0040286F call ds:__vbaVarDup
.text:00402875 lea edx,
.text:0040287B push edx
.text:0040287C lea eax,
.text:00402882 push eax
.text:00402883 lea ecx,
.text:00402886 push ecx
.text:00402887 push 40h
.text:00402889 lea edx,
.text:0040288C push edx
.text:0040288D call ds:rtcMsgBox
.text:00402893 lea eax,
.text:00402899 push eax
.text:0040289A lea ecx,
.text:004028A0 push ecx
.text:004028A1 lea edx,
.text:004028A4 push edx
.text:004028A5 lea eax,
.text:004028A8 push eax
.text:004028A9 push 4
.text:004028AB call ds:__vbaFreeVarList
.text:004028B1 add esp, 14h
.text:004028B4 jmp short loc_40290E
.text:004028B6 ; ---------------------------------------------------------------------------
.text:004028B6
.text:004028B6 loc_4028B6: ; CODE XREF: .text:0040280Fj
.text:004028B6 mov dword ptr , 8
.text:004028BD fld ds:dbl_4011B0
.text:004028C3 cmp dword_404000, 0
.text:004028CA jnz short loc_4028D4
.text:004028CC fdiv ds:dbl_4011A8
.text:004028D2 jmp short loc_4028E5
.text:004028D4 ; ---------------------------------------------------------------------------
.text:004028D4
.text:004028D4 loc_4028D4: ; CODE XREF: .text:004028CAj
.text:004028D4 push dword ptr ds:dbl_4011A8+4
.text:004028DA push dword ptr ds:dbl_4011A8
.text:004028E0 call _adj_fdiv_m64
.text:004028E5
.text:004028E5 loc_4028E5: ; CODE XREF: .text:004028D2j
.text:004028E5 fstp qword ptr
.text:004028EB fnstswax
.text:004028ED test al, 0Dh
.text:004028EF jnz loc_402CCC
.text:004028F5 mov dword ptr , 5
.text:004028FF lea edx,
.text:00402905 lea ecx,
.text:00402908 call ds:__vbaVarMove
.text:0040290E
.text:0040290E loc_40290E: ; CODE XREF: .text:004028B4j
.text:0040290E jmp loc_402C26
.text:00402913 ; ---------------------------------------------------------------------------
.text:00402913 mov dword ptr , 0Ch
.text:0040291A mov ecx,
.text:0040291D mov edx,
.text:0040291F mov eax,
.text:00402922 push eax
.text:00402923 call dword ptr
.text:00402929 push eax
.text:0040292A lea ecx,
.text:0040292D push ecx
.text:0040292E call ds:__vbaObjSet
.text:00402934 mov , eax
.text:0040293A lea edx,
.text:0040293D push edx
.text:0040293E mov eax,
.text:00402944 mov ecx,
.text:00402946 mov edx,
.text:0040294C push edx
.text:0040294D call dword ptr
.text:00402953 fnclex
.text:00402955 mov , eax
.text:0040295B cmp dword ptr , 0
.text:00402962 jge short loc_40298A
.text:00402964 push 0A0h
.text:00402969 push offset dword_401BC8
.text:0040296E mov eax,
.text:00402974 push eax
.text:00402975 mov ecx,
.text:0040297B push ecx
.text:0040297C call ds:__vbaHresultCheckObj
.text:00402982 mov , eax
.text:00402988 jmp short loc_402994
.text:0040298A ; ---------------------------------------------------------------------------
.text:0040298A
.text:0040298A loc_40298A: ; CODE XREF: .text:00402962j
.text:0040298A mov dword ptr , 0
.text:00402994
.text:00402994 loc_402994: ; CODE XREF: .text:00402988j
.text:00402994 mov edx,
.text:00402997 mov ax,
.text:0040299B mov , ax
.text:004029A2 mov dword ptr , 2
.text:004029AC mov ecx,
.text:004029AF mov , ecx
.text:004029B5 mov dword ptr , 0
.text:004029BC mov edx,
.text:004029C2 mov , edx
.text:004029C5 mov dword ptr , 8
.text:004029CC push 1
.text:004029CE lea eax,
.text:004029D1 push eax
.text:004029D2 lea ecx,
.text:004029D5 push ecx
.text:004029D6 call ds:rtcRightCharVar
.text:004029DC mov dword ptr , 401BECh
.text:004029E6 mov dword ptr , 8
.text:004029F0 lea edx,
.text:004029F6 push edx
.text:004029F7 lea eax,
.text:004029FA push eax
.text:004029FB lea ecx,
.text:00402A01 push ecx
.text:00402A02 call ds:__vbaVarCat
.text:00402A08 push eax
.text:00402A09 lea edx,
.text:00402A0F push edx
.text:00402A10 lea eax,
.text:00402A16 push eax
.text:00402A17 call ds:__vbaVarCat
.text:00402A1D mov edx, eax
.text:00402A1F lea ecx,
.text:00402A22 call ds:__vbaVarMove
.text:00402A28 lea ecx,
.text:00402A2B call ds:__vbaFreeObj
.text:00402A31 lea ecx,
.text:00402A37 push ecx
.text:00402A38 lea edx,
.text:00402A3B push edx
.text:00402A3C lea eax,
.text:00402A3F push eax
.text:00402A40 push 3
.text:00402A42 call ds:__vbaFreeVarList
.text:00402A48 add esp, 10h
.text:00402A4B mov dword ptr , 0Dh
.text:00402A52 mov ecx,
.text:00402A55 mov edx,
.text:00402A57 mov eax,
.text:00402A5A push eax
.text:00402A5B call dword ptr
.text:00402A61 push eax
.text:00402A62 lea ecx,
.text:00402A65 push ecx
.text:00402A66 call ds:__vbaObjSet
.text:00402A6C mov , eax
.text:00402A72 lea edx,
.text:00402A75 push edx
.text:00402A76 mov eax,
.text:00402A7C mov ecx,
.text:00402A7E mov edx,
.text:00402A84 push edx
.text:00402A85 call dword ptr
.text:00402A8B fnclex
.text:00402A8D mov , eax
.text:00402A93 cmp dword ptr , 0
.text:00402A9A jge short loc_402AC2
.text:00402A9C push 0A0h
.text:00402AA1 push offset dword_401BC8
.text:00402AA6 mov eax,
.text:00402AAC push eax
.text:00402AAD mov ecx,
.text:00402AB3 push ecx
.text:00402AB4 call ds:__vbaHresultCheckObj
.text:00402ABA mov , eax
.text:00402AC0 jmp short loc_402ACC
.text:00402AC2 ; ---------------------------------------------------------------------------
.text:00402AC2
.text:00402AC2 loc_402AC2: ; CODE XREF: .text:00402A9Aj
.text:00402AC2 mov dword ptr , 0
.text:00402ACC
.text:00402ACC loc_402ACC: ; CODE XREF: .text:00402AC0j
.text:00402ACC mov edx,
.text:00402ACF mov , edx
.text:00402AD5 mov dword ptr , 0
.text:00402ADC mov eax,
.text:00402AE2 mov , eax
.text:00402AE5 mov dword ptr , 8008h
.text:00402AEC lea ecx,
.text:00402AEF push ecx
.text:00402AF0 lea edx,
.text:00402AF3 push edx
.text:00402AF4 call ds:__vbaVarTstEq
.text:00402AFA mov , ax
.text:00402B01 lea ecx,
.text:00402B04 call ds:__vbaFreeObj
.text:00402B0A lea ecx,
.text:00402B0D call ds:__vbaFreeVar
.text:00402B13 movsx eax, word ptr
.text:00402B1A test eax, eax
.text:00402B1C jz loc_402C17
.text:00402B22 mov dword ptr , 0Eh
.text:00402B29 push 0FFFFB9A7h
.text:00402B2E lea ecx,
.text:00402B31 push ecx
.text:00402B32 call ds:rtcVarBstrFromAnsi
.text:00402B38 push 0FFFFCFB2h
.text:00402B3D lea edx,
.text:00402B40 push edx
.text:00402B41 call ds:rtcVarBstrFromAnsi
.text:00402B47 push 21h
.text:00402B49 lea eax,
.text:00402B4F push eax
.text:00402B50 call ds:rtcVarBstrFromAnsi
.text:00402B56 mov dword ptr , 80020004h
.text:00402B60 mov dword ptr , 0Ah
.text:00402B6A mov dword ptr , 80020004h
.text:00402B74 mov dword ptr , 0Ah
.text:00402B7E mov dword ptr , 80020004h
.text:00402B88 mov dword ptr , 0Ah
.text:00402B92 lea ecx,
.text:00402B98 push ecx
.text:00402B99 lea edx,
.text:00402B9F push edx
.text:00402BA0 lea eax,
.text:00402BA6 push eax
.text:00402BA7 push 40h
.text:00402BA9 lea ecx,
.text:00402BAC push ecx
.text:00402BAD lea edx,
.text:00402BB0 push edx
.text:00402BB1 lea eax,
.text:00402BB7 push eax
.text:00402BB8 call ds:__vbaVarCat
.text:00402BBE push eax
.text:00402BBF lea ecx,
.text:00402BC5 push ecx
.text:00402BC6 lea edx,
.text:00402BCC push edx
.text:00402BCD call ds:__vbaVarCat
.text:00402BD3 push eax
.text:00402BD4 call ds:rtcMsgBox
.text:00402BDA lea eax,
.text:00402BE0 push eax
.text:00402BE1 lea ecx,
.text:00402BE7 push ecx
.text:00402BE8 lea edx,
.text:00402BEE push edx
.text:00402BEF lea eax,
.text:00402BF5 push eax
.text:00402BF6 lea ecx,
.text:00402BFC push ecx
.text:00402BFD lea edx,
.text:00402C03 push edx
.text:00402C04 lea eax,
.text:00402C07 push eax
.text:00402C08 lea ecx,
.text:00402C0B push ecx
.text:00402C0C push 8
.text:00402C0E call ds:__vbaFreeVarList
.text:00402C14 add esp, 24h
.text:00402C17
.text:00402C17 loc_402C17: ; CODE XREF: .text:00402B1Cj
.text:00402C17 mov dword ptr , 10h
.text:00402C1E push 0FFFFFFFFh
.text:00402C20 call ds:__vbaResume
.text:00402C26
.text:00402C26 loc_402C26: ; CODE XREF: .text:loc_40290Ej
.text:00402C26 call ds:__vbaExitProc
.text:00402C2C wait
.text:00402C2D push offset loc_402CAA
.text:00402C32 jmp short loc_402C8E
.text:00402C34 ; ---------------------------------------------------------------------------
.text:00402C34 lea edx,
.text:00402C37 push edx
.text:00402C38 lea eax,
.text:00402C3B push eax
.text:00402C3C push 2
.text:00402C3E call ds:__vbaFreeStrList
.text:00402C44 add esp, 0Ch
.text:00402C47 lea ecx,
.text:00402C4A call ds:__vbaFreeObj
.text:00402C50 lea ecx,
.text:00402C56 push ecx
.text:00402C57 lea edx,
.text:00402C5D push edx
.text:00402C5E lea eax,
.text:00402C64 push eax
.text:00402C65 lea ecx,
.text:00402C6B push ecx
.text:00402C6C lea edx,
.text:00402C72 push edx
.text:00402C73 lea eax,
.text:00402C79 push eax
.text:00402C7A lea ecx,
.text:00402C7D push ecx
.text:00402C7E lea edx,
.text:00402C81 push edx
.text:00402C82 push 8
.text:00402C84 call ds:__vbaFreeVarList
.text:00402C8A add esp, 24h
.text:00402C8D retn
.text:00402C8E ; ---------------------------------------------------------------------------
.text:00402C8E
.text:00402C8E loc_402C8E: ; CODE XREF: .text:00402C32j
.text:00402C8E lea ecx,
.text:00402C91 call ds:__vbaFreeVar
.text:00402C97 lea ecx,
.text:00402C9A call ds:__vbaFreeVar
.text:00402CA0 lea ecx,
.text:00402CA3 call ds:__vbaFreeVar
.text:00402CA9 retn
.text:00402CAA ; ---------------------------------------------------------------------------
.text:00402CAA
.text:00402CAA loc_402CAA: ; DATA XREF: .text:00402C2Do
.text:00402CAA mov eax,
.text:00402CAD mov ecx,
.text:00402CAF mov edx,
.text:00402CB2 push edx
.text:00402CB3 call dword ptr
.text:00402CB6 mov eax,
.text:00402CB9 mov ecx,
.text:00402CBC mov large fs:0, ecx
.text:00402CC3 pop edi
.text:00402CC4 pop esi
.text:00402CC5 pop ebx
.text:00402CC6 mov esp, ebp
.text:00402CC8 pop ebp
.text:00402CC9 retn 4
.text:00402CCC ; ---------------------------------------------------------------------------
.text:00402CCC
.text:00402CCC loc_402CCC: ; CODE XREF: .text:004026B3j
.text:00402CCC ; .text:004028EFj
.text:00402CCC jmp loc_40121C
.text:00402CCC ; ---------------------------------------------------------------------------
.text:00402CD1 align 10h
.text:00402CE0
.text:00402CE0 loc_402CE0: ; CODE XREF: .text:004023A1j
.text:00402CE0 push ebp
.text:00402CE1 mov ebp, esp
.text:00402CE3 sub esp, 0Ch
.text:00402CE6 push offset __vbaExceptHandler
.text:00402CEB mov eax, large fs:0
.text:00402CF1 push eax
.text:00402CF2 mov large fs:0, esp
.text:00402CF9 sub esp, 18h
.text:00402CFC push ebx
.text:00402CFD push esi
.text:00402CFE push edi
.text:00402CFF mov , esp
.text:00402D02 mov dword ptr , offset dword_4011C0
.text:00402D09 mov edi,
.text:00402D0C mov eax, edi
.text:00402D0E and eax, 1
.text:00402D11 mov , eax
.text:00402D14 and edi, 0FFFFFFFEh
.text:00402D17 push edi
.text:00402D18 mov , edi
.text:00402D1B mov ecx,
.text:00402D1D call dword ptr
.text:00402D20 mov eax, dword_4042E0
.text:00402D25 xor ebx, ebx
.text:00402D27 cmp eax, ebx
.text:00402D29 mov , ebx
.text:00402D2C jnz short loc_402D3E
.text:00402D2E push offset dword_4042E0
.text:00402D33 push offset dword_401C18
.text:00402D38 call ds:__vbaNew2
.text:00402D3E
.text:00402D3E loc_402D3E: ; CODE XREF: .text:00402D2Cj
.text:00402D3E mov esi, dword_4042E0
.text:00402D44 lea eax,
.text:00402D47 push edi
.text:00402D48 push eax
.text:00402D49 mov edx,
.text:00402D4B mov , edx
.text:00402D4E call ds:__vbaObjSetAddref
.text:00402D54 mov ecx,
.text:00402D57 push eax
.text:00402D58 push esi
.text:00402D59 call dword ptr
.text:00402D5C cmp eax, ebx
.text:00402D5E fnclex
.text:00402D60 jge short loc_402D71
.text:00402D62 push 10h
.text:00402D64 push offset dword_401C08
.text:00402D69 push esi
.text:00402D6A push eax
.text:00402D6B call ds:__vbaHresultCheckObj
.text:00402D71
.text:00402D71 loc_402D71: ; CODE XREF: .text:00402D60j
.text:00402D71 lea ecx,
.text:00402D74 call ds:__vbaFreeObj
.text:00402D7A mov , ebx
.text:00402D7D push offset loc_402D8F
.text:00402D82 jmp short locret_402D8E
.text:00402D84 ; ---------------------------------------------------------------------------
.text:00402D84
.text:00402D84 loc_402D84: ; DATA XREF: .text:004011CCo
.text:00402D84 lea ecx,
.text:00402D87 call ds:__vbaFreeObj
.text:00402D8D retn
.text:00402D8E ; ---------------------------------------------------------------------------
.text:00402D8E
.text:00402D8E locret_402D8E: ; CODE XREF: .text:00402D82j
.text:00402D8E retn
.text:00402D8F ; ---------------------------------------------------------------------------
.text:00402D8F
.text:00402D8F loc_402D8F: ; DATA XREF: .text:00402D7Do
.text:00402D8F mov eax,
.text:00402D92 push eax
.text:00402D93 mov edx,
.text:00402D95 call dword ptr
.text:00402D98 mov eax,
.text:00402D9B mov ecx,
.text:00402D9E pop edi
.text:00402D9F pop esi
.text:00402DA0 mov large fs:0, ecx
.text:00402DA7 pop ebx
.text:00402DA8 mov esp, ebp
.text:00402DAA pop ebp
.text:00402DAB retn 4
.text:00402DAB ; ---------------------------------------------------------------------------
.text:00402DAE align 10h
.text:00402DB0
.text:00402DB0 loc_402DB0: ; CODE XREF: .text:004023AEj
.text:00402DB0 push ebp
.text:00402DB1 mov ebp, esp
.text:00402DB3 sub esp, 0Ch
.text:00402DB6 push offset __vbaExceptHandler
.text:00402DBB mov eax, large fs:0
.text:00402DC1 push eax
.text:00402DC2 mov large fs:0, esp
.text:00402DC9 sub esp, 8
.text:00402DCC push ebx
.text:00402DCD push esi
.text:00402DCE push edi
.text:00402DCF mov , esp
.text:00402DD2 mov dword ptr , offset dword_4011D0
.text:00402DD9 mov eax,
.text:00402DDC mov ecx, eax
.text:00402DDE and ecx, 1
.text:00402DE1 mov , ecx
.text:00402DE4 and al, 0FEh
.text:00402DE6 push eax
.text:00402DE7 mov , eax
.text:00402DEA mov edx,
.text:00402DEC call dword ptr
.text:00402DEF mov eax,
.text:00402DF2 cmp word ptr , 1Bh
.text:00402DF6 jnz short loc_402DFE
.text:00402DF8 call ds:__vbaEnd
.text:00402DFE
.text:00402DFE loc_402DFE: ; CODE XREF: .text:00402DF6j
.text:00402DFE mov dword ptr , 0
.text:00402E05 mov eax,
.text:00402E08 push eax
.text:00402E09 mov ecx,
.text:00402E0B call dword ptr
.text:00402E0E mov eax,
.text:00402E11 mov ecx,
.text:00402E14 pop edi
.text:00402E15 pop esi
.text:00402E16 mov large fs:0, ecx
.text:00402E1D pop ebx
.text:00402E1E mov esp, ebp
.text:00402E20 pop ebp
.text:00402E21 retn 0Ch
.text:00402E21 ; ---------------------------------------------------------------------------
.text:00402E24 align 10h
.text:00402E30
.text:00402E30 loc_402E30: ; CODE XREF: .text:004023BBj
.text:00402E30 push ebp
.text:00402E31 mov ebp, esp
.text:00402E33 sub esp, 0Ch
.text:00402E36 push offset __vbaExceptHandler
.text:00402E3B mov eax, large fs:0
.text:00402E41 push eax
.text:00402E42 mov large fs:0, esp
.text:00402E49 sub esp, 14h
.text:00402E4C push ebx
.text:00402E4D push esi
.text:00402E4E push edi
.text:00402E4F mov , esp
.text:00402E52 mov dword ptr , offset dword_4011D8
.text:00402E59 mov esi,
.text:00402E5C mov eax, esi
.text:00402E5E and eax, 1
.text:00402E61 mov , eax
.text:00402E64 and esi, 0FFFFFFFEh
.text:00402E67 push esi
.text:00402E68 mov , esi
.text:00402E6B mov ecx,
.text:00402E6D call dword ptr
.text:00402E70 mov word ptr , 3Dh
.text:00402E76 mov eax, dword_404010
.text:00402E7B test eax, eax
.text:00402E7D jnz short loc_402E8F
.text:00402E7F push offset dword_404010
.text:00402E84 push offset dword_401E48
.text:00402E89 call ds:__vbaNew2
.text:00402E8F
.text:00402E8F loc_402E8F: ; CODE XREF: .text:00402E7Dj
.text:00402E8F mov esi, dword_404010
.text:00402E95 push 0FFFFFFFFh
.text:00402E97 push esi
.text:00402E98 mov edx,
.text:00402E9A call dword ptr
.text:00402EA0 test eax, eax
.text:00402EA2 fnclex
.text:00402EA4 jge short loc_402EB8
.text:00402EA6 push 1D4h
.text:00402EAB push offset dword_401A14
.text:00402EB0 push esi
.text:00402EB1 push eax
.text:00402EB2 call ds:__vbaHresultCheckObj
.text:00402EB8
.text:00402EB8 loc_402EB8: ; CODE XREF: .text:00402EA4j
.text:00402EB8 call sub_401BA0
.text:00402EBD mov esi, eax
.text:00402EBF call ds:__vbaSetSystemError
.text:00402EC5 test esi, esi
.text:00402EC7 jz short loc_402ECF
.text:00402EC9 call ds:__vbaEnd
.text:00402ECF
.text:00402ECF loc_402ECF: ; CODE XREF: .text:00402EC7j
.text:00402ECF mov dword ptr , 0
.text:00402ED6 mov eax,
.text:00402ED9 push eax
.text:00402EDA mov ecx,
.text:00402EDC call dword ptr
.text:00402EDF mov eax,
.text:00402EE2 mov ecx,
.text:00402EE5 pop edi
.text:00402EE6 pop esi
.text:00402EE7 mov large fs:0, ecx
.text:00402EEE pop ebx
.text:00402EEF mov esp, ebp
.text:00402EF1 pop ebp
.text:00402EF2 retn 4
.text:00402EF2 ; ---------------------------------------------------------------------------
.text:00402EF5 align 10h
.text:00402F00
.text:00402F00 loc_402F00: ; CODE XREF: .text:004023C8j
.text:00402F00 push ebp
.text:00402F01 mov ebp, esp
.text:00402F03 sub esp, 0Ch
.text:00402F06 push offset __vbaExceptHandler
.text:00402F0B mov eax, large fs:0
.text:00402F11 push eax
.text:00402F12 mov large fs:0, esp
.text:00402F19 sub esp, 8
.text:00402F1C push ebx
.text:00402F1D push esi
.text:00402F1E push edi
.text:00402F1F mov , esp
.text:00402F22 mov dword ptr , offset dword_4011E0
.text:00402F29 mov eax,
.text:00402F2C mov ecx, eax
.text:00402F2E and ecx, 1
.text:00402F31 mov , ecx
.text:00402F34 and al, 0FEh
.text:00402F36 push eax
.text:00402F37 mov , eax
.text:00402F3A mov edx,
.text:00402F3C call dword ptr
.text:00402F3F call ds:__vbaEnd
.text:00402F45 mov dword ptr , 0
.text:00402F4C mov eax,
.text:00402F4F push eax
.text:00402F50 mov ecx,
.text:00402F52 call dword ptr
.text:00402F55 mov eax,
.text:00402F58 mov ecx,
.text:00402F5B pop edi
.text:00402F5C pop esi
.text:00402F5D mov large fs:0, ecx
.text:00402F64 pop ebx
.text:00402F65 mov esp, ebp
.text:00402F67 pop ebp
.text:00402F68 retn 8
.text:00402F68 ; ---------------------------------------------------------------------------
.text:00402F6B align 10h
.text:00402F70
.text:00402F70 loc_402F70: ; CODE XREF: .text:004023D5j
.text:00402F70 push ebp
.text:00402F71 mov ebp, esp
.text:00402F73 sub esp, 0Ch
.text:00402F76 push offset __vbaExceptHandler
.text:00402F7B mov eax, large fs:0
.text:00402F81 push eax
.text:00402F82 mov large fs: 嗯~~~完全看不懂的说！！！ 原帖由 冰糖 于 2008-11-3 22:00 发表 https://www.chinapyg.com/images/common/back.gif
毁尸灭迹
能毁么？
我早记住你写了什么了！！！ /:good /:good /:good 引来N多大牛！/:L
算法简单，就是包装了一下，兵不厌诈！:loveliness:
页:
[1]
2