Private
Sub
Command1_Click()
loc_00401EC3:
If
Me
.SaveProp
loc_00401F15: MsgBox(
" 密码正确 请退出!"
, 0, var_40, var_50, 10)
loc_00401F36:
GoTo
loc_00402274
loc_00401F3B:
loc_00401F3E: var_eax =
Me
.Cls
loc_00401FAD: var_50 =
"00"
loc_00401FBF: var_60 = Format(Day(Now), var_50)
loc_00402027: var_18 = var_60 & Format(Hour(Now),
"00"
)
loc_00402073: var_40 = Hour(Now)
loc_004020AD: call
Mod
(var_50, var_C0, var_40, 00000001h, 00000001h, 00000001h, 00000001h,
Me
, %x1 = Now)
loc_004020DA:
If
(
Mod
(var_50, var_C0, var_40, 00000001h, 00000001h, 00000001h, 00000001h,
Me
, %x1 = Now) = 1) = 0
Then
GoTo
loc_004020E7
loc_004020E5:
GoTo
loc_004020F0
loc_004020E7:
loc_004020FB: var_18 = var_18 &
"02"
loc_0040211E: var_1C = Text1.Text
loc_00402153: ebx = (var_1C = var_18) + 1
loc_0040215F: var_eax = %fobj
loc_00402168:
If
(var_1C = var_18) + 1 = 0
Then
GoTo
loc_00402189
loc_00402175: Print %w
loc_00402184:
GoTo
loc_00402272
loc_00402189:
loc_004021EF: MsgBox(
"密码错误!"
, 0,
"提示"
, var_50, var_60)
loc_00402229: var_eax = Text1.SetFocus
loc_0040224A: var_eax = %fobj
loc_00402263: SendKeys
"{Home}+{End}"
, 10
loc_00402272:
loc_00402274:
loc_0040227C:
GoTo
loc_004022C9
loc_0040228A: var_eax = %fobj
loc_004022C8:
Exit
Sub
loc_004022C9:
End
Sub