Pray god help look at the following code, online, etc., thanks a lot!
Me=Me + 00000038 h
Var_eax=Proc_34_6_5B3C80 (Me + 00000038 h, var_C0 var_2C)
Var_24=Proc_34_6_5B3C80 (Me + 00000038 h, var_C0 var_2C)

When me="UBSJ - MBPZ - QJPZ - NFOE" when the code above what is the result?

CodePudding user response:

Is this your VB6 code!
This is a VB DecompilerPro "decompiler VB program" of results!
For reference only, do not necessarily rely on spectrum...


If press "VB6 code" explanation: Me=Me + 00000038 h
Me="UBSJ - MBPZ - QJPZ - NFOE",
As a result of Me=Me + 00000038 h UBSJ - MBPZ - QJPZ - NFOE56

CodePudding user response:

reference 1st floor Chen8013 response:

you is this a VB6 code!
This is a VB DecompilerPro "decompiler VB program" of results!
For reference only, do not necessarily rely on spectrum...


If press "VB6 code" explanation: Me=Me + 00000038 h
Me="UBSJ - MBPZ - QJPZ - NFOE",
As a result of Me=Me + 00000038 h UBSJ - MBPZ - QJPZ - NFOE56

Here should be combined with double quotes, said is a string,

"UBSJ - MBPZ - QJPZ - NFOE56"

CodePudding user response:

All the HTML code is as follows, the great god please help:
Dim Me As Me
Dim var_28 As the Variant
Loc_005AFB57: var_1C=String $(255, & amp; H423C84)
Loc_005AFB76: var_eax=GetSystemDirectory (var_1C, 173)
Loc_005AFB8B: var_ret_2=var_20
Loc_005AFB9B: If % ecx & lt;> "" & lt;> 0 Then edx=1
Loc_005AFBB3: If var_B0=0 Then GoTo loc_005AFFF3
Loc_005AFBC7: Me=Me + 00000034 h
Loc_005AFBDA: InStr (0, 1, var_1C global_00423C84)=InStr (0, 1, var_1C global_00423C84) - 00000001 - h
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 & amp; Global_00423F80
Loc_005AFC64: 'Referenced from: 005 afc37
Loc_005AFC6A: Me=Me + 00000034 h
Loc_005AFC80: var_20=Me + 00000034 h & amp; "Sysshs. DLL"
Loc_005AFC86: Me. GetPalette 'Ignore this=Me. SaveProp & amp; Global_00423F80
Loc_005AFCBC: var_28=Global. The 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 & amp; Global_00423F80
Loc_005AFDA9: 'Referenced from: 005 afd91
Loc_005AFDBE: var_30=var_18 & amp; "Sysshs. DLL"
Loc_005AFDD3: var_20=Dir (var_18 & amp; "Sysshs. DLL", 0)
Loc_005AFDFC: If (var_20=global_00422B1C)=0 Then GoTo loc_005AFE48
Loc_005AFE2F: FileCopy var_18 & amp; "Sysshs. DLL," Me (14) & amp; "Sysshs. DLL"
Loc_005AFE48: 'Referenced from: 005 afdfc
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)=00422 b1ch
Loc_005AFEE3: MsgBox (" lack of file system, can not continue!" , 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: 005 afd5a
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: 005 afbb3
Loc_005B003A: MsgBox (" error ", 0, var_48 var_58, var_68)
Loc_005B005B: 'Referenced from: 005 afff1
Loc_005B0063: GoTo loc_005B009D
Loc_005B009C: Exit Sub
Loc_005B009D: 'Referenced from: 005 b0063
End Sub

Private Sub txtName_Change () '5 b00e0
Dim Me As the 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) & lt; 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: 005 b0211
Loc_005B0275: GoTo loc_005B029D
Loc_005B029C: Exit Sub
Loc_005B029D: 'Referenced from: 005 b0275
End Sub

Private Sub cmbCancel_Click () '5 aef00
Dim Me As Me
Dim global_005B617C As Global
Loc_005AEF6B: var_2C=global_005B617C
nullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnull