首页
社区
课程
招聘
VB API
2005-2-11 11:34 9350

VB API

2005-2-11 11:34
9350
VB API
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
__vbaVarTstEq(x,y) return 0 不相等,return -1 相等。

push parameter1                ;*(*( parameter1+8))->x
push parameter2                ;*(*( parameter2+8))->y
call __vbaVarTstEq;
(可以比较不同类型的数据)
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
__vbaVarTstNe(x,y) return -1 不相等,return 0 相等。

push parameter1                ;*( parameter1+8)->x
push parameter2                ;*( parameter2+8)->y
call __vbaVarTstNe        ;
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
__vbastrcmp(x,y) return 0 不相等,return -1 相等。

ecx                         ;*ecx->x
edx                         ;*ecx->y
call __vbastrcmp(x,y);
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
__vbastrcomp(x,y) return 0 不相等,return -1 相等。

push parameter1                   ;* parameter1->x
push parameter2                   ;* parameter2->y
push 0/1                           ;0为二进制比较,1为文本方式比较
call __vbastrcomp(x,y);
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$

__vbaVarCopy        ;拷贝字符串 如:a=”121212”
                        b=a
edx        ; *(*(edx-8))->a
ecx           ; *ecx->字符长度,*(*(ecx-8))->b(运行后)
call __vbaVarCopy;
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
__vbaVarMove        ;传递数值 如:b=a

edx        ; *(*(edx-8))->a
ecx           ; *(*(ecx-8))->b(运行后)
call __ vbaVarMove;
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
__vbaVarAdd        ;加  如:c=a+b

push parameter1                ;*( parameter1-8)->a
push parameter2                ;*( parameter2-8)->b
push parameter3                ;*( parameter3-8)->c
call __vbaVarAdd;

$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
vbaVarMul        ;加  如:c=a*b

push reg1                ;*(edx-8)->a
push reg2                ;*(edx-8)->b
push reg3                ;*(edx-8)->c
call __vbaVarMul;
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  vbastrcopy :copy 字符串        如:a=”121212”
                         b=a
edx                        ;*edx=a
ecx                        ;**ecx=b
call vbastrcopy;
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
vbastrcat        ;累加字符串   如:  a=”121212”
                b=”ababab”
                c=a+b
push parameter1        ;* parameter1=a
push parameter2        ; *parameter2=b
call vbastrcat
返回eax                ;*eax=c
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
vbastrmove :copy 字符串        如:a=”121212”
                         b=a
edx                        ;*edx=a
ecx                        ;**ecx=b(运行后)
call vbastrmove;
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
vbainstrvar : 传回字串里某个字串在第几个字的位置
                                                                               
push parameter1        ;从第几个开始
push parameter2        ;所要检查原字串
push parameter3        ;某个字串
push parameter4        ;?
push parameter5        ;输出地址
call vbainstrvar
返回eax                ; 输出地址
     ecx                ; 位置
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
vbaStrToAnsi : UNICODE 转换为 ASICII.
                                                                               
push parameter1        ;原UNICODE字符串个数
push parameter2        ;原UNICODE字符串地址
push parameter3        ;** parameter3输出ASICII地址
call vbaStrToAnsi
返回eax                ; 输出ASICII地址

$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
vbaStrToUnicode: ASICII 转换为 UNICODE.
                                                                               
push parameter1        ;原ASICII字符串地址
push parameter2        ;** parameter2->输出UNICODE地址
call vbaStrToUnicode
返回eax                                ; 输出UNICODE地址
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$

[培训]内核驱动高级班,冲击BAT一流互联网大厂工 作,每周日13:00-18:00直播授课

收藏
点赞7
打赏
分享
最新回复 (6)
雪    币: 299
活跃值: (300)
能力值: ( LV9,RANK:290 )
在线值:
发帖
回帖
粉丝
clide2000 7 2005-2-11 18:16
2
0
学习,辛苦了
雪    币: 332
活跃值: (479)
能力值: ( LV9,RANK:330 )
在线值:
发帖
回帖
粉丝
laoqian 8 2005-2-11 20:49
3
0
绝对有用,而且基本够用!好好,收了!
雪    币: 296
活跃值: (250)
能力值: ( LV9,RANK:210 )
在线值:
发帖
回帖
粉丝
Winter-Night 5 2005-2-11 21:09
4
0
好东西
雪    币: 85496
活跃值: (198820)
能力值: (RANK:10 )
在线值:
发帖
回帖
粉丝
linhanshi 2005-2-11 23:31
5
0
我看不懂,但我支持!!!
雪    币: 292
活跃值: (110)
能力值: ( LV5,RANK:60 )
在线值:
发帖
回帖
粉丝
WR-911 1 2005-2-11 23:40
6
0
好象用处不太大,先支持一下!
雪    币: 206
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
xyzhusha 2006-2-20 03:22
7
0
原文:"vbaVarMul  ;加  如:c=a*b"

该是“乘”运算吧?
游客
登录 | 注册 方可回帖
返回