-
-
[旧帖]
[解决]如何获得当前时间并写入注册表
0.00雪花
-
发表于:
2007-10-25 21:18
4767
-
[旧帖] [解决]如何获得当前时间并写入注册表
0.00雪花
是一个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<-写入注册表
[课程]FART 脱壳王!加量不加价!FART作者讲授!