飘云阁

 找回密码
 加入我们

QQ登录

只需一步,快速开始

查看: 7257|回复: 17

[原创] 第一个VB的CM

[复制链接]
  • TA的每日心情
    开心
    2018-3-29 07:24
  • 签到天数: 4 天

    [LV.2]偶尔看看I

    发表于 2008-11-3 14:40:32 | 显示全部楼层 |阅读模式
    这几天坛子里都没有新的CM出来/:011 ,中午没事用现学现卖的VB写了一个给大家玩玩,写得很烂,难度very very easy:loveliness: ,欢迎大家尽情来秒吧!/:001

    附件更新了一下,/:011 下过的请重新下载!


    [ 本帖最后由 x80x88 于 2008-11-3 15:29 编辑 ]

    本帖子中包含更多资源

    您需要 登录 才可以下载或查看,没有账号?加入我们

    x
    PYG19周年生日快乐!
  • TA的每日心情
    开心
    2015-8-3 23:07
  • 签到天数: 3 天

    [LV.2]偶尔看看I

    发表于 2008-11-3 15:00:54 | 显示全部楼层
    看见VB绕道走/:018 /:018 /:018
    楼下继续
    PYG19周年生日快乐!

    该用户从未签到

    发表于 2008-11-3 21:15:33 | 显示全部楼层
    支持一下!/:good /:good /:good

    [ 本帖最后由 hanyu 于 2008-11-3 21:49 编辑 ]

    本帖子中包含更多资源

    您需要 登录 才可以下载或查看,没有账号?加入我们

    x
    PYG19周年生日快乐!
  • TA的每日心情
    慵懒
    2018-2-11 09:23
  • 签到天数: 8 天

    [LV.3]偶尔看看II

    发表于 2008-11-3 21:47:33 | 显示全部楼层
    又见明码/:017
    PYG19周年生日快乐!
  • TA的每日心情
    慵懒
    2018-2-11 09:23
  • 签到天数: 8 天

    [LV.3]偶尔看看II

    发表于 2008-11-3 22:00:41 | 显示全部楼层
    毁尸灭迹

    [ 本帖最后由 冰糖 于 2008-11-3 22:05 编辑 ]
    PYG19周年生日快乐!
  • TA的每日心情
    郁闷
    2021-10-2 23:26
  • 签到天数: 46 天

    [LV.5]常住居民I

    发表于 2008-11-3 22:00:58 | 显示全部楼层
    楼上的好像看少了什么吧!好像不你说的那么容易啊!/:010 /:010


    [ 本帖最后由 as3852711 于 2008-11-3 22:05 编辑 ]

    本帖子中包含更多资源

    您需要 登录 才可以下载或查看,没有账号?加入我们

    x
    PYG19周年生日快乐!
  • TA的每日心情
    无聊
    2020-4-10 17:02
  • 签到天数: 5 天

    [LV.2]偶尔看看I

    发表于 2008-11-3 22:10:51 | 显示全部楼层
    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     [ebp-18h], esp
    .text:00402539                 mov     dword ptr [ebp-14h], offset dword_401130
    .text:00402540                 mov     eax, [ebp+8]
    .text:00402543                 and     eax, 1
    .text:00402546                 mov     [ebp-10h], eax
    .text:00402549                 mov     ecx, [ebp+8]
    .text:0040254C                 and     ecx, 0FFFFFFFEh
    .text:0040254F                 mov     [ebp+8], ecx
    .text:00402552                 mov     dword ptr [ebp-0Ch], 0
    .text:00402559                 mov     edx, [ebp+8]
    .text:0040255C                 mov     eax, [edx]
    .text:0040255E                 mov     ecx, [ebp+8]
    .text:00402561                 push    ecx
    .text:00402562                 call    dword ptr [eax+4]
    .text:00402565                 mov     dword ptr [ebp-4], 1
    .text:0040256C                 mov     dword ptr [ebp-4], 2
    .text:00402573                 push    1
    .text:00402575                 call    ds:__vbaOnError
    .text:0040257B                 mov     dword ptr [ebp-4], 3
    .text:00402582                 mov     edx, [ebp+8]
    .text:00402585                 mov     eax, [edx]
    .text:00402587                 mov     ecx, [ebp+8]
    .text:0040258A                 push    ecx
    .text:0040258B                 call    dword ptr [eax+308h]
    .text:00402591                 push    eax
    .text:00402592                 lea     edx, [ebp-60h]
    .text:00402595                 push    edx
    .text:00402596                 call    ds:__vbaObjSet
    .text:0040259C                 mov     [ebp-124h], eax
    .text:004025A2                 lea     eax, [ebp-58h]
    .text:004025A5                 push    eax
    .text:004025A6                 mov     ecx, [ebp-124h]
    .text:004025AC                 mov     edx, [ecx]
    .text:004025AE                 mov     eax, [ebp-124h]
    .text:004025B4                 push    eax
    .text:004025B5                 call    dword ptr [edx+0A0h]
    .text:004025BB                 fnclex
    .text:004025BD                 mov     [ebp-128h], eax
    .text:004025C3                 cmp     dword ptr [ebp-128h], 0
    .text:004025CA                 jge     short loc_4025F2
    .text:004025CC                 push    0A0h
    .text:004025D1                 push    offset dword_401BC8
    .text:004025D6                 mov     ecx, [ebp-124h]
    .text:004025DC                 push    ecx
    .text:004025DD                 mov     edx, [ebp-128h]
    .text:004025E3                 push    edx
    .text:004025E4                 call    ds:__vbaHresultCheckObj
    .text:004025EA                 mov     [ebp-154h], eax
    .text:004025F0                 jmp     short loc_4025FC
    .text:004025F2 ; ---------------------------------------------------------------------------
    .text:004025F2
    .text:004025F2 loc_4025F2:                             ; CODE XREF: .text:004025CAj
    .text:004025F2                 mov     dword ptr [ebp-154h], 0
    .text:004025FC
    .text:004025FC loc_4025FC:                             ; CODE XREF: .text:004025F0j
    .text:004025FC                 mov     eax, [ebp-58h]
    .text:004025FF                 mov     [ebp-144h], eax
    .text:00402605                 mov     dword ptr [ebp-58h], 0
    .text:0040260C                 mov     ecx, [ebp-144h]
    .text:00402612                 mov     [ebp-68h], ecx
    .text:00402615                 mov     dword ptr [ebp-70h], 8
    .text:0040261C                 push    1
    .text:0040261E                 lea     edx, [ebp-70h]
    .text:00402621                 push    edx
    .text:00402622                 lea     eax, [ebp-80h]
    .text:00402625                 push    eax
    .text:00402626                 call    ds:rtcRightCharVar
    .text:0040262C                 lea     ecx, [ebp-80h]
    .text:0040262F                 push    ecx
    .text:00402630                 lea     edx, [ebp-5Ch]
    .text:00402633                 push    edx
    .text:00402634                 call    ds:__vbaStrVarVal
    .text:0040263A                 push    eax
    .text:0040263B                 call    ds:rtcAnsiValueBstr
    .text:00402641                 mov     [ebp-54h], ax
    .text:00402645                 lea     ecx, [ebp-5Ch]
    .text:00402648                 call    ds:__vbaFreeStr
    .text:0040264E                 lea     ecx, [ebp-60h]
    .text:00402651                 call    ds:__vbaFreeObj
    .text:00402657                 lea     eax, [ebp-80h]
    .text:0040265A                 push    eax
    .text:0040265B                 lea     ecx, [ebp-70h]
    .text:0040265E                 push    ecx
    .text:0040265F                 push    2
    .text:00402661                 call    ds:__vbaFreeVarList
    .text:00402667                 add     esp, 0Ch
    .text:0040266A                 mov     dword ptr [ebp-4], 4
    .text:00402671                 movsx   edx, word ptr [ebp-54h]
    .text:00402675                 mov     [ebp-158h], edx
    .text:0040267B                 fild    dword ptr [ebp-158h]
    .text:00402681                 fstp    qword ptr [ebp-160h]
    .text:00402687                 fld     ds:dbl_4011B8
    .text:0040268D                 cmp     dword_404000, 0
    .text:00402694                 jnz     short loc_40269E
    .text:00402696                 fdiv    qword ptr [ebp-160h]
    .text:0040269C                 jmp     short loc_4026AF
    .text:0040269E ; ---------------------------------------------------------------------------
    .text:0040269E
    .text:0040269E loc_40269E:                             ; CODE XREF: .text:00402694j
    .text:0040269E                 push    dword ptr [ebp-15Ch]
    .text:004026A4                 push    dword ptr [ebp-160h]
    .text:004026AA                 call    _adj_fdiv_m64
    .text:004026AF
    .text:004026AF loc_4026AF:                             ; CODE XREF: .text:0040269Cj
    .text:004026AF                 fnstsw  ax
    .text:004026B1                 test    al, 0Dh
    .text:004026B3                 jnz     loc_402CCC
    .text:004026B9                 call    ds:__vbaFpI4
    .text:004026BF                 xor     eax, 0BC61BDh
    .text:004026C4                 mov     [ebp-0E8h], eax
    .text:004026CA                 mov     dword ptr [ebp-0F0h], 3
    .text:004026D4                 lea     edx, [ebp-0F0h]
    .text:004026DA                 lea     ecx, [ebp-30h]
    .text:004026DD                 call    ds:__vbaVarMove
    .text:004026E3                 mov     dword ptr [ebp-4], 5
    .text:004026EA                 mov     eax, [ebp+8]
    .text:004026ED                 mov     ecx, [eax]
    .text:004026EF                 mov     edx, [ebp+8]
    .text:004026F2                 push    edx
    .text:004026F3                 call    dword ptr [ecx+30Ch]
    .text:004026F9                 push    eax
    .text:004026FA                 lea     eax, [ebp-60h]
    .text:004026FD                 push    eax
    .text:004026FE                 call    ds:__vbaObjSet
    .text:00402704                 mov     [ebp-124h], eax
    .text:0040270A                 lea     ecx, [ebp-58h]
    .text:0040270D                 push    ecx
    .text:0040270E                 mov     edx, [ebp-124h]
    .text:00402714                 mov     eax, [edx]
    .text:00402716                 mov     ecx, [ebp-124h]
    .text:0040271C                 push    ecx
    .text:0040271D                 call    dword ptr [eax+0A0h]
    .text:00402723                 fnclex
    .text:00402725                 mov     [ebp-128h], eax
    .text:0040272B                 cmp     dword ptr [ebp-128h], 0
    .text:00402732                 jge     short loc_40275A
    .text:00402734                 push    0A0h
    .text:00402739                 push    offset dword_401BC8
    .text:0040273E                 mov     edx, [ebp-124h]
    .text:00402744                 push    edx
    .text:00402745                 mov     eax, [ebp-128h]
    .text:0040274B                 push    eax
    .text:0040274C                 call    ds:__vbaHresultCheckObj
    .text:00402752                 mov     [ebp-164h], eax
    .text:00402758                 jmp     short loc_402764
    .text:0040275A ; ---------------------------------------------------------------------------
    .text:0040275A
    .text:0040275A loc_40275A:                             ; CODE XREF: .text:00402732j
    .text:0040275A                 mov     dword ptr [ebp-164h], 0
    .text:00402764
    .text:00402764 loc_402764:                             ; CODE XREF: .text:00402758j
    .text:00402764                 mov     ecx, [ebp-58h]
    .text:00402767                 mov     [ebp-148h], ecx
    .text:0040276D                 mov     dword ptr [ebp-58h], 0
    .text:00402774                 mov     edx, [ebp-148h]
    .text:0040277A                 mov     [ebp-68h], edx
    .text:0040277D                 mov     dword ptr [ebp-70h], 8008h
    .text:00402784                 mov     eax, [ebp+8]
    .text:00402787                 xor     ecx, ecx
    .text:00402789                 cmp     word ptr [eax+34h], 0
    .text:0040278E                 setz    cl
    .text:00402791                 neg     ecx
    .text:00402793                 mov     [ebp-0E8h], cx
    .text:0040279A                 mov     dword ptr [ebp-0F0h], 0Bh
    .text:004027A4                 lea     edx, [ebp-70h]
    .text:004027A7                 push    edx
    .text:004027A8                 lea     eax, [ebp-30h]
    .text:004027AB                 push    eax
    .text:004027AC                 lea     ecx, [ebp-80h]
    .text:004027AF                 push    ecx
    .text:004027B0                 call    ds:__vbaVarCmpEq
    .text:004027B6                 push    eax
    .text:004027B7                 lea     edx, [ebp-0F0h]
    .text:004027BD                 push    edx
    .text:004027BE                 lea     eax, [ebp-90h]
    .text:004027C4                 push    eax
    .text:004027C5                 call    ds:__vbaVarXor
    .text:004027CB                 push    eax
    .text:004027CC                 lea     ecx, [ebp-0A0h]
    .text:004027D2                 push    ecx
    .text:004027D3                 call    ds:__vbaVarNot
    .text:004027D9                 push    eax
    .text:004027DA                 call    ds:__vbaBoolVarNull
    .text:004027E0                 mov     [ebp-12Ch], ax
    .text:004027E7                 lea     ecx, [ebp-60h]
    .text:004027EA                 call    ds:__vbaFreeObj
    .text:004027F0                 lea     edx, [ebp-0F0h]
    .text:004027F6                 push    edx
    .text:004027F7                 lea     eax, [ebp-70h]
    .text:004027FA                 push    eax
    .text:004027FB                 push    2
    .text:004027FD                 call    ds:__vbaFreeVarList
    .text:00402803                 add     esp, 0Ch
    .text:00402806                 movsx   ecx, word ptr [ebp-12Ch]
    .text:0040280D                 test    ecx, ecx
    .text:0040280F                 jz      loc_4028B6
    .text:00402815                 mov     dword ptr [ebp-4], 6
    .text:0040281C                 mov     dword ptr [ebp-98h], 80020004h
    .text:00402826                 mov     dword ptr [ebp-0A0h], 0Ah
    .text:00402830                 mov     dword ptr [ebp-88h], 80020004h
    .text:0040283A                 mov     dword ptr [ebp-90h], 0Ah
    .text:00402844                 mov     dword ptr [ebp-78h], 80020004h
    .text:0040284B                 mov     dword ptr [ebp-80h], 0Ah
    .text:00402852                 mov     dword ptr [ebp-0E8h], offset dword_401BDC
    .text:0040285C                 mov     dword ptr [ebp-0F0h], 8
    .text:00402866                 lea     edx, [ebp-0F0h]
    .text:0040286C                 lea     ecx, [ebp-70h]
    .text:0040286F                 call    ds:__vbaVarDup
    .text:00402875                 lea     edx, [ebp-0A0h]
    .text:0040287B                 push    edx
    .text:0040287C                 lea     eax, [ebp-90h]
    .text:00402882                 push    eax
    .text:00402883                 lea     ecx, [ebp-80h]
    .text:00402886                 push    ecx
    .text:00402887                 push    40h
    .text:00402889                 lea     edx, [ebp-70h]
    .text:0040288C                 push    edx
    .text:0040288D                 call    ds:rtcMsgBox
    .text:00402893                 lea     eax, [ebp-0A0h]
    .text:00402899                 push    eax
    .text:0040289A                 lea     ecx, [ebp-90h]
    .text:004028A0                 push    ecx
    .text:004028A1                 lea     edx, [ebp-80h]
    .text:004028A4                 push    edx
    .text:004028A5                 lea     eax, [ebp-70h]
    .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 [ebp-4], 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 [ebp-0E8h]
    .text:004028EB                 fnstsw  ax
    .text:004028ED                 test    al, 0Dh
    .text:004028EF                 jnz     loc_402CCC
    .text:004028F5                 mov     dword ptr [ebp-0F0h], 5
    .text:004028FF                 lea     edx, [ebp-0F0h]
    .text:00402905                 lea     ecx, [ebp-50h]
    .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 [ebp-4], 0Ch
    .text:0040291A                 mov     ecx, [ebp+8]
    .text:0040291D                 mov     edx, [ecx]
    .text:0040291F                 mov     eax, [ebp+8]
    .text:00402922                 push    eax
    .text:00402923                 call    dword ptr [edx+308h]
    .text:00402929                 push    eax
    .text:0040292A                 lea     ecx, [ebp-60h]
    .text:0040292D                 push    ecx
    .text:0040292E                 call    ds:__vbaObjSet
    .text:00402934                 mov     [ebp-124h], eax
    .text:0040293A                 lea     edx, [ebp-58h]
    .text:0040293D                 push    edx
    .text:0040293E                 mov     eax, [ebp-124h]
    .text:00402944                 mov     ecx, [eax]
    .text:00402946                 mov     edx, [ebp-124h]
    .text:0040294C                 push    edx
    .text:0040294D                 call    dword ptr [ecx+0A0h]
    .text:00402953                 fnclex
    .text:00402955                 mov     [ebp-128h], eax
    .text:0040295B                 cmp     dword ptr [ebp-128h], 0
    .text:00402962                 jge     short loc_40298A
    .text:00402964                 push    0A0h
    .text:00402969                 push    offset dword_401BC8
    .text:0040296E                 mov     eax, [ebp-124h]
    .text:00402974                 push    eax
    .text:00402975                 mov     ecx, [ebp-128h]
    .text:0040297B                 push    ecx
    .text:0040297C                 call    ds:__vbaHresultCheckObj
    .text:00402982                 mov     [ebp-168h], eax
    .text:00402988                 jmp     short loc_402994
    .text:0040298A ; ---------------------------------------------------------------------------
    .text:0040298A
    .text:0040298A loc_40298A:                             ; CODE XREF: .text:00402962j
    .text:0040298A                 mov     dword ptr [ebp-168h], 0
    .text:00402994
    .text:00402994 loc_402994:                             ; CODE XREF: .text:00402988j
    .text:00402994                 mov     edx, [ebp+8]
    .text:00402997                 mov     ax, [edx+36h]
    .text:0040299B                 mov     [ebp-0E8h], ax
    .text:004029A2                 mov     dword ptr [ebp-0F0h], 2
    .text:004029AC                 mov     ecx, [ebp-58h]
    .text:004029AF                 mov     [ebp-14Ch], ecx
    .text:004029B5                 mov     dword ptr [ebp-58h], 0
    .text:004029BC                 mov     edx, [ebp-14Ch]
    .text:004029C2                 mov     [ebp-68h], edx
    .text:004029C5                 mov     dword ptr [ebp-70h], 8
    .text:004029CC                 push    1
    .text:004029CE                 lea     eax, [ebp-70h]
    .text:004029D1                 push    eax
    .text:004029D2                 lea     ecx, [ebp-80h]
    .text:004029D5                 push    ecx
    .text:004029D6                 call    ds:rtcRightCharVar
    .text:004029DC                 mov     dword ptr [ebp-0F8h], 401BECh
    .text:004029E6                 mov     dword ptr [ebp-100h], 8
    .text:004029F0                 lea     edx, [ebp-0F0h]
    .text:004029F6                 push    edx
    .text:004029F7                 lea     eax, [ebp-80h]
    .text:004029FA                 push    eax
    .text:004029FB                 lea     ecx, [ebp-90h]
    .text:00402A01                 push    ecx
    .text:00402A02                 call    ds:__vbaVarCat
    .text:00402A08                 push    eax
    .text:00402A09                 lea     edx, [ebp-100h]
    .text:00402A0F                 push    edx
    .text:00402A10                 lea     eax, [ebp-0A0h]
    .text:00402A16                 push    eax
    .text:00402A17                 call    ds:__vbaVarCat
    .text:00402A1D                 mov     edx, eax
    .text:00402A1F                 lea     ecx, [ebp-40h]
    .text:00402A22                 call    ds:__vbaVarMove
    .text:00402A28                 lea     ecx, [ebp-60h]
    .text:00402A2B                 call    ds:__vbaFreeObj
    .text:00402A31                 lea     ecx, [ebp-90h]
    .text:00402A37                 push    ecx
    .text:00402A38                 lea     edx, [ebp-80h]
    .text:00402A3B                 push    edx
    .text:00402A3C                 lea     eax, [ebp-70h]
    .text:00402A3F                 push    eax
    .text:00402A40                 push    3
    .text:00402A42                 call    ds:__vbaFreeVarList
    .text:00402A48                 add     esp, 10h
    .text:00402A4B                 mov     dword ptr [ebp-4], 0Dh
    .text:00402A52                 mov     ecx, [ebp+8]
    .text:00402A55                 mov     edx, [ecx]
    .text:00402A57                 mov     eax, [ebp+8]
    .text:00402A5A                 push    eax
    .text:00402A5B                 call    dword ptr [edx+30Ch]
    .text:00402A61                 push    eax
    .text:00402A62                 lea     ecx, [ebp-60h]
    .text:00402A65                 push    ecx
    .text:00402A66                 call    ds:__vbaObjSet
    .text:00402A6C                 mov     [ebp-124h], eax
    .text:00402A72                 lea     edx, [ebp-58h]
    .text:00402A75                 push    edx
    .text:00402A76                 mov     eax, [ebp-124h]
    .text:00402A7C                 mov     ecx, [eax]
    .text:00402A7E                 mov     edx, [ebp-124h]
    .text:00402A84                 push    edx
    .text:00402A85                 call    dword ptr [ecx+0A0h]
    .text:00402A8B                 fnclex
    .text:00402A8D                 mov     [ebp-128h], eax
    .text:00402A93                 cmp     dword ptr [ebp-128h], 0
    .text:00402A9A                 jge     short loc_402AC2
    .text:00402A9C                 push    0A0h
    .text:00402AA1                 push    offset dword_401BC8
    .text:00402AA6                 mov     eax, [ebp-124h]
    .text:00402AAC                 push    eax
    .text:00402AAD                 mov     ecx, [ebp-128h]
    .text:00402AB3                 push    ecx
    .text:00402AB4                 call    ds:__vbaHresultCheckObj
    .text:00402ABA                 mov     [ebp-16Ch], eax
    .text:00402AC0                 jmp     short loc_402ACC
    .text:00402AC2 ; ---------------------------------------------------------------------------
    .text:00402AC2
    .text:00402AC2 loc_402AC2:                             ; CODE XREF: .text:00402A9Aj
    .text:00402AC2                 mov     dword ptr [ebp-16Ch], 0
    .text:00402ACC
    .text:00402ACC loc_402ACC:                             ; CODE XREF: .text:00402AC0j
    .text:00402ACC                 mov     edx, [ebp-58h]
    .text:00402ACF                 mov     [ebp-150h], edx
    .text:00402AD5                 mov     dword ptr [ebp-58h], 0
    .text:00402ADC                 mov     eax, [ebp-150h]
    .text:00402AE2                 mov     [ebp-68h], eax
    .text:00402AE5                 mov     dword ptr [ebp-70h], 8008h
    .text:00402AEC                 lea     ecx, [ebp-70h]
    .text:00402AEF                 push    ecx
    .text:00402AF0                 lea     edx, [ebp-40h]
    .text:00402AF3                 push    edx
    .text:00402AF4                 call    ds:__vbaVarTstEq
    .text:00402AFA                 mov     [ebp-12Ch], ax
    .text:00402B01                 lea     ecx, [ebp-60h]
    .text:00402B04                 call    ds:__vbaFreeObj
    .text:00402B0A                 lea     ecx, [ebp-70h]
    .text:00402B0D                 call    ds:__vbaFreeVar
    .text:00402B13                 movsx   eax, word ptr [ebp-12Ch]
    .text:00402B1A                 test    eax, eax
    .text:00402B1C                 jz      loc_402C17
    .text:00402B22                 mov     dword ptr [ebp-4], 0Eh
    .text:00402B29                 push    0FFFFB9A7h
    .text:00402B2E                 lea     ecx, [ebp-70h]
    .text:00402B31                 push    ecx
    .text:00402B32                 call    ds:rtcVarBstrFromAnsi
    .text:00402B38                 push    0FFFFCFB2h
    .text:00402B3D                 lea     edx, [ebp-80h]
    .text:00402B40                 push    edx
    .text:00402B41                 call    ds:rtcVarBstrFromAnsi
    .text:00402B47                 push    21h
    .text:00402B49                 lea     eax, [ebp-0A0h]
    .text:00402B4F                 push    eax
    .text:00402B50                 call    ds:rtcVarBstrFromAnsi
    .text:00402B56                 mov     dword ptr [ebp-0D8h], 80020004h
    .text:00402B60                 mov     dword ptr [ebp-0E0h], 0Ah
    .text:00402B6A                 mov     dword ptr [ebp-0C8h], 80020004h
    .text:00402B74                 mov     dword ptr [ebp-0D0h], 0Ah
    .text:00402B7E                 mov     dword ptr [ebp-0B8h], 80020004h
    .text:00402B88                 mov     dword ptr [ebp-0C0h], 0Ah
    .text:00402B92                 lea     ecx, [ebp-0E0h]
    .text:00402B98                 push    ecx
    .text:00402B99                 lea     edx, [ebp-0D0h]
    .text:00402B9F                 push    edx
    .text:00402BA0                 lea     eax, [ebp-0C0h]
    .text:00402BA6                 push    eax
    .text:00402BA7                 push    40h
    .text:00402BA9                 lea     ecx, [ebp-70h]
    .text:00402BAC                 push    ecx
    .text:00402BAD                 lea     edx, [ebp-80h]
    .text:00402BB0                 push    edx
    .text:00402BB1                 lea     eax, [ebp-90h]
    .text:00402BB7                 push    eax
    .text:00402BB8                 call    ds:__vbaVarCat
    .text:00402BBE                 push    eax
    .text:00402BBF                 lea     ecx, [ebp-0A0h]
    .text:00402BC5                 push    ecx
    .text:00402BC6                 lea     edx, [ebp-0B0h]
    .text:00402BCC                 push    edx
    .text:00402BCD                 call    ds:__vbaVarCat
    .text:00402BD3                 push    eax
    .text:00402BD4                 call    ds:rtcMsgBox
    .text:00402BDA                 lea     eax, [ebp-0E0h]
    .text:00402BE0                 push    eax
    .text:00402BE1                 lea     ecx, [ebp-0D0h]
    .text:00402BE7                 push    ecx
    .text:00402BE8                 lea     edx, [ebp-0C0h]
    .text:00402BEE                 push    edx
    .text:00402BEF                 lea     eax, [ebp-0B0h]
    .text:00402BF5                 push    eax
    .text:00402BF6                 lea     ecx, [ebp-0A0h]
    .text:00402BFC                 push    ecx
    .text:00402BFD                 lea     edx, [ebp-90h]
    .text:00402C03                 push    edx
    .text:00402C04                 lea     eax, [ebp-80h]
    .text:00402C07                 push    eax
    .text:00402C08                 lea     ecx, [ebp-70h]
    .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 [ebp-4], 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, [ebp-5Ch]
    .text:00402C37                 push    edx
    .text:00402C38                 lea     eax, [ebp-58h]
    .text:00402C3B                 push    eax
    .text:00402C3C                 push    2
    .text:00402C3E                 call    ds:__vbaFreeStrList
    .text:00402C44                 add     esp, 0Ch
    .text:00402C47                 lea     ecx, [ebp-60h]
    .text:00402C4A                 call    ds:__vbaFreeObj
    .text:00402C50                 lea     ecx, [ebp-0E0h]
    .text:00402C56                 push    ecx
    .text:00402C57                 lea     edx, [ebp-0D0h]
    .text:00402C5D                 push    edx
    .text:00402C5E                 lea     eax, [ebp-0C0h]
    .text:00402C64                 push    eax
    .text:00402C65                 lea     ecx, [ebp-0B0h]
    .text:00402C6B                 push    ecx
    .text:00402C6C                 lea     edx, [ebp-0A0h]
    .text:00402C72                 push    edx
    .text:00402C73                 lea     eax, [ebp-90h]
    .text:00402C79                 push    eax
    .text:00402C7A                 lea     ecx, [ebp-80h]
    .text:00402C7D                 push    ecx
    .text:00402C7E                 lea     edx, [ebp-70h]
    .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, [ebp-30h]
    .text:00402C91                 call    ds:__vbaFreeVar
    .text:00402C97                 lea     ecx, [ebp-40h]
    .text:00402C9A                 call    ds:__vbaFreeVar
    .text:00402CA0                 lea     ecx, [ebp-50h]
    .text:00402CA3                 call    ds:__vbaFreeVar
    .text:00402CA9                 retn
    .text:00402CAA ; ---------------------------------------------------------------------------
    .text:00402CAA
    .text:00402CAA loc_402CAA:                             ; DATA XREF: .text:00402C2Do
    .text:00402CAA                 mov     eax, [ebp+8]
    .text:00402CAD                 mov     ecx, [eax]
    .text:00402CAF                 mov     edx, [ebp+8]
    .text:00402CB2                 push    edx
    .text:00402CB3                 call    dword ptr [ecx+8]
    .text:00402CB6                 mov     eax, [ebp-10h]
    .text:00402CB9                 mov     ecx, [ebp-20h]
    .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     [ebp-0Ch], esp
    .text:00402D02                 mov     dword ptr [ebp-8], offset dword_4011C0
    .text:00402D09                 mov     edi, [ebp+8]
    .text:00402D0C                 mov     eax, edi
    .text:00402D0E                 and     eax, 1
    .text:00402D11                 mov     [ebp-4], eax
    .text:00402D14                 and     edi, 0FFFFFFFEh
    .text:00402D17                 push    edi
    .text:00402D18                 mov     [ebp+8], edi
    .text:00402D1B                 mov     ecx, [edi]
    .text:00402D1D                 call    dword ptr [ecx+4]
    .text:00402D20                 mov     eax, dword_4042E0
    .text:00402D25                 xor     ebx, ebx
    .text:00402D27                 cmp     eax, ebx
    .text:00402D29                 mov     [ebp-18h], 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, [ebp-18h]
    .text:00402D47                 push    edi
    .text:00402D48                 push    eax
    .text:00402D49                 mov     edx, [esi]
    .text:00402D4B                 mov     [ebp-2Ch], edx
    .text:00402D4E                 call    ds:__vbaObjSetAddref
    .text:00402D54                 mov     ecx, [ebp-2Ch]
    .text:00402D57                 push    eax
    .text:00402D58                 push    esi
    .text:00402D59                 call    dword ptr [ecx+10h]
    .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, [ebp-18h]
    .text:00402D74                 call    ds:__vbaFreeObj
    .text:00402D7A                 mov     [ebp-4], 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, [ebp-18h]
    .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, [ebp+8]
    .text:00402D92                 push    eax
    .text:00402D93                 mov     edx, [eax]
    .text:00402D95                 call    dword ptr [edx+8]
    .text:00402D98                 mov     eax, [ebp-4]
    .text:00402D9B                 mov     ecx, [ebp-14h]
    .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     [ebp-0Ch], esp
    .text:00402DD2                 mov     dword ptr [ebp-8], offset dword_4011D0
    .text:00402DD9                 mov     eax, [ebp+8]
    .text:00402DDC                 mov     ecx, eax
    .text:00402DDE                 and     ecx, 1
    .text:00402DE1                 mov     [ebp-4], ecx
    .text:00402DE4                 and     al, 0FEh
    .text:00402DE6                 push    eax
    .text:00402DE7                 mov     [ebp+8], eax
    .text:00402DEA                 mov     edx, [eax]
    .text:00402DEC                 call    dword ptr [edx+4]
    .text:00402DEF                 mov     eax, [ebp+0Ch]
    .text:00402DF2                 cmp     word ptr [eax], 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 [ebp-4], 0
    .text:00402E05                 mov     eax, [ebp+8]
    .text:00402E08                 push    eax
    .text:00402E09                 mov     ecx, [eax]
    .text:00402E0B                 call    dword ptr [ecx+8]
    .text:00402E0E                 mov     eax, [ebp-4]
    .text:00402E11                 mov     ecx, [ebp-14h]
    .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     [ebp-0Ch], esp
    .text:00402E52                 mov     dword ptr [ebp-8], offset dword_4011D8
    .text:00402E59                 mov     esi, [ebp+8]
    .text:00402E5C                 mov     eax, esi
    .text:00402E5E                 and     eax, 1
    .text:00402E61                 mov     [ebp-4], eax
    .text:00402E64                 and     esi, 0FFFFFFFEh
    .text:00402E67                 push    esi
    .text:00402E68                 mov     [ebp+8], esi
    .text:00402E6B                 mov     ecx, [esi]
    .text:00402E6D                 call    dword ptr [ecx+4]
    .text:00402E70                 mov     word ptr [esi+34h], 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, [esi]
    .text:00402E9A                 call    dword ptr [edx+1D4h]
    .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 [ebp-4], 0
    .text:00402ED6                 mov     eax, [ebp+8]
    .text:00402ED9                 push    eax
    .text:00402EDA                 mov     ecx, [eax]
    .text:00402EDC                 call    dword ptr [ecx+8]
    .text:00402EDF                 mov     eax, [ebp-4]
    .text:00402EE2                 mov     ecx, [ebp-14h]
    .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     [ebp-0Ch], esp
    .text:00402F22                 mov     dword ptr [ebp-8], offset dword_4011E0
    .text:00402F29                 mov     eax, [ebp+8]
    .text:00402F2C                 mov     ecx, eax
    .text:00402F2E                 and     ecx, 1
    .text:00402F31                 mov     [ebp-4], ecx
    .text:00402F34                 and     al, 0FEh
    .text:00402F36                 push    eax
    .text:00402F37                 mov     [ebp+8], eax
    .text:00402F3A                 mov     edx, [eax]
    .text:00402F3C                 call    dword ptr [edx+4]
    .text:00402F3F                 call    ds:__vbaEnd
    .text:00402F45                 mov     dword ptr [ebp-4], 0
    .text:00402F4C                 mov     eax, [ebp+8]
    .text:00402F4F                 push    eax
    .text:00402F50                 mov     ecx, [eax]
    .text:00402F52                 call    dword ptr [ecx+8]
    .text:00402F55                 mov     eax, [ebp-4]
    .text:00402F58                 mov     ecx, [ebp-14h]
    .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:
    PYG19周年生日快乐!
  • TA的每日心情
    无聊
    2020-4-10 17:02
  • 签到天数: 5 天

    [LV.2]偶尔看看I

    发表于 2008-11-3 22:12:13 | 显示全部楼层
    嗯~~~完全看不懂的说!!!
    PYG19周年生日快乐!
  • TA的每日心情
    无聊
    2020-4-10 17:02
  • 签到天数: 5 天

    [LV.2]偶尔看看I

    发表于 2008-11-3 22:13:34 | 显示全部楼层
    原帖由 冰糖 于 2008-11-3 22:00 发表
    毁尸灭迹

    能毁么?
    我早记住你写了什么了!!!
    PYG19周年生日快乐!
  • TA的每日心情
    开心
    2018-3-29 07:24
  • 签到天数: 4 天

    [LV.2]偶尔看看I

     楼主| 发表于 2008-11-3 22:45:43 | 显示全部楼层
    /:good /:good /:good 引来N多大牛!/:L
    算法简单,就是包装了一下,兵不厌诈!:loveliness:
    PYG19周年生日快乐!
    您需要登录后才可以回帖 登录 | 加入我们

    本版积分规则

    快速回复 返回顶部 返回列表