VB编程高手帮忙翻译下面代码意思,我想知道除了中文部分外其它代码是什么意思!
loc_0041AAD9: var_2C = "7DFE56A36"
loc_0041AAF8: var_30 = Proc_1_0_416E70(var_24, var_2C)
loc_0041AB2D: var_28 = Left(0, 8)
loc_0041AB95: var_20 = Mid(var_28, 5, 1)
loc_0041AC12: global_0041C02C = "20" & Mid(var_28, 6, 2)
loc_0041AC70: global_0041C030 = Mid(var_28, 2, 3)
loc_0041AD2A: var_8030 = CBool((Left(var_28, 1) = global_00407328) And (Right(var_28, 1) = global_00407330))
loc_0041AD45: If var_8030 = 0 Then GoTo loc_0041B0D2
loc_0041AD6D: var_104 = (var_20 = global_00407340)
loc_0041AD73: var_8038 = (var_20 = "S")
loc_0041ADA0: If (var_20 = global_00407348) Then GoTo loc_0041AFD8
loc_0041ADB1: var_8040 = Form2.Proc_2_5_41B250(var_20, var_2C)
loc_0041AE46: var_8048 = Form1.Show 10, var_A0
loc_0041AE64: ' Referenced from: 0041A8E8
loc_0041AE64: var_804C = Err
loc_0041AE75: Set var_34 = Err
loc_0041AE83: var_DC = Err.Number
loc_0041AEB8: If (var_DC) = 0 Then GoTo loc_0041AFC8
loc_0041AF27: MsgBox("请输入正确的验证密码!", 16, "系统提示", 10, 10)
loc_0041AF65: Form2.Text1.Text = global_004056D4
loc_0041AFA1: Form2.Text1.SetFocus
loc_0041AFC8: ' Referenced from: 0041AEB8
loc_0041AFC8: Exit Sub
loc_0041AFD3: GoTo loc_0041B212
loc_0041AFD8: ' Referenced from: 0041ADA0
loc_0041B011: var_54 = "系统提示"
loc_0041B044: MsgBox("请输入正确的验证密码!", 48, var_54, 10, 10)
loc_0041B05C: var_64 = var_54
loc_0041B081: Form2.Text1.Text = global_004056D4
loc_0041B0B6: Set var_34 = Form2.Text1
loc_0041B0BD: var_34.SetFocus
loc_0041B0C7: If var_34.SetFocus >= 0 Then GoTo loc_0041AFBF
loc_0041B0CD: GoTo loc_0041AFAD
loc_0041B0D2: ' Referenced from: 0041AD45
loc_0041B12A: var_44 = "请输入正确的验证密码!"
loc_0041B13E: MsgBox(var_44, 48, "系统提示", 10, 10)
loc_0041B156: var_54 = var_44
loc_0041B17B: Form2.Text1.Text = global_004056D4
loc_0041B1B0: Set var_34 = Form2.Text1
loc_0041B1B2: ' Referenced from: 0041AAC2
loc_0041B1B7: var_34.SetFocus
loc_0041B1C1: If var_34.SetFocus >= 0 Then GoTo loc_0041AFBF
loc_0041B1C7: GoTo loc_0041AFAD
loc_0041B211: Exit Sub
loc_0041B212: ' Referenced from: 0041AFD3
End Sub
|