好友
阅读权限10
听众
最后登录1970-1-1
|
Public Sub Wait() '405600
Dim var_54 As Me
Dim var_40 As Me
Dim var_58 As Me
Dim var_5C As Me
Dim var_60 As Me
loc_00405625: var_10 = &H401288
loc_00405680: On Error Resume Next
loc_004056D9: var_40 = Me.Hwnd
loc_0040570E: var_80 = "NNSS"
loc_00405730: var_44 = var_40 & "Timer"
loc_0040575B: Var_Ret_1 = 1 & Format$(Now, var_80)
loc_00405765: CreateWaitableTimerA(esi, FFFFFFFFh, Var_Ret_1, 00000001h, var_44)
loc_0040576A: var_C4 = CreateWaitableTimerA(esi, FFFFFFFFh, Var_Ret_1, 00000001h, var_44)
loc_00405776: GetLastError
loc_004057C1: call Err(var_80, var_54, "佹餿??", 00000058h)
loc_004057CC: Set var_54 = Err(var_80, var_54, "佹餿??", 00000058h)
loc_004057DE: Me.Name = var_C4
If var_C4 >= 0 Then GoTo loc_004057F6
loc_00405802: setnz cl
If cx = 0 Then GoTo loc_0040583D
loc_00405818: eax = var_54 Or FFFFFFFFh
loc_0040581B: var_3C = var_54 Or FFFFFFFFh
loc_0040581E: var_38 = var_54 Or FFFFFFFFh
loc_00405830: SetWaitableTimer(esi, var_3C, 00000000h, 00000000h, 00000000h)
loc_00405835: var_C4 = SetWaitableTimer(esi, var_3C, 00000000h, 00000000h, 00000000h)
loc_0040583B: GetLastError
loc_0040583D:
loc_00405854: var_28 = (ecx * &H40C3880000000000&H)
If var_407000 <> 0 Then GoTo loc_00405875
loc_00405896: Var_Ret_2 = CLng((var_28 / 4294967296))
loc_00405898: edx = var_3C Or FFFFFFFFh
loc_004058A3: var_38 = FFFFFFFFh = var_3C Or FFFFFFFFh - Var_Ret_2 Or FFFFFFFFh
If var_407000 <> 0 Then GoTo loc_004058BA
If var_407000 <> 0 Then GoTo loc_004058EF
loc_00405910: call MSVBVM60.DLL.__vbaStrR8(0000000), (var_28 , var_4012C0, var_4012C4, var_4012C4, var_4012C4, 00000000h, var_C4, var_54)
loc_0040591B: var_40 = MSVBVM60.DLL.__vbaStrR8(0000000), (var_28 , var_4012C0, var_4012C4, var_4012C4, var_4012C4, 00000000h, var_C4, var_54)
loc_00405928: call MSVBVM60.DLL.__vbaFPFix
loc_0040593A: var_34 = (((var_28 / &H41F0000000000000&H) - var_40) * &HC1F0000000000000&H)
loc_00405953: fcomp real8 ptr [004012B0h] ;
loc_0040597B: var_3C = Var_Ret_3
loc_0040598D: SetWaitableTimer(esi, var_3C, 00000000h)
loc_00405998: GetLastError
loc_0040599A:
loc_004059A6: MsgWaitForMultipleObjects(00000001h, SetWaitableTimer(esi, var_3C, 00000000h), 00000000h, FFFFFFFFh, 000000FFh)
loc_004059AB: var_C4 = MsgWaitForMultipleObjects(00000001h, var_C4, 00000000h, FFFFFFFFh, 000000FFh)
loc_004059B1: GetLastError
loc_004059B9: DoEvents
If var_C4 <> 0 Then GoTo loc_0040599A
loc_004059C6: CloseHandle(var_C4)
loc_004059CB: GetLastError
loc_004059CF: GoTo loc_00405B32
loc_004059DA: call Err(00000000h, 00000000h, 00000000h)
loc_004059E7: Set var_54 = Err(00000000h, 00000000h, 00000000h)
loc_004059F5: Me.%x3 = PropBag.ReadProperty(var_C4, %x2)
loc_00405A14: Set var_58 = Err(var_54, var_54, 004036C0h, 0000001Ch)
loc_00405A1F: call Me.SetPropA(var_40)
loc_00405A3E: Set var_5C = Err(Me.SetPropA(var_40), var_58, 004036C0h, 00000024h)
loc_00405A49: call Me.GetPropHsz(var_44)
loc_00405A68: Set var_60 = Err(Me.GetPropHsz(var_44), var_5C, 004036C0h, 0000002Ch)
loc_00405A71: var_98 = 80020004h
loc_00405A82: var_88 = 80020004h
loc_00405A88: var_90 = 10
loc_00405A9D: var_78 = "[clsWaitableTimer.Wait]" & var_44
loc_00405AA5: var_80 = 8
loc_00405AB2: var_68 = 0
loc_00405AB5: var_70 = 8
loc_00405AD8: Me = var_C4
loc_00405B32: call Exit Sub(10, var_C4, var_60, 004036C0h, 00000044h, var_C4, var_60, 004036C0h, 00000044h)
loc_00405B3E: GoTo loc_00405B96
loc_00405B95: Exit Sub
loc_00405B96: Exit Sub
loc_00405BB3: Exit Sub
loc_00405BB6: GoTo loc_MSVBVM60.DLL.__vbaFPException
End Sub
|
|
发表于 2013-8-4 22:21
|
发表于 2013-8-4 23:59
