飘云阁

 找回密码
 加入我们

QQ登录

只需一步,快速开始

查看: 5936|回复: 7

关于vba的一些函数!

[复制链接]
  • TA的每日心情
    开心
    2024-1-6 12:21
  • 签到天数: 90 天

    [LV.6]常住居民II

    发表于 2005-6-14 08:02:31 | 显示全部楼层 |阅读模式
    1 、字符处理函数
    MultiByteToWideChar, rtcR8ValFromBstr, WideCharToMultiByte, __vbaStrCmp, __vbaStrComp, __vbaStrCopy, __vbaStrMove, __vbaVarTstNe .
    注意:这些函数前的下划线 __ 是由两根短线 _ 组成的,不要弄错。 如果你是破解VB6程序,你应在断点前增加 msvbvm60! 。 像这样:  bpx msvbvm60!__vbastrcomp

    几个常用函数简介:

    1、 __vbavartstne
    进去后在0F04E351你将看到:
    push dword ptr [ebp+0c] ;作者的 serial 的地址
    push dword ptr [ebp+10] ;你输入的serial地址
    在OD命令窗口中下命令:d ebp+0c
    你将在数据窗口看到 4字节地址倒序排列,你再次D 地址(己纠正顺序的), 就可看到序列号了。
    2、 __vbaR8Str
    转换 string 到 Integer/Real
    DL 是显示 Long/real 型
    3、 __vbastrcmp
    例:
    :005BDC32 CALL [MSVBVM50!__VbaFreeVar]
    :005BDC38 MOV ESI,[EBP+08]
    :005BDC3B PUSH ESI
    :005BDC3E CALL [ECX+00000790] : 值返回到 EDX.
    :005BDC44 MOV EDX,[ESI+4C]       : 输入的号码,但倒转
    :005BDC47 MOV EAX,[005E0078]    : 正确号码
    :005BDC4C PUSH EDX
    :005BDC4D PUSH EAX                    :参数送 __vbaStrCmp.
    :005BDC4E CALL [MSVBVM50!__vbaStrCmp]  : 调用函数
    :005BDC54 TEST EAX,EAX                           :测试比较结果
    :005BDC56 JNZ 005BDC64                            : 不相等跳走


    2 、警告窗口函数
    rtcBeep, rtcGetPresentDate (time API), rtcMsgBox

    有空我再把VB的比较方法说一下!
    PYG19周年生日快乐!

    该用户从未签到

    发表于 2005-6-14 20:48:16 | 显示全部楼层
    __vbavartstne 是做什么用的?
    还有——free...是不是释放空间用的!
    除了strcmp好象还有几个函数是用来做比较的,麻烦也给贴出来!

    还有字符转换函数!
    PYG19周年生日快乐!

    该用户从未签到

    发表于 2005-6-14 21:10:04 | 显示全部楼层
    SE handler installation     应该是程序的正式进入的地方吧!
    MSVBVM60.__vbaVarMove  这是什么作用!
    MSVBVM60.__vbaObjSet    ?
    MSVBVM60.__vbaHresultCheckObj   ?
    MSVBVM60.__vbaFreeObj
    MSVBVM60.__vbaObjSet
    MSVBVM60.__vbaLenVar   检查长度的函数吧   这里面的var是不是无符号的意思,有没有检查string长度的函数?
    MSVBVM60.__vbaVarTstEq  无符号函数的比较?
    MSVBVM60.__vbaVarDup  看字面翻译应该是无符号字符的复制,不知道是怎么用的,输入 参数和输出 参数是什么?
    MSVBVM60.rtcMidCharVar   是不是除法呀?
    MSVBVM60.__vbaStrVarVal  这个是做什么的?
    MSVBVM60.rtcAnsiValueBstr  这个能是ASC值转换成字符的函数!
    MSVBVM60.__vbaVarMul  这个不知道呀!
    MSVBVM60.__vbaVarAdd  这个应该是加法吧!
    MSVBVM60.__vbaFreeStr 释放str空间?
    MSVBVM60.__vbaFreeVarList  这个是做什么的?
    MSVBVM60.rtcR8ValFromBstr  这个是什么的?
    MSVBVM60.__vbaVarCmpEq 这个呢?
    MSVBVM60.__vbaVarAnd这个应该是与运算吧!
    MSVBVM60.__vbaBoolVarNull 这个好象与布尔运算有关?
    MSVBVM60.rtcMsgBox  这个我知道是对话框啦,用的多呀!
    MSVBVM60.__vbaNew2   这个不知道呀!
    MSVBVM60.__vbaObjSetAddref   这个不知道!
    MSVBVM60.__vbaStrToAnsi  字符转成ASC值!
    PYG19周年生日快乐!
  • TA的每日心情
    开心
    2024-1-6 12:21
  • 签到天数: 90 天

    [LV.6]常住居民II

     楼主| 发表于 2005-6-16 06:49:50 | 显示全部楼层
    多谢,看来我的尽快总结出来,不过我的专业现在很忙,你先等等,大约7月6号我们放假!到时候就有空了
    PYG19周年生日快乐!

    该用户从未签到

    发表于 2005-6-16 15:34:56 | 显示全部楼层
    最好还有vc的!
    还有pvb
    dephi

    最好能带上参数什么!做一个手册,大家都做个总结对以后分析程序能起到事事半功倍的效果。
    PYG19周年生日快乐!
  • TA的每日心情
    开心
    2024-1-6 12:21
  • 签到天数: 90 天

    [LV.6]常住居民II

     楼主| 发表于 2005-6-17 11:56:13 | 显示全部楼层
    呵呵,不好意思,我不懂pvb和dephi,只能做VB的!至于VC其实不用,可以在OD(需要设置一下)里面显示的!
    PYG19周年生日快乐!
  • TA的每日心情
    无聊
    2022-9-12 06:24
  • 签到天数: 188 天

    [LV.7]常住居民III

    发表于 2005-9-24 20:55:12 | 显示全部楼层
    今天看到这个。请问楼主。你做出来了没有?我觉得这个东西对我这样的菜鸟很需要。呵呵。
    PYG19周年生日快乐!
  • TA的每日心情
    开心
    2024-1-6 12:21
  • 签到天数: 90 天

    [LV.6]常住居民II

     楼主| 发表于 2005-9-28 19:38:45 | 显示全部楼层
    呵呵,不好意识拉,我暑假就没有时间!
    还以为9月中旬又时间呢,没有想到大三这么忙阿!不是就要到国庆节了吗?那几天我弄弄!
    很不好意识!


    真是国庆节好啊,有些时间了,在论坛跑了一圈,看见了同样的帖子
    https://www.chinapyg.com/viewthread.php?tid=2225&fpage=1
    去了就知道了,里面有整理好的一些东西,感谢飘云老大拉,我国庆可以好好的玩了!/:D

    [ Last edited by 东方青石 on 2005-10-1 at 04:26 PM ]
    PYG19周年生日快乐!
    您需要登录后才可以回帖 登录 | 加入我们

    本版积分规则

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