首页
社区
课程
招聘
[旧帖] [解决]如何获得当前时间并写入注册表 0.00雪花
发表于: 2007-10-25 21:18 4766

[旧帖] [解决]如何获得当前时间并写入注册表 0.00雪花

2007-10-25 21:18
4766
是一个VB程序,我在原程序找到下面这段就有获得当前时间并写入注册表的功能。
因为我不知道下面几个函数的输入和输出参数,不会编写。
不只哪位兄弟能帮忙写段通用代码。(用于插入源代码中) 

PUSHAD
.......
.......
.......
.....
POPAD

006A2377   > \8D4D BC       lea     ecx, dword ptr [ebp-44]
006A237A   .  51            push    ecx                                    ; 
006A237B   .  FF15 A4134000 call    dword ptr [<&MSVBVM60.#546>]           ;  MSVBVM60.rtcGetPresentDate<- 取得当前日期

006A2381   .  8D95 1CFFFFFF lea     edx, dword ptr [ebp-E4]
006A2387   .  8D4D AC       lea     ecx, dword ptr [ebp-54]
006A238A   .  C785 24FFFFFF>mov     dword ptr [ebp-DC], 0044E7AC           ;  UNICODE "YYYY-MM-DD HH:MM"
006A2394   .  C785 1CFFFFFF>mov     dword ptr [ebp-E4], 8                  ;  复制一个变量
006A239E   .  FF15 30134000 call    dword ptr [<&MSVBVM60.__vbaVarDup>]    ;  MSVBVM60.__vbaVarDup
006A23A4   .  6A 01         push    1
006A23A6   .  8D55 AC       lea     edx, dword ptr [ebp-54]
006A23A9   .  6A 01         push    1
006A23AB   .  8D45 BC       lea     eax, dword ptr [ebp-44]
006A23AE   .  52            push    edx
006A23AF   .  8D4D 9C       lea     ecx, dword ptr [ebp-64]
006A23B2   .  50            push    eax
006A23B3   .  51            push    ecx
006A23B4   .  FF15 9C104000 call    dword ptr [<&MSVBVM60.#660>]           ;  MSVBVM60.rtcVarFromFormatVar
006A23BA   .  8D55 9C       lea     edx, dword ptr [ebp-64]
006A23BD   .  8D45 E4       lea     eax, dword ptr [ebp-1C]
006A23C0   .  52            push    edx
006A23C1   .  50            push    eax
006A23C2   .  FF15 80124000 call    dword ptr [<&MSVBVM60.__vbaStrVarVal>] ;  MSVBVM60.__vbaStrVarVal
006A23C8   .  50            push    eax
006A23C9   .  68 98E74400   push    0044E798                               ;  UNICODE "regDate"
006A23CE   .  68 EC234400   push    004423EC                               ;  UNICODE "regkey"
006A23D3   .  68 041C4400   push    00441C04                               ;  UNICODE "tjcp"
006A23D8   .  FF15 0C104000 call    dword ptr [<&MSVBVM60.#690>]           ;  MSVBVM60.rtcSaveSetting<-写入注册表


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

收藏
免费 0
支持
分享
最新回复 (1)
雪    币: 240
活跃值: (10)
能力值: ( LV4,RANK:50 )
在线值:
发帖
回帖
粉丝
2
自己以解决,谢谢关注
2007-10-25 22:38
0
游客
登录 | 注册 方可回帖
返回
//