求助VB6代码
求大神帮忙看下以下代码意思，在线等，多谢了！Me = Me + 00000038h
var_eax = Proc_34_6_5B3C80(Me+00000038h, var_C0, var_2C)
var_24 = Proc_34_6_5B3C80(Me+00000038h, var_C0, var_2C)
全部代码如下，请大神帮忙
Dim Me As Me
Dim var_28 As Variant
loc_005AFB57: var_1C = String$(255, &H423C84)
loc_005AFB76: var_eax = GetSystemDirectory(var_1C, 173)
loc_005AFB8B: var_ret_2 = var_20
loc_005AFB9B: If %ecx <> "" <> 0 Then edx = 1
loc_005AFBB3: If var_B0 = 0 Then GoTo loc_005AFFF3
loc_005AFBC7: Me = Me + 00000034h
loc_005AFBDA: InStr(0, 1, var_1C, global_00423C84) = InStr(0, 1, var_1C, global_00423C84) - 00000001h
loc_005AFC17: var_20 = Right$(Left$(var_1C, InStr(0, 1, var_1C, global_00423C84)), 1)
loc_005AFC37: If (var_20 = global_00423F80) = 0 Then GoTo loc_005AFC64
loc_005AFC59: Me.SaveProp 'Ignore this = Me.SaveProp & global_00423F80
loc_005AFC64: 'Referenced from: 005AFC37
loc_005AFC6A: Me = Me + 00000034h
loc_005AFC80: var_20 = Me+00000034h & "sysshs.dll"
loc_005AFC86: Me.GetPalette 'Ignore this = Me.SaveProp & global_00423F80
loc_005AFCBC: var_28 = Global.App
loc_005AFCEA: var_20 = Global.Path
loc_005AFD15: var_18 = var_20
loc_005AFD3B: var_20 = Dir(Me.GetPalette 'Ignore this, 0)
loc_005AFD4F: edi = (var_20 = global_00422B1C) + 1
loc_005AFD5A: If (var_20 = global_00422B1C) + 1 = 0 Then GoTo loc_005AFF5C
loc_005AFD71: var_20 = Right$(var_20, 1)
loc_005AFD91: If (var_20 = global_00423F80) = 0 Then GoTo loc_005AFDA9
loc_005AFDA7: var_18 = var_18 & global_00423F80
loc_005AFDA9: 'Referenced from: 005AFD91
loc_005AFDBE: var_30 = var_18 & "sysshs.dll"
loc_005AFDD3: var_20 = Dir(var_18 & "sysshs.dll", 0)
loc_005AFDFC: If (var_20 = global_00422B1C) = 0 Then GoTo loc_005AFE48
loc_005AFE2F: FileCopy var_18 & "sysshs.dll", Me(14) & "sysshs.dll"
loc_005AFE48: 'Referenced from: 005AFDFC
loc_005AFE69: var_20 = Dir(Me(15), 0)
loc_005AFE7D: esi = (var_20 = global_00422B1C) + 1
loc_005AFE88: If (var_20 = global_00422B1C) + 1 = 0 Then GoTo loc_005AFF5C
loc_005AFE95: Me(15) = 00422B1Ch
loc_005AFEE3: MsgBox("系统缺少文件,不能继续!", 16, var_48, var_58, var_68)
loc_005AFF2D: Set var_28 = Me
loc_005AFF35: var_eax = Global.Unload var_28
loc_005AFF56: End
loc_005AFF5C: 'Referenced from: 005AFD5A
loc_005AFF82: var_28 = Global.Screen
loc_005AFFA4: Global.MousePointer = 0
loc_005AFFE5: var_eax = Proc_4_1_474520(var_28, var_28, var_28)
loc_005AFFF1: GoTo loc_005B005B
loc_005AFFF3: 'Referenced from: 005AFBB3
loc_005B003A: MsgBox("error", 0, var_48, var_58, var_68)
loc_005B005B: 'Referenced from: 005AFFF1
loc_005B0063: GoTo loc_005B009D
loc_005B009C: Exit Sub
loc_005B009D: 'Referenced from: 005B0063
End Sub
Private Sub txtName_Change() '5B00E0
Dim Me As Variant
Dim var_20 As TextBox
loc_005B0151: txtGet.Text = global_00422B1C
loc_005B0191: var_1C = txtName.Text
loc_005B01B2: var_28 = var_1C
loc_005B01E6: var_18 = Trim(0)
loc_005B0211: If Len(var_18) < 4 Then GoTo loc_005B0269
loc_005B022B: var_eax = Proc_34_0_5B02D0(var_18, var_20, Me)
loc_005B0235: var_1C = Proc_34_0_5B02D0(var_18, var_20, Me)
loc_005B0239: txtGet.Text = var_1C
loc_005B0269: 'Referenced from: 005B0211
loc_005B0275: GoTo loc_005B029D
loc_005B029C: Exit Sub
loc_005B029D: 'Referenced from: 005B0275
End Sub
Private Sub cmbCancel_Click() '5AEF00
Dim Me As Me
Dim global_005B617C As Global
loc_005AEF6B: var_2C = global_005B617C
loc_005AEF6E: Set var_18 = Me
loc_005AEF79: var_eax = Global.Unload var_18
loc_005AEFA2: GoTo loc_005AEFAE
loc_005AEFAD: Exit Sub
loc_005AEFAE: 'Referenced from: 005AEFA2
End Sub
Private Sub cmdOK_Click() '5AEFD0
Dim Me As Me
Dim var_C4 As Variant
Dim var_CC As TextBox
loc_005AF035: On Error Resume Next
loc_005AF075: var_28 = txtName.Text
loc_005AF07D: var_C8 = var_28
loc_005AF0BF: var_EC = var_28
loc_005AF0D2: var_44 = var_EC
loc_005AF10F: var_CC = (Trim(var_EC) = &H422B1C)
loc_005AF13B: If var_CC = 0 Then GoTo loc_005AF142
loc_005AF13D: GoTo loc_005AFA38
loc_005AF142: 'Referenced from: 005AF13B
loc_005AF163: var_C4 = var_38
loc_005AF17C: var_28 = txtGet.Text
loc_005AF184: var_C8 = var_28
loc_005AF1D4: var_2C = "63Z8APBD8VYZ2M2P"
loc_005AF1F0: var_44 = var_28
loc_005AF22D: var_30 = txtSoftwareKey.Text
loc_005AF235: var_D0 = var_30
loc_005AF283: var_eax = Proc_34_4_5B1B70(var_4C, var_2C, var_C0)
loc_005AF28D: var_34 = Proc_34_4_5B1B70(var_4C, var_2C, var_C0)
loc_005AF2A2: eax = (var_34 = var_30) + 1
loc_005AF2A5: var_D4 = (var_34 = var_30) + 1
loc_005AF2E8: If var_D4 = 0 Then GoTo loc_005AF8C4
loc_005AF328: var_28 = txtName.Text
loc_005AF330: var_C8 = var_28
loc_005AF372: var_F4 = var_28
loc_005AF385: var_44 = var_F4
loc_005AF3B9: var_30 = StrReverse(CStr(Left(var_F4, 20)))
loc_005AF3D6: Me = Me + 00000038h
loc_005AF3DA: var_eax = Proc_34_6_5B3C80(Me+00000038h, var_C0, var_30)
loc_005AF3DF: var_24 = Proc_34_6_5B3C80(Me+00000038h, var_C0, var_30)
loc_005AF41F: If var_24 = 0 Then GoTo loc_005AF614
loc_005AF45F: var_28 = txtSoftwareKey.Text
loc_005AF467: var_C8 = var_28
loc_005AF4A9: var_F8 = var_28
loc_005AF4BC: var_44 = var_F8
loc_005AF4F0: var_30 = StrReverse(CStr(Left(var_F8, 20)))
loc_005AF50D: Me = Me + 00000038h
loc_005AF511: var_eax = Proc_34_6_5B3C80(Me+00000038h, var_C0, var_30)
loc_005AF516: var_24 = Proc_34_6_5B3C80(Me+00000038h, var_C0, var_30)
loc_005AF556: If var_24 = 0 Then GoTo loc_005AF614
loc_005AF58A: var_5C = "YYYY-MM-DD"
loc_005AF5C0: var_2C = StrReverse(CStr(Format(Date, Left(var_F8, 20))))
loc_005AF5DD: Me = Me + 00000038h
loc_005AF5E1: var_eax = Proc_34_6_5B3C80(Me+00000038h, var_C0, var_2C)
loc_005AF5E6: var_24 = Proc_34_6_5B3C80(Me+00000038h, var_C0, var_2C)
loc_005AF614: 'Referenced from: 005AF41F
loc_005AF621: If var_24 = 0 Then GoTo loc_005AF748
loc_005AF62E: var_94 = "services"
loc_005AF642: var_84 = "services"
loc_005AF6B6: DeleteSetting(", "services", var_88)
loc_005AF722: MsgBox(" 注册成功！请重起本系统 ", 48, Left(var_F8, 20), 10, 10)
loc_005AF743: GoTo loc_005AF7CF
loc_005AF748: 'Referenced from: 005AF621
loc_005AF7AE: MsgBox("注册失败,请确认注册码输入是否正确！ ", 16, Left(var_F8, 20), 10, 10)
loc_005AF7CF: 'Referenced from: 005AF743
loc_005AF7E7: Me = Me + 00000038h
loc_005AF805: var_eax = Proc_34_7_5B3F80(&H4008, "2000/11/22 15:50:10 AM", var_84)
loc_005AF85F: Set var_38 = Me
loc_005AF875: var_eax = Global.Unload var_38
loc_005AF87A: var_C8 = Global.Unload var_38
loc_005AF8BF: GoTo loc_005AFA38
loc_005AF8C4: 'Referenced from: 005AF2E8
loc_005AF92A: MsgBox("注册码无效！ ", 16, Left(var_F8, 20), 10, 10)
loc_005AF959: Global.LoadPictureOld %StkVar1 = Global.LoadPictureOld %StkVar1 + 0001h
loc_005AF979: If Global.LoadPictureOld %StkVar1 <> 0 Then GoTo loc_005AFA38
loc_005AF9CB: Set var_38 = Me
loc_005AF9E1: var_eax = Global.Unload var_38
loc_005AF9E6: var_C8 = Global.Unload var_38
loc_005AFA32: End
loc_005AFA38: 'Referenced from: 005AF13D
loc_005AFA44: GoTo loc_005AFA90
loc_005AFA8F: Exit Sub
loc_005AFA90: 'Referenced from: 005AFA44