vb函数列表

@H_502_0@Variant 变量的内部表示:

@H_502_0@_______________________________________________________________

@H_502_0@符号常量值内部表示字节数

@H_502_0@V_EMPTY 0 Empty

@H_502_0@V_NULL 1 Null

@H_502_0@V_INTEGER 2 Interger 2

@H_502_0@V_LONG 3 Long 4

@H_502_0@V_SINGLE 4 Single 4

@H_502_0@V_DOUBLE 5 Double 8

@H_502_0@V_CURRENCY 6 Currency 8

@H_502_0@V_DATE 7 Date 8

@H_502_0@V_STRING 8 String

@H_502_0@V_OLE 9 OLE Automation Object

@H_502_0@V_ERROR 10 Error

@H_502_0@V_BOOLEAN 11 Boolean 2

@H_502_0@V_VARIANT 12 Variant(仅用于变体数组) 16(22)

@H_502_0@V_OBJECT 13 Object(非OLE自动化对象) 4

@H_502_0@V_BYTE 17 Byte 1

@H_502_0@V_ARRAY 8192 Array

@H_502_0@________________________________________________________________

@H_502_0@__vbaVarMove ;变体变量赋值(一般用于数值变量)

@H_502_0@lea edx,var1 ;变量1的地址放到edx

@H_502_0@lea ecx,var2 ;变量2的地址放到ecx

@H_502_0@call __vbaVarMove ;把变量1赋值给变量2

@H_502_0@;-------------------------------------------------

@H_502_0@__vbaVarCopy ;变体变量赋值(一般用于字符串变量)

@H_502_0@lea edx,var2 ;变量2的地址放到ecx

@H_502_0@call __vbaVarMove ;把变量1赋值给变量2

@H_502_0@;-------------------------------------------------

@H_502_0@__vbaVarAdd ;变体变量相加 +

@H_502_0@lea eax,var1

@H_502_0@push eax ;加数1

@H_502_0@lea ecx,var2

@H_502_0@push ecx ;加数2

@H_502_0@lea edx,var3

@H_502_0@push edx ;结果

@H_502_0@call __vbaVarAdd ;变量相加，在eax中返回

@H_502_0@;-------------------------------------------------

@H_502_0@__vbaVarSub ;变体变量相减 -

@H_502_0@lea eax,var1

@H_502_0@push eax ;被减数

@H_502_0@lea ecx,var2

@H_502_0@push ecx ;减数

@H_502_0@lea edx,var3

@H_502_0@push edx ;结果

@H_502_0@call __vbaVarSub ;变量相减，在eax中返回

@H_502_0@;-------------------------------------------------

@H_502_0@__vbaVarMul ;变体变量相乘 *

@H_502_0@lea eax,var1

@H_502_0@push eax ;被乘数

@H_502_0@lea ecx,var2

@H_502_0@push ecx ;乘数

@H_502_0@lea edx,var3

@H_502_0@push edx ;结果

@H_502_0@call __vbaVarMul ;变量相乘，在eax中返回

@H_502_0@;-------------------------------------------------

@H_502_0@__vbaVarDiv ;变体变量相除（浮点除法）/

@H_502_0@lea eax,var1

@H_502_0@push eax ;被除数

@H_502_0@lea ecx,var2

@H_502_0@push ecx ;除数

@H_502_0@lea edx,var3

@H_502_0@push edx ;结果

@H_502_0@call __vbaVarDiv ;变量相除，在eax中返回

@H_502_0@;------------------------------------------------

@H_502_0@__vbaVarIdiv ;变体变量相除（整数除法）/

@H_502_0@lea eax,var3

@H_502_0@push edx ;结果

@H_502_0@call __vbaVarIdiv ;变量相除，在eax中返回

@H_502_0@;------------------------------------------------

@H_502_0@__vbaVarMod ;变体变量取模运算 Mod

@H_502_0@lea eax,var3

@H_502_0@push edx ;结果

@H_502_0@call __vbaVarMod ;变量去模，在eax中返回

@H_502_0@;------------------------------------------------

@H_502_0@__vbaVarNeg ;变体变量前加负号 -

@H_502_0@lea eax,var1

@H_502_0@push eax ;变量

@H_502_0@lea ecx,var2

@H_502_0@push ecx ;结果

@H_502_0@call __vbaVarNeg ;对变量取补

@H_502_0@;------------------------------------------------

@H_502_0@__vbaVarPow ;变体变量求幂 ^

@H_502_0@lea eax,var1

@H_502_0@push eax ;底数

@H_502_0@lea ecx,var2

@H_502_0@push ecx ;指数

@H_502_0@lea edx,var3

@H_502_0@push edx ;结果

@H_502_0@call __vbaVarPow ;求幂，在eax中返回

@H_502_0@;------------------------------------------------

@H_502_0@__vbaVarTstGt ;关系运算 >

@H_502_0@lea eax,var1

@H_502_0@push eax ;变量1

@H_502_0@lea eax,var2

@H_502_0@push eax ;变量2

@H_502_0@call __vbaVarTstGt ;if var1 > var2 then ax = &Hffff

@H_502_0@;else ax = 0

@H_502_0@;end if

@H_502_0@;------------------------------------------------

@H_502_0@__vbaVarTstGe ;关系运算 >=

@H_502_0@lea eax,var2

@H_502_0@push eax ;变量2

@H_502_0@call __vbaVarTstGe ;if var1 >= var2 then ax = &Hffff

@H_502_0@;else ax = 0

@H_502_0@;end if

@H_502_0@;------------------------------------------------

@H_502_0@__vbaVarTstEq ;关系运算 =

@H_502_0@lea eax,var2

@H_502_0@push eax ;变量2

@H_502_0@call __vbaVarTstEq ;if var1 = var2 then ax = &Hffff

@H_502_0@;else ax = 0

@H_502_0@;end if

@H_502_0@;------------------------------------------------

@H_502_0@__vbaVarTstNe ;关系运算 <>

@H_502_0@lea eax,var2

@H_502_0@push eax ;变量2

@H_502_0@call __vbaVarTstNe ;if var1 <> var2 then ax = &Hffff

@H_502_0@;else ax = 0

@H_502_0@;end if

@H_502_0@;------------------------------------------------

@H_502_0@__vbaVarTstLt ;关系运算 <

@H_502_0@lea eax,var2

@H_502_0@push eax ;变量2

@H_502_0@call __vbaVarTstLt ;if var1 < var2 then ax = &Hffff

@H_502_0@;else ax = 0

@H_502_0@;end if

@H_502_0@;------------------------------------------------

@H_502_0@__vbaVarTstLe ;关系运算 <=

@H_502_0@lea eax,var2

@H_502_0@push eax ;变量2

@H_502_0@call __vbaVarTstLe ;if var1 <= var2 then ax = &Hffff

@H_502_0@;else ax = 0

@H_502_0@;end if

@H_502_0@;------------------------------------------------

@H_502_0@__vbaVarAnd ;逻辑运算 And

@H_502_0@lea eax,var1

@H_502_0@push eax ;变量1

@H_502_0@lea ecx,var2

@H_502_0@push ecx ;变量2

@H_502_0@lea edx,var3

@H_502_0@push edx ;结果

@H_502_0@call __vbaVarAnd ;逻辑运算,在eax中返回

@H_502_0@;------------------------------------------------

@H_502_0@__vbaVarOr ;逻辑运算 Or

@H_502_0@lea eax,var3

@H_502_0@push edx ;结果

@H_502_0@call __vbaVarOr ;逻辑运算,在eax中返回

@H_502_0@;------------------------------------------------

@H_502_0@__vbaVarXor ;逻辑运算 Xor

@H_502_0@lea eax,var3

@H_502_0@push edx ;结果

@H_502_0@call __vbaVarXor ;逻辑运算,在eax中返回

@H_502_0@;------------------------------------------------

@H_502_0@__vbaVarEqv ;逻辑运算 Eqv

@H_502_0@lea eax,var3

@H_502_0@push edx ;结果

@H_502_0@call __vbaVarEqv ;逻辑运算,在eax中返回

@H_502_0@;------------------------------------------------

@H_502_0@__vbaVarImp ;逻辑运算 Imp

@H_502_0@lea eax,var3

@H_502_0@push edx ;结果

@H_502_0@call __vbaVarImp ;逻辑运算,在eax中返回

@H_502_0@;------------------------------------------------

@H_502_0@__vbaVarNot ;逻辑运算 Not

@H_502_0@lea eax,var2

@H_502_0@push ecx ;结果

@H_502_0@call __vbaVarNot ;逻辑运算,在eax中返回

@H_502_0@;------------------------------------------------

@H_502_0@;------------------------------------------------下面是函数

@H_502_0@lea eax,var1 ;函数 Abs(num)

@H_502_0@push eax ;参数1 数值型

@H_502_0@lea ecx,var2

@H_502_0@push ecx ;结果

@H_502_0@call __vbaVarAbs ;在eax中返回结果

@H_502_0@;------------------------------------------------

@H_502_0@rtcAnsiValueBstr ;函数 Asc(string)

@H_502_0@lea eax,var1

@H_502_0@push eax ;参数1 字符串型

@H_502_0@call rtcAnsiValueBstr ;结果在eax中返回 interger

@H_502_0@;------------------------------------------------

@H_502_0@MSVBVM60.#585 ;函数 Atn(num)

@H_502_0@push ecx ;参数浮点数,用8个字节

@H_502_0@push ecx

@H_502_0@CALL MSVBVM60.#585 ;结果在浮点栈中返回

@H_502_0@;------------------------------------------------

@H_502_0@rtcVarBstrFromAnsi ;函数 Chr(interger)

@H_502_0@push eax ;参数1 整型

@H_502_0@call rtcVarBstrFromAnsi ;结果在eax中返回 string

@H_502_0@;------------------------------------------------

@H_502_0@rtcCommandVar ;函数 Command() #670

@H_502_0@push eax ;参数1 字符串

@H_502_0@call rtcCommandVar ;结果在eax中返回 string

@H_502_0@;------------------------------------------------

@H_502_0@rtcCos ;函数 Cos(num) #583

@H_502_0@call rtcCos ;输入参数在当前栈顶,8个字节,注意是浮点型

@H_502_0@fstp st ;结果在浮点栈顶

@H_502_0@;------------------------------------------------

@H_502_0@rtcCurrentDir ;函数 curdir(string) #647

@H_502_0@lea eax,var1 ;参数1 字符串

@H_502_0@push eax

@H_502_0@lea edx,var2 ;结果

@H_502_0@push edx

@H_502_0@call rtcCurrentDir ;结果在eax中返回

@H_502_0@;-------------------------------------------------

@H_502_0@rtcGetDateVar ;函数 Date #610

@H_502_0@lea edx,var1 ;结果

@H_502_0@push edx

@H_502_0@call rtcGetDateVar ;结果在eax中返回,日期型(Date)

@H_502_0@;-------------------------------------------------

@H_502_0@rtcDateAdd ;函数 DateAdd(string,double,date) #661

@H_502_0@push date ;8字节日期date

@H_502_0@push double ;8字节浮点数double

@H_502_0@push string ;1字节字符的ASCII码,这里是地址

@H_502_0@push var1 ;结果,日期型(date)

@H_502_0@call rtcDateAdd ;结果在eax中返回,日期型(Date)

@H_502_0@;--------------------------------------------------

@H_502_0@rtcDateDiff ;函数 DateDiff(string,date1,date2,...,...) #662

@H_502_0@push 1 ;默认值

@H_502_0@lea eax,var1 ;日期2

@H_502_0@push eax

@H_502_0@lea ecx,var2 ;日期1

@H_502_0@push ecx

@H_502_0@lea edx,var3 ;字符串

@H_502_0@push edx

@H_502_0@lea eax,var4 ;结果

@H_502_0@push eax

@H_502_0@call rtcDateDiff ;结果在eax中返回,长整型(long)

@H_502_0@;---------------------------------------------------

@H_502_0@rtcDatePart ;函数 DatePart(string,date,...) #663

@H_502_0@push 1 ;默认值

@H_502_0@lea eax,var1 ;日期

@H_502_0@push eax

@H_502_0@lea ecx,var2 ;字符串

@H_502_0@push ecx

@H_502_0@lea edx,var3 ;结果

@H_502_0@push edx

@H_502_0@call rtcDatePart ;结果在eax中返回

@H_502_0@;----------------------------------------------------

@H_502_0@rtcPackDate ;函数 DateSerial(integer,integer,integer) #538

@H_502_0@lea eax,var1 ;日

@H_502_0@push eax

@H_502_0@lea ecx,var2 ;月

@H_502_0@push ecx

@H_502_0@lea edx,var3 ;年

@H_502_0@push edx

@H_502_0@lea eax,var4 ;结果

@H_502_0@push eax

@H_502_0@call rtcPackDate ;结果在eax中返回,日期型(Date)

@H_502_0@;-----------------------------------------------------

@H_502_0@rtcGetDateValue ;函数 DateValue(string)

@H_502_0@lea eax,var1 ;字符串

@H_502_0@push eax

@H_502_0@lea edx,var2 ;结果

@H_502_0@push edx

@H_502_0@call rtcGetDateValue ;结果在eax中返回,日期型(Date)

@H_502_0@;-----------------------------------------------------

@H_502_0@rtcGetDayOfMonth ;函数 Day(date) #542

@H_502_0@lea eax,var2 ;结果

@H_502_0@push ecx

@H_502_0@call rtcGetDayOfMonth ;结果在eax中返回,整型

@H_502_0@;-----------------------------------------------------

@H_502_0@rtcDir ;函数 Dir #645

@H_502_0@lea eax,var1 ;属性

@H_502_0@push eax

@H_502_0@lea ecx,var2 ;路径

@H_502_0@push ecx

@H_502_0@call rtcDir ;结果在eax中返回,字符串型(string)

@H_502_0@;-----------------------------------------------------

@H_502_0@rtcExp ;函数 exp #586

@H_502_0@LEA EDX,DWORD PTR SS:[EBP-24] ;参数

@H_502_0@PUSH EDX

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.__vbaR8Var>] ;转换成浮点数,结果在浮点寄存器里

@H_502_0@SUB ESP,8

@H_502_0@FSTP QWORD PTR SS:[ESP] ;压入堆栈

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.#586>] ;rtcExp

@H_502_0@FSTP QWORD PTR SS:[EBP-2C] ;结果存入堆栈

@H_502_0@;-----------------------------------------------------

@H_502_0@rtcFileDateTime ;函数 FileDateTime #577

@H_502_0@LEA EDX,DWORD PTR SS:[EBP-34]

@H_502_0@PUSH 工程1.004016B0 ;文件名

@H_502_0@PUSH EDX ;结果

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.#577>] ;rtcFileDateTime

@H_502_0@;调用后结果同时在eax中

@H_502_0@;------------------------------------------------------

@H_502_0@rtcFileLen ;函数 FileLen #578

@H_502_0@PUSH 工程1.004016B0 ;文件名

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.#578>] ;rtcFileLen

@H_502_0@;结果在eax中

@H_502_0@;------------------------------------------------------

@H_502_0@__vbaVarFix ;函数Fix(参数1)

@H_502_0@LEA EDX,DWORD PTR SS:[EBP-24]

@H_502_0@LEA EAX,DWORD PTR SS:[EBP-54]

@H_502_0@PUSH EDX ;参数1

@H_502_0@PUSH EAX ;返回的结果

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.__vbaVarFix>]

@H_502_0@MOV EDX,EAX

@H_502_0@;------------------------------------------------------

@H_502_0@rtcHexVarFromVar ;函数 Hex(num)

@H_502_0@lea eax,var1

@H_502_0@push eax ;参数1 数值型

@H_502_0@lea ecx,var2

@H_502_0@push ecx ;存放结果的参数

@H_502_0@call rtcHexVarFromVar ;在eax中返回string

@H_502_0@;------------------------------------------------------

@H_502_0@rtcGetHourOfDay ;函数 Hour #543

@H_502_0@LEA EAX,DWORD PTR SS:[EBP-34] ;时间日期型参数

@H_502_0@LEA ECX,DWORD PTR SS:[EBP-44] ;存放结果的参数

@H_502_0@PUSH EAX

@H_502_0@PUSH ECX

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.#543>] ;Hour

@H_502_0@;结果同时在eax中返回

@H_502_0@;------------------------------------------------------

@H_502_0@rtcImmediateIf iif(参数1,参数2,参数3)

@H_502_0@LEA EDX,DWORD PTR SS:[EBP-54] ;参数3

@H_502_0@LEA EAX,DWORD PTR SS:[EBP-44] ;参数2

@H_502_0@PUSH EDX

@H_502_0@LEA ECX,DWORD PTR SS:[EBP-34] ;参数1,即表达式

@H_502_0@PUSH EAX

@H_502_0@LEA EDX,DWORD PTR SS:[EBP-64] ;存放结果的参数

@H_502_0@PUSH ECX

@H_502_0@PUSH EDX

@H_502_0@MOV DWORD PTR SS:[EBP-2C],-1

@H_502_0@MOV DWORD PTR SS:[EBP-34],0B

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.#681>] ;iif

@H_502_0@;结果同时在eax中返回

@H_502_0@;------------------------------------------------------

@H_502_0@__vbaInStrVar ;函数 InStr(起始位置,源字符串,目标字符串,比较方式)

@H_502_0@LEA EDX,DWORD PTR SS:[EBP-24]

@H_502_0@PUSH 1 ;起始位置,从1开始

@H_502_0@LEA EAX,DWORD PTR SS:[EBP-34]

@H_502_0@PUSH EDX ;被搜索的字符串

@H_502_0@PUSH EAX ;要搜的字符串

@H_502_0@LEA ECX,DWORD PTR SS:[EBP-54]

@H_502_0@PUSH 1 ;比较方式

@H_502_0@PUSH ECX ;返回的结果

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.__vbaInStrVar>]

@H_502_0@MOV EDX,EAX ;结果同时在eax中返回

@H_502_0@;------------------------------------------------------

@H_502_0@rtcInStrRev ;函数 InStrRev(源字符串,起始位置,比较方式) #709

@H_502_0@XOR ESI,ESI

@H_502_0@PUSH ESI ;比较方式

@H_502_0@PUSH -1 ;起始位置

@H_502_0@LEA EAX,DWORD PTR SS:[EBP-4C]

@H_502_0@LEA ECX,DWORD PTR SS:[EBP-24]

@H_502_0@PUSH EAX ;目标字符串

@H_502_0@LEA EDX,DWORD PTR SS:[EBP-48]

@H_502_0@PUSH ECX ;源字符串

@H_502_0@PUSH EDX ;返回的结果

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.#709>] ;rtcInStrRev

@H_502_0@;结果同时在eax中返回

@H_502_0@;------------------------------------------------------

@H_502_0@__vbaVarInt ;函数 Int(参数1)

@H_502_0@LEA ECX,DWORD PTR SS:[EBP-24]

@H_502_0@LEA EDX,DWORD PTR SS:[EBP-54]

@H_502_0@PUSH ECX ;参数1

@H_502_0@PUSH EDX ;返回的结果

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.__vbaVarInt>]

@H_502_0@MOV EDX,EAX ;结果同时在eax中返回

@H_502_0@;------------------------------------------------------

@H_502_0@rtcIsArray ;函数 IsArray #556

@H_502_0@LEA EAX,DWORD PTR SS:[EBP-2C] ;参数1 **这是指针

@H_502_0@PUSH EAX

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.#556>] ; MSVBVM60.rtcIsArray

@H_502_0@;结果在eax中返回

@H_502_0@;------------------------------------------------------

@H_502_0@rtcIsDate ;函数 IsDate #557

@H_502_0@LEA EAX,DWORD PTR SS:[EBP-2C] ;参数1 **这是指针

@H_502_0@PUSH EAX

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.#557>]; MSVBVM60.rtcIsDate

@H_502_0@;结果在eax中返回

@H_502_0@;------------------------------------------------------

@H_502_0@rtcIsEmpty ;函数 IsEmpty #558

@H_502_0@LEA EAX,DWORD PTR SS:[EBP-2C] ;参数1 **这是指针

@H_502_0@PUSH EAX

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.#558>] ; MSVBVM60.rtcIsEmpty

@H_502_0@;结果在eax中返回

@H_502_0@;------------------------------------------------------

@H_502_0@rtcIsError ;函数 IsError #559

@H_502_0@LEA EAX,DWORD PTR SS:[EBP-2C] ;参数1 **这是指针

@H_502_0@PUSH EAX

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.#559>] ; MSVBVM60.rtcIsError

@H_502_0@;结果在eax中返回

@H_502_0@;------------------------------------------------------

@H_502_0@rtcIsMissing ;函数 IsMissing #592

@H_502_0@LEA EAX,DWORD PTR SS:[EBP-2C] ;参数1 **这是指针

@H_502_0@PUSH EAX

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.#592>] ; MSVBVM60.rtcIsMissing

@H_502_0@;结果在eax中返回

@H_502_0@;------------------------------------------------------

@H_502_0@rtcIsNull ;函数 IsNull #560

@H_502_0@LEA EAX,DWORD PTR SS:[EBP-2C] ;参数1 **这是指针

@H_502_0@PUSH EAX

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.#560>] ;MSVBVM60.rtcIsNull

@H_502_0@;结果在eax中返回

@H_502_0@;------------------------------------------------------

@H_502_0@rtcIsNumeric ;函数 IsNumeric #561

@H_502_0@LEA EAX,DWORD PTR SS:[EBP-2C] ;参数1 **这里指针

@H_502_0@PUSH EAX

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.#561>];MSVBVM60.rtcIsNumeric

@H_502_0@;结果在eax中返回

@H_502_0@;------------------------------------------------------

@H_502_0@rtcIsObject ;函数 IsObject #562

@H_502_0@LEA EAX,DWORD PTR SS:[EBP-2C]

@H_502_0@PUSH EAX

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.#562>] ;MSVBVM60.rtcIsObject

@H_502_0@;结果在eax中返回

@H_502_0@;------------------------------------------------------

@H_502_0@__vbaLbound ;函数 Lbound

@H_502_0@LEA EAX,DWORD PTR SS:[EBP-2C] ;参数1,数组

@H_502_0@PUSH EAX

@H_502_0@PUSH 1 ;参数2,数组维数

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.__vbaLboun>; MSVBVM60.__vbaLbound

@H_502_0@;结果在eax中返回

@H_502_0@;------------------------------------------------------

@H_502_0@rtcLowerCaseVar ;函数 Lcase #518

@H_502_0@LEA EDX,DWORD PTR SS:[EBP-24] ;参数1

@H_502_0@LEA EAX,DWORD PTR SS:[EBP-48] ;结果

@H_502_0@PUSH EDX

@H_502_0@PUSH EAX

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.#518>] ;MSVBVM60.rtcLowerCaseVar

@H_502_0@;结果在eax中返回

@H_502_0@;------------------------------------------------------

@H_502_0@rtcLeftCharVar ;函数 Left #617

@H_502_0@LEA EDX,DWORD PTR SS:[EBP-24] ;参数1

@H_502_0@PUSH 3 ;参数2

@H_502_0@LEA EAX,DWORD PTR SS:[EBP-48] ;结果

@H_502_0@PUSH EDX

@H_502_0@PUSH EAX

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.#617>];MSVBVM60.rtcLeftCharVar

@H_502_0@;结果在eax中返回

@H_502_0@;------------------------------------------------------

@H_502_0@__vbaLenBstr ;函数 Len

@H_502_0@MOV EDX,DWORD PTR SS:[EBP-18] ;参数1

@H_502_0@PUSH EDX

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.__vbaLenBs>; MSVBVM60.__vbaLenBstr

@H_502_0@;结果在eax中返回

@H_502_0@;------------------------------------------------------

@H_502_0@__vbaLenBstrB ;函数 LenB

@H_502_0@MOV EAX,DWORD PTR SS:[EBP-18] ;参数1

@H_502_0@PUSH EAX

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.__vbaLenBs>; MSVBVM60.__vbaLenBstrB

@H_502_0@;结果在eax中返回

@H_502_0@;------------------------------------------------------

@H_502_0@rtcLog ;函数 Log #587

@H_502_0@LEA EDX,DWORD PTR SS:[EBP-38] ;要作为参数的变量

@H_502_0@PUSH EDX

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.__vbaR8Var> ;转换成实数,结果在浮点栈中

@H_502_0@SUB ESP,8

@H_502_0@FSTP QWORD PTR SS:[ESP] ;参数入栈

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.#587>] ; MSVBVM60.rtcLog

@H_502_0@;结果在浮点栈中

@H_502_0@;------------------------------------------------------

@H_502_0@rtcLeftTrimVar ;函数 Ltrim #522

@H_502_0@LEA ECX,DWORD PTR SS:[EBP-68] ;参数1

@H_502_0@LEA EDX,DWORD PTR SS:[EBP-58] ;结果

@H_502_0@PUSH ECX

@H_502_0@PUSH EDX

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.#522>] ; MSVBVM60.rtcLeftTrimVar

@H_502_0@;结果在eax中返回

@H_502_0@;------------------------------------------------------

@H_502_0@rtcMidCharVar ;函数 Mid

@H_502_0@PUSH EAX ;参数3

@H_502_0@LEA ECX,DWORD PTR SS:[EBP-58]

@H_502_0@PUSH 3 ;参数2

@H_502_0@LEA EDX,DWORD PTR SS:[EBP-48]

@H_502_0@PUSH ECX ;参数1

@H_502_0@PUSH EDX ;结果

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.#632>];MSVBVM60.rtcMidCharVar

@H_502_0@;结果在eax中返回

@H_502_0@;------------------------------------------------------

@H_502_0@rtcGetMinuteOfHour ;函数 Minute #544

@H_502_0@LEA EAX,DWORD PTR SS:[EBP-24] ;参数1

@H_502_0@LEA ECX,DWORD PTR SS:[EBP-64] ;结果

@H_502_0@PUSH EAX

@H_502_0@PUSH ECX

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.#544>] ;MSVBVM60.rtcGetMinuteOfHour

@H_502_0@;结果在eax中返回

@H_502_0@;------------------------------------------------------

@H_502_0@rtcGetMonthOfYear ;函数 Month #545

@H_502_0@LEA EDX,DWORD PTR SS:[EBP-64] ;结果

@H_502_0@PUSH EDX

@H_502_0@PUSH EAX

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.#545>] ;MSVBVM60.rtcGetMonthOfYear

@H_502_0@;结果在eax中返回

@H_502_0@;------------------------------------------------------

@H_502_0@rtcMonthName ;函数 MonthName #707

@H_502_0@PUSH EAX ;参数1

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.#707>] ;MSVBVM60.rtcMonthName

@H_502_0@;结果在eax中返回

@H_502_0@;------------------------------------------------------

@H_502_0@rtcMsgBox ;函数 MsgBox

@H_502_0@LEA EAX,DWORD PTR SS:[EBP-64]

@H_502_0@LEA ECX,DWORD PTR SS:[EBP-54]

@H_502_0@PUSH EAX ;参数5

@H_502_0@LEA EDX,DWORD PTR SS:[EBP-34]

@H_502_0@PUSH ECX ;参数4

@H_502_0@PUSH EDX ;参数3

@H_502_0@LEA EAX,DWORD PTR SS:[EBP-24]

@H_502_0@PUSH ESI ;参数2

@H_502_0@PUSH EAX ;参数1

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.#595>]; MSVBVM60.rtcMsgBox

@H_502_0@;结果在eax中返回

@H_502_0@;------------------------------------------------------

@H_502_0@rtcGetPresentDate ;函数 Now #546

@H_502_0@LEA EDX,DWORD PTR SS:[EBP-34] ;存放结果的参数

@H_502_0@PUSH EDX ;

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.#546>] ;Now

@H_502_0@;结果同时在eax中返回

@H_502_0@;------------------------------------------------------

@H_502_0@rtcOctVarFromVar ;函数 Oct(num)

@H_502_0@lea eax,var2

@H_502_0@push ecx ;结果

@H_502_0@call rtcOctVarFromVar ;在eax中返回string

@H_502_0@;------------------------------------------------------

@H_502_0@rtcReplace ;函数 Replace #712

@H_502_0@PUSH ESI ;参数6

@H_502_0@PUSH -1 ;参数5

@H_502_0@PUSH 1 ;参数4

@H_502_0@LEA EAX,DWORD PTR SS:[EBP-60]

@H_502_0@PUSH EAX ;参数3

@H_502_0@LEA EDX,DWORD PTR SS:[EBP-5C]

@H_502_0@PUSH EDX ;参数2

@H_502_0@LEA EAX,DWORD PTR SS:[EBP-24]

@H_502_0@PUSH EAX ;参数1

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.#712>]; MSVBVM60.rtcReplace

@H_502_0@;结果在eax中返回

@H_502_0@;-----------------------------------------------------

@H_502_0@rtcRgb ;函数 #588

@H_502_0@PUSH 28 ;参数3

@H_502_0@PUSH 1E ;参数2

@H_502_0@PUSH 14 ;参数1

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.#588>]; MSVBVM60.rtcRgb

@H_502_0@;结果在eax中返回

@H_502_0@;-----------------------------------------------------

@H_502_0@rtcRightCharVar ;函数Right #619

@H_502_0@LEA EDX,DWORD PTR SS:[EBP-24]

@H_502_0@PUSH 3 ;参数2

@H_502_0@LEA EAX,DWORD PTR SS:[EBP-44]

@H_502_0@PUSH EDX ;参数1

@H_502_0@PUSH EAX ;结果

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.#619>];MSVBVM60.rtcRightCharVar

@H_502_0@;结果在eax中返回

@H_502_0@;-----------------------------------------------------

@H_502_0@rtcRound ;函数 Round #714

@H_502_0@LEA EDX,DWORD PTR SS:[EBP-24]

@H_502_0@PUSH EDI ;参数2

@H_502_0@LEA EAX,DWORD PTR SS:[EBP-44]

@H_502_0@PUSH EDX ;参数1

@H_502_0@PUSH EAX ;结果

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.#714>] ;MSVBVM60.rtcRound

@H_502_0@;结果在eax中返回

@H_502_0@;-----------------------------------------------------

@H_502_0@rtcRandomize ;函数 Randomize #594

@H_502_0@LEA EDX,DWORD PTR SS:[EBP-34]

@H_502_0@PUSH EDX

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.#594>] ; MSVBVM60.rtcRandomize

@H_502_0@;-----------------------------------------------------

@H_502_0@rtcRandomNext ;函数 Rnd #593

@H_502_0@LEA EAX,DWORD PTR SS:[EBP-34]

@H_502_0@PUSH EAX ;参数1

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.#593>] ; MSVBVM60.rtcRandomNext

@H_502_0@;结果在浮点栈中

@H_502_0@;-----------------------------------------------------

@H_502_0@rtcRightTrimVar ;函数 Rtrim #524

@H_502_0@LEA ECX,DWORD PTR SS:[EBP-58] ;结果

@H_502_0@PUSH ECX

@H_502_0@PUSH EDX

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.#524>] ; MSVBVM60.rtcRightTrimVar

@H_502_0@;结果在eax中返回

@H_502_0@;-----------------------------------------------------

@H_502_0@rtcGetSecondOfMinute ;函数 Sound #547

@H_502_0@LEA EAX,DWORD PTR SS:[EBP-44] ;结果

@H_502_0@PUSH EAX

@H_502_0@PUSH ECX

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.#547>];MSVBVM60.rtcGetSecondOfMinute

@H_502_0@;结果在eax中返回

@H_502_0@;-----------------------------------------------------

@H_502_0@__vbaR8Sgn ;函数 Sgn

@H_502_0@PUSH EDX

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.__vbaR8Var>;MSVBVM60.__vbaR8Var

@H_502_0@SUB ESP,8

@H_502_0@FSTP QWORD PTR SS:[ESP] ;参数1

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.__vbaR8Sgn>;MSVBVM60.__vbaR8Sgn

@H_502_0@;结果在ax中返回

@H_502_0@;-----------------------------------------------------

@H_502_0@rtcShell ;函数 Shell #600

@H_502_0@PUSH 1 ;参数2

@H_502_0@PUSH EDX ;参数1

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.#600>];MSVBVM60.rtcShell

@H_502_0@;结果在浮点栈中

@H_502_0@;-----------------------------------------------------

@H_502_0@rtcSin ;函数 Sin #582

@H_502_0@LEA EDX,DWORD PTR SS:[EBP-24]

@H_502_0@PUSH EDX

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.__vbaR8Var>;MSVBVM60.__vbaR8Var

@H_502_0@SUB ESP,8

@H_502_0@FSTP QWORD PTR SS:[ESP] ;参数1

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.#582>] ;MSVBVM60.rtcSin

@H_502_0@;结果在浮点栈中

@H_502_0@;-----------------------------------------------------

@H_502_0@rtcSpaceVar ;函数 Space #526

@H_502_0@PUSH 5 ;参数1

@H_502_0@LEA EDX,DWORD PTR SS:[EBP-34]

@H_502_0@PUSH EDX ;结果

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.#526>]; MSVBVM60.rtcSpaceVar

@H_502_0@;结果在eax中返回

@H_502_0@;-----------------------------------------------------

@H_502_0@rtcSplit ;函数 Split #711

@H_502_0@PUSH ESI ;参数4

@H_502_0@LEA EDX,DWORD PTR SS:[EBP-48]

@H_502_0@PUSH -1 ;参数3

@H_502_0@LEA EAX,DWORD PTR SS:[EBP-24]

@H_502_0@PUSH EDX ;参数2

@H_502_0@LEA ECX,DWORD PTR SS:[EBP-38]

@H_502_0@LEA EDX,DWORD PTR SS:[EBP-58]

@H_502_0@PUSH EAX ;参数1

@H_502_0@PUSH EDX ;结果

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.#711>] ;MSVBVM60.rtcSplit

@H_502_0@;结果在eax中返回

@H_502_0@;-----------------------------------------------------

@H_502_0@rtcSqr ;函数 rtcSqr #614

@H_502_0@LEA EDX,8

@H_502_0@FSTP QWORD PTR SS:[ESP] ;参数1

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.#614>] ;MSVBVM60.rtcSqr

@H_502_0@;结果在浮点栈中

@H_502_0@;-----------------------------------------------------

@H_502_0@rtcVarStrFromVar ;函数 Str #613

@H_502_0@LEA EDX,DWORD PTR SS:[EBP-44]

@H_502_0@PUSH EDX ;参数1

@H_502_0@PUSH EAX ;结果

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.#613>] ;MSVBVM60.rtcVarStrFromVar

@H_502_0@;结果在eax中返回

@H_502_0@;-----------------------------------------------------

@H_502_0@__vbaStrCompVar ;函数 StrComp

@H_502_0@LEA EDX,DWORD PTR SS:[EBP-34]

@H_502_0@PUSH EDX ;参数1

@H_502_0@PUSH EAX ;参数2

@H_502_0@LEA ECX,DWORD PTR SS:[EBP-54]

@H_502_0@PUSH EDI ;参数3

@H_502_0@PUSH ECX ;结果

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.__vbaStrCo>;MSVBVM60.__vbaStrCompVar

@H_502_0@;结果在eax中返回

@H_502_0@;-----------------------------------------------------

@H_502_0@rtcStrConvVar2 ;函数 Strconv #717

@H_502_0@PUSH EDI ;参数3

@H_502_0@LEA EDX,DWORD PTR SS:[EBP-24]

@H_502_0@PUSH 1 ;参数2

@H_502_0@LEA EAX,DWORD PTR SS:[EBP-44]

@H_502_0@PUSH EDX ;参数1

@H_502_0@PUSH EAX ;结果

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.#717>]; MSVBVM60.rtcStrConvVar2

@H_502_0@;结果在eax中返回

@H_502_0@;-----------------------------------------------------

@H_502_0@rtcStringVar ;函数 String

@H_502_0@LEA EDX,DWORD PTR SS:[EBP-44]

@H_502_0@PUSH EDX ;参数2

@H_502_0@PUSH 5 ;参数1

@H_502_0@PUSH EAX ;结果

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.#607>];MSVBVM60.rtcStringVar

@H_502_0@;结果在eax中返回

@H_502_0@;-----------------------------------------------------

@H_502_0@rtcStrReverse ;函数 StrReverse #713

@H_502_0@LEA EAX,DWORD PTR SS:[EBP-38]

@H_502_0@PUSH EAX ;参数1

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.#713>] ;MSVBVM60.rtcStrReverse

@H_502_0@;结果在eax中返回

@H_502_0@;-----------------------------------------------------

@H_502_0@rtcTan ;函数 Tan #584

@H_502_0@LEA EDX,8

@H_502_0@FSTP QWORD PTR SS:[ESP] ;参数1

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.#584>] ;MSVBVM60.rtcTan

@H_502_0@;结果在浮点栈中返回

@H_502_0@;-----------------------------------------------------

@H_502_0@rtcGetTimeVar ;函数 Time #612

@H_502_0@LEA EDX,DWORD PTR SS:[EBP-34]

@H_502_0@PUSH EDX ;结果

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.#612>];MSVBVM60.rtcGetTimeVar

@H_502_0@;结果在eax中返回

@H_502_0@-------------------------------------------------------

@H_502_0@rtcGetTimer ;函数 Timer #535

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.#535>] ; MSVBVM60.rtcGetTimer

@H_502_0@;结果在浮点栈中返回

@H_502_0@;-----------------------------------------------------

@H_502_0@rtcPackTime ;函数 TimeSerial #539

@H_502_0@LEA EDX,DWORD PTR SS:[EBP-44]

@H_502_0@PUSH EDX ;参数3

@H_502_0@LEA EAX,DWORD PTR SS:[EBP-34]

@H_502_0@PUSH EAX ;参数2

@H_502_0@LEA ECX,DWORD PTR SS:[EBP-24]

@H_502_0@PUSH ECX ;参数1

@H_502_0@LEA EDX,DWORD PTR SS:[EBP-64]

@H_502_0@PUSH EDX ;结果

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.#539>] ;MSVBVM60.rtcPackTime

@H_502_0@;结果在eax中返回

@H_502_0@-------------------------------------------------------

@H_502_0@rtcGetTimeValue ;函数 TimeValue #541

@H_502_0@LEA EAX,DWORD PTR SS:[EBP-38]

@H_502_0@LEA ECX,DWORD PTR SS:[EBP-48]

@H_502_0@PUSH EAX ;参数1

@H_502_0@PUSH ECX ;结果

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.#541>] ;MSVBVM60.rtcGetTimeValue

@H_502_0@;结果在eax中返回

@H_502_0@-------------------------------------------------------

@H_502_0@rtcTrimVar ;函数 Trim #520

@H_502_0@LEA ECX,DWORD PTR SS:[EBP-58] ;结果

@H_502_0@PUSH ECX

@H_502_0@PUSH EDX

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.#520>] ; MSVBVM60.rtcTrimVar

@H_502_0@;结果在eax中返回

@H_502_0@-------------------------------------------------------

@H_502_0@rtcTypeName ;函数 TypeName #591

@H_502_0@LEA EDX,DWORD PTR SS:[EBP-24]

@H_502_0@PUSH EDX ;参数1

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.#591>];MSVBVM60.rtcTypeName

@H_502_0@;结果在eax中返回

@H_502_0@-------------------------------------------------------

@H_502_0@__vbaUbound ;函数 Ubound

@H_502_0@LEA ECX,数组

@H_502_0@PUSH ECX

@H_502_0@PUSH 1 ;参数2,数组维数

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.__vbaUboun>;MSVBVM60.__vbaUbound

@H_502_0@;结果在eax中返回

@H_502_0@;------------------------------------------------------

@H_502_0@rtcUpperCaseVar ;函数 Ucase

@H_502_0@LEA ECX,DWORD PTR SS:[EBP-24] ;参数1

@H_502_0@LEA EDX,DWORD PTR SS:[EBP-48] ;结果

@H_502_0@PUSH ECX

@H_502_0@PUSH EDX

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.#528>] ;MSVBVM60.rtcUpperCaseVar

@H_502_0@;结果在eax中返回

@H_502_0@;------------------------------------------------------

@H_502_0@rtcR8ValFromBstr ;函数 Val #581

@H_502_0@LEA EAX,DWORD PTR SS:[EBP-38]

@H_502_0@PUSH EAX ;参数1

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.#581>];MSVBVM60.rtcR8ValFromBstr

@H_502_0@;结果在浮点栈中

@H_502_0@;-----------------------------------------------------

@H_502_0@rtcVarType ;函数 VarType #563

@H_502_0@LEA EDX,DWORD PTR SS:[EBP-24]

@H_502_0@PUSH EDX ;参数1

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.#563>];MSVBVM60.rtcVarType

@H_502_0@;结果在eax中

@H_502_0@;-----------------------------------------------------

@H_502_0@rtcWeekdayName ;函数 WeekdayName #706

@H_502_0@PUSH EDI

@H_502_0@LEA EDX,DWORD PTR SS:[EBP-24]

@H_502_0@PUSH EDI

@H_502_0@PUSH EDX

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.#706>];MSVBVM60.rtcWeekdayName

@H_502_0@;结果在eax中

@H_502_0@;-----------------------------------------------------

@H_502_0@rtcGetYear ;函数 Year #553

@H_502_0@LEA EAX,DWORD PTR SS:[EBP-24]

@H_502_0@LEA ECX,DWORD PTR SS:[EBP-44]

@H_502_0@PUSH EAX ;参数1

@H_502_0@PUSH ECX ;结果

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.#553>];MSVBVM60.rtcGetYear

@H_502_0@;结果在eax中

@H_502_0@;-----------------------------------------------------

@H_502_0@__vbaBoolErrVar ;函数 CBool

@H_502_0@LEA EDX,DWORD PTR SS:[EBP-74]

@H_502_0@PUSH EDX ;参数1

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.__vbaBoolE>; MSVBVM60.__vbaBoolErrVar

@H_502_0@;结果在ax中

@H_502_0@;-----------------------------------------------------

@H_502_0@__vbaUI1ErrVar ;函数 Cbyte

@H_502_0@LEA EAX,DWORD PTR SS:[EBP-74]

@H_502_0@PUSH EAX ;参数1

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.__vbaUI1Er>; MSVBVM60.__vbaUI1ErrVar

@H_502_0@;结果在al中

@H_502_0@;-----------------------------------------------------

@H_502_0@__vbaCyErrVar ;函数 Ccur

@H_502_0@LEA ECX,DWORD PTR SS:[EBP-74]

@H_502_0@PUSH ECX ;参数1

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.__vbaCyErr>; MSVBVM60.__vbaCyErrVar

@H_502_0@;结果在eax中

@H_502_0@;-----------------------------------------------------

@H_502_0@__vbaDateVar ;函数 Cdate

@H_502_0@LEA EDX,DWORD PTR SS:[EBP-74]

@H_502_0@PUSH EDX ;参数1

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.__vbaDateV>; MSVBVM60.__vbaDateVar

@H_502_0@SUB ESP,8

@H_502_0@FSTP QWORD PTR SS:[ESP]

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.__vbaDateR>; MSVBVM60.__vbaDateR8

@H_502_0@;结果在浮点栈中

@H_502_0@;-----------------------------------------------------

@H_502_0@__vbaR8ErrVar ;函数 Cdbl

@H_502_0@LEA EAX,DWORD PTR SS:[EBP-74]

@H_502_0@PUSH EAX ;参数1

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.__vbaR8Err>; MSVBVM60.__vbaR8ErrVar

@H_502_0@;结果在浮点栈中

@H_502_0@;-----------------------------------------------------

@H_502_0@rtDecFromVar ;函数 Cdec #564

@H_502_0@LEA ECX,DWORD PTR SS:[EBP-F4]

@H_502_0@LEA EDX,DWORD PTR SS:[EBP-74]

@H_502_0@PUSH ECX ;参数1

@H_502_0@PUSH EDX ;结果

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.#564>] ; MSVBVM60.rtDecFromVar

@H_502_0@;结果在eax中

@H_502_0@;-----------------------------------------------------

@H_502_0@__vbaI2ErrVar ;函数 Cint

@H_502_0@LEA EAX,DWORD PTR SS:[EBP-74]

@H_502_0@PUSH EAX ;参数1

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.__vbaI2Err>; MSVBVM60.__vbaI2ErrVar

@H_502_0@;结果在ax中

@H_502_0@;-----------------------------------------------------

@H_502_0@__vbaI4ErrVar ;函数 Clng

@H_502_0@LEA ECX,DWORD PTR SS:[EBP-74]

@H_502_0@PUSH ECX ;参数1

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.__vbaI4Err>; MSVBVM60.__vbaI4ErrVar

@H_502_0@;结果在eax中

@H_502_0@;-----------------------------------------------------

@H_502_0@__vbaR4ErrVar ;函数 Csng

@H_502_0@LEA EDX,DWORD PTR SS:[EBP-74]

@H_502_0@PUSH EDX ;参数1

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.__vbaR4Err>; MSVBVM60.__vbaR4ErrVar

@H_502_0@;结果在浮点栈中

@H_502_0@;-----------------------------------------------------

@H_502_0@__vbaStrErrVarCopy ;函数 Cstr

@H_502_0@LEA EAX,DWORD PTR SS:[EBP-74]

@H_502_0@PUSH EAX ;参数1

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.__vbaStrEr>; MSVBVM60.__vbaStrErrVarCopy

@H_502_0@;结果在eax中

@H_502_0@;-----------------------------------------------------

@H_502_0@__vbaVarCopy ;函数 Cvar

@H_502_0@LEA EDX,DWORD PTR SS:[EBP-74] ;参数1

@H_502_0@LEA ECX,DWORD PTR SS:[EBP-54] ;结果

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.__vbaVarCo>; MSVBVM60.__vbaVarCopy

@H_502_0@;结果在eax中

@H_502_0@;-----------------------------------------------------

@H_502_0@__vbaFileOpen ;Open语句

@H_502_0@PUSH 工程1.004014C0 ;文件名

@H_502_0@PUSH 1 ;文件号

@H_502_0@PUSH 1 ;len

@H_502_0@PUSH 320 ;for,access,lock

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.__vbaFileO>; MSVBVM60.__vbaFileOpen

@H_502_0@;------------------------------------------------------

@H_502_0@__vbaFileClose ;Close语句

@H_502_0@PUSH 1 ;文件号

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.__vbaFileC>; MSVBVM60.__vbaFileClose

@H_502_0@;------------------------------------------------------

@H_502_0@rtcFreeFile ;函数 FreeFile

@H_502_0@LEA EAX,DWORD PTR SS:[EBP-34]

@H_502_0@PUSH EAX ;结果

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.#648>]; MSVBVM60.rtcFreeFile

@H_502_0@;结果在ax中

@H_502_0@;------------------------------------------------------

@H_502_0@rtcFileLength ;函数 LOF #570

@H_502_0@LEA EDX,DWORD PTR SS:[EBP-34]

@H_502_0@PUSH EDX ;文件号

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.#570>]; MSVBVM60.rtcFileLength

@H_502_0@;结果在eax中

@H_502_0@;------------------------------------------------------

@H_502_0@rtcFileLocation ;函数 loc #569

@H_502_0@LEA EAX,DWORD PTR SS:[EBP-34]

@H_502_0@PUSH EAX ;文件号

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.#569>]; MSVBVM60.rtcFileLocation

@H_502_0@;结果在eax中

@H_502_0@;------------------------------------------------------

@H_502_0@rtcFileAttributes ;函数 FileAttr #555

@H_502_0@LEA ECX,DWORD PTR SS:[EBP-34]

@H_502_0@PUSH 1 ;属性

@H_502_0@PUSH ECX ;文件号

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.#555>]; MSVBVM60.rtcFileAttributes

@H_502_0@;结果在eax中

@H_502_0@;------------------------------------------------------

@H_502_0@__vbaPrintFile ;Print #文件号,变量 (顺序文件操作)

@H_502_0@LEA EAX,DWORD PTR SS:[EBP-34]

@H_502_0@PUSH ECX ;变量

@H_502_0@PUSH EAX ;文件号

@H_502_0@PUSH 工程1.00401948

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.__vbaPrint>;MSVBVM60.__vbaPrintFile

@H_502_0@;-----------------------------------------------------

@H_502_0@__vbaWriteFile ;write #文件号,变量 (顺序文件操作)

@H_502_0@LEA EDX,DWORD PTR SS:[EBP-34]

@H_502_0@PUSH EDX ;变量

@H_502_0@PUSH EAX ;文件号

@H_502_0@PUSH 工程1.00401948

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.__vbaWrite>;MSVBVM60.__vbaWriteFile

@H_502_0@;-----------------------------------------------------

@H_502_0@__vbaInputFile ;input #文件号,DWORD PTR SS:[EBP-34]

@H_502_0@PUSH EAX ;变量

@H_502_0@PUSH ECX ;文件号

@H_502_0@PUSH 工程1.00401938

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.__vbaInput>; MSVBVM60.__vbaInputFile

@H_502_0@;-----------------------------------------------------

@H_502_0@__vbaLineInputVar ;line input #文件号,DWORD PTR SS:[EBP-34]

@H_502_0@PUSH EDX ;文件号

@H_502_0@LEA EAX,DWORD PTR SS:[EBP-44]

@H_502_0@PUSH EAX ;变量

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.__vbaLineI>; MSVBVM60.__vbaLineInputVar

@H_502_0@;结果在eax中返回

@H_502_0@;-----------------------------------------------------

@H_502_0@rtcInputCharCountVar ;函数 input(#文件号,长度) #621 (顺序文件操作)

@H_502_0@LEA ECX,DWORD PTR SS:[EBP-34]

@H_502_0@PUSH ECX ;文件号

@H_502_0@LEA EDX,DWORD PTR SS:[EBP-64]

@H_502_0@PUSH 2 ;长度

@H_502_0@PUSH EDX ;结果

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.#621>]; MSVBVM60.rtcInputCharCountVar

@H_502_0@;结果在eax中返回

@H_502_0@;-----------------------------------------------------

@H_502_0@__vbaPut4 ;语句 Put 文件号,位置,变量 (binary文件操作)

@H_502_0@LEA EAX,DWORD PTR SS:[EBP-34]

@H_502_0@PUSH EAX ;文件号

@H_502_0@LEA ECX,DWORD PTR SS:[EBP-24]

@H_502_0@PUSH 2 ;位置

@H_502_0@PUSH ECX ;变量

@H_502_0@PUSH -1

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.__vbaPut4>>;MSVBVM60.__vbaPut4

@H_502_0@;-----------------------------------------------------

@H_502_0@__vbaFileSeek ;语句 Seek 文件号,位置 (binary文件操作)

@H_502_0@LEA EDX,DWORD PTR SS:[EBP-34]

@H_502_0@PUSH EDX ;文件号

@H_502_0@PUSH 2 ;位置

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.__vbaFileS>;MSVBVM60.__vbaFileSeek

@H_502_0@;-----------------------------------------------------

@H_502_0@__vbaGet4 ;语句 Get 文件号,DWORD PTR SS:[EBP-44]

@H_502_0@PUSH 2 ;位置

@H_502_0@PUSH ECX ;变量

@H_502_0@PUSH -1

@H_502_0@CALL DWORD PTR DS:[<&MSVBVM60.__vbaGet4>>;MSVBVM60.__vbaGet4

vb函数列表

猜你在找的VB相关文章