Assembly com vb6

[Mrk3004]

Direto ao ponto :

Estou fazendo um projeto em vb6 , porem é um código que foi descompilado em assembly , mais adaptado para vb6.

Ao carregar o processo percebo várias linhas vermelhas, e (obviamente) recebo vários erros ao tentar compilar o projeto.

Será que alguém poderia me ajudar?

Isso talvez , poderia ser algum módulo faltando, ou algo do tipo , no próprio vb6?

Vou disponibilizar o código do Form1 abaixo :

'VA: 403668
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
'VA: 403610
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
'VA: 4035CC
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Sub Form_Load() '406FE0
loc_00407005:   var_8 = &H401190
  loc_00407078: call MSVBVM60.DLL.__vbaNew(004039BCh, arg_8, esi, ebx)
  loc_00407090: edi+34h = IsSet(MSVBVM60.DLL.__vbaNew(004039BCh, arg_8, esi, ebx))
loc_004070B5:   Timer1.Enabled = esi
loc_004070F4:   Text1.Text = "Loading..."
  loc_0040712D: CreateObject(4209192, 4248748)
loc_00407133:
loc_00407164:   var_1C = App.Path
loc_00407198:   var_20 = var_1C & "\MSNOF.ini"
  loc_0040719E: Proc_0040AFA0(var_20, edx, var_20)
loc_004071A3:   var_E0 = Proc_0040AFA0(var_20, edx, var_20)
  loc_004071CE: If word ptr var_E0 = 0 Then GoTo loc_0040767E
loc_0040721E:   var_1C = App.Path
  loc_0040724F: call Open #(00000001h, FFFFFFFFh, 00000001h, var_1C & "\MSNOF.ini", var_1C, "", 00403A38h, 00000050h, CreateObject(4209192, 4248748))
loc_0040728F:   var_88 = "13#1"
loc_00407299:   var_90 = 8
loc_004072C4:   var_70 = Split(CStr(Input(LOF(1), 1)), "13#1", -1, 0)
  loc_004072D3: call MSVBVM60.DLL.__vbaAryVar(00002008h, var_70)
  loc_004072ED: call MSVBVM60.DLL.__vbaAryCopy(App.put_000x, MSVBVM60.DLL.__vbaAryVar(00002008h, var_70))
  loc_00407315: Close 00000001h
loc_0040732D:   neg ecx
  loc_00407337: If Form1.'App Initialize < App.GetTypeInfo Then GoTo loc_00407345
loc_00407339:   Err.Raise
loc_00407345:
loc_0040734C:   GoTo loc_00407354
loc_0040734E:   Err.Raise
loc_00407354:
loc_00407361:   ecx = ecx + eax
  loc_0040737B: 00000001h = 00000001h - App.'App Initialize
loc_00407382:   var_D0 = 1
  loc_00407388: If 00000001h < App.GetTypeInfo Then GoTo loc_00407396
loc_0040738A:   Err.Raise
loc_00407396:
loc_0040739D:   GoTo loc_004073A5
loc_0040739F:   Err.Raise
loc_004073A5:
loc_004073B2:   ecx = ecx + eax
  loc_004073CC: 00000002h = 00000002h - App.'App Initialize
loc_004073D3:   var_D0 = 2
  loc_004073D9: If 00000002h < App.GetTypeInfo Then GoTo loc_004073E7
loc_004073DB:   Err.Raise
loc_004073E7:
loc_004073EE:   GoTo loc_004073F6
loc_004073F0:   Err.Raise
loc_004073F6:
loc_0040740C:   If (ecx + eax <> "False") <> 0 Then GoTo loc_00407419
loc_00407412:   eax = (ecx + eax = "False") + 1
loc_00407413:   App.GetTypeInfoCount = App.GetTypeInfoCount + App.GetTypeInfoCount
loc_00407415:   [esi] = [esi] And (ecx + eax = "False") + 1
loc_00407417:   [eax] = [eax] + (ecx + eax = "False") + 1
loc_00407419:
  loc_0040742D: 00000002h = 00000002h - App.'App Initialize
loc_00407434:   var_D0 = 2
  loc_0040743A: If 00000002h < App.GetTypeInfo Then GoTo loc_00407448
loc_0040743C:   Err.Raise
loc_00407448:
loc_0040744F:   GoTo loc_00407457
loc_00407451:   Err.Raise
loc_00407457:
loc_0040746D:   If (edx + eax <> "True") <> 0 Then GoTo loc_0040747D
loc_00407478:   GoTo loc_00407A39
loc_0040747D:
  loc_00407487: var_78 = 80020004h
  loc_0040748A: var_68 = 80020004h
loc_00407496:   var_80 = 10
loc_00407499:   var_70 = 10
loc_0040749C:   var_88 = ".ini file error"
loc_004074A6:   var_90 = 8
loc_004074B0:   var_60 = ".ini file error"
  loc_004074CA: 00000002h = 00000002h - App.'App Initialize
  loc_004074D7: If 00000002h < App.GetTypeInfo Then GoTo loc_004074E5
loc_004074D9:   Err.Raise
  loc_004074E5: shl ecx, 02h
loc_004074E8:   var_110 = 2
loc_004074EE:   GoTo loc_004074FC
loc_004074F0:   Err.Raise
loc_004074FC:
loc_0040751C:   var_20 = ".ini file error." & "13#1" & "Property LoadFOFOnStartup ="
  loc_00407562: var_30 = %StkVar2 & eax+ecx & "13#1" & "The property can only be True or False." & "13#1"
loc_0040756C:   var_48 = var_30 & "Would you like to delete the .ini file and run first time setup?"
loc_00407581:   var_50 = 8
loc_00407588:   MsgBox var_30 & "Would you like to delete the .ini file and run first time setup?", 4, var_60
  loc_00407590: Var_Ret_1 = MsgBox var_30 & "Would you like to delete the .ini file and run first time setup?", 4, var_60
  loc_004075D9: If word ptr Var_Ret_1 <> 6 Then GoTo loc_00407A33
loc_00407629:   var_1C = App.Path
loc_0040764F:   var_48 = var_1C & "\MSNOF.ini"
loc_0040765A:   Kill 8
loc_0040767E:
loc_00407681:   Unknown_VTable_Call [ecx+000002B4h]
  loc_004076BA: Timer1.Enabled = 00000000h
loc_004076EB:   ecx = "Frets On Fire"
loc_004076F7:   ecx = "&Song, &Artist"
loc_00407703:   var_40D010 = 0
loc_0040770D:   ecx = "C:\Program Files\FretsOnFire"
loc_00407719:   ecx = "C:\Program Files\FretsOnFire\data\songs"
loc_0040771B:   eax = "" Or FFFFFFFFh
loc_0040772B:   eax = "" Or FFFFFFFFh + 1
loc_0040772C:   [esi-5Dh] = [esi-5Dh] + "" Or FFFFFFFFh + 1
  loc_0040772F: rol byte ptr es:[eax], 01h
loc_00407756:   var_90 = 10
  loc_0040776D: var_88 = 80020004h
loc_004077B3:   Unknown_VTable_Call [edx+000002B0h]
loc_004077E2:   ecx = "hey dude"
loc_0040780E:   var_100 = &H40D038
loc_0040785A:   var_B4 = App.Major
loc_004078C5:   var_B8 = App.Minor
loc_00407930:   var_BC = App.Revision
  loc_00407962: call MSVBVM60.DLL.__vbaStrI2(var_B4, "MSNOF v", var_BC, "", 00403A38h, 000000C8h, "", 0040D4ACh, 00403A18h)
  loc_00407986: var_24 = %StkVar2 & MSVBVM60.DLL.__vbaStrI2(var_B4, "MSNOF v", var_BC, "", 00403A38h, 000000C8h, "", 0040D4ACh, 00403A18h) & 00403EC0h
  loc_00407990: call MSVBVM60.DLL.__vbaStrI2(var_B8, var_24)
  loc_004079A5: var_2C = %StkVar2 & MSVBVM60.DLL.__vbaStrI2(var_B8, var_24)
  loc_004079AF: call MSVBVM60.DLL.__vbaStrI2(var_BC, var_2C)
  loc_004079C4: var_34 = %StkVar2 & MSVBVM60.DLL.__vbaStrI2(var_BC, var_2C)
loc_004079CE:   App.Path = var_34
loc_00407A21:   var_4 = 0
loc_00407A2E:   GoTo loc_004080C0
loc_00407A33:   End
loc_00407A39:
  loc_00407A4D: 00000003h = 00000003h - App.'App Initialize
loc_00407A54:   var_D0 = 3
  loc_00407A5A: If 00000003h < App.GetTypeInfo Then GoTo loc_00407A68
loc_00407A5C:   Err.Raise
loc_00407A68:
loc_00407A6F:   GoTo loc_00407A77
loc_00407A71:   Err.Raise
loc_00407A77:
loc_00407A8D:   If (ecx + eax <> "Game") <> 0 Then GoTo loc_00407A99
loc_00407A8F:   var_40D010 = (ecx + eax = "Game")
loc_00407A94:   GoTo loc_00407CBE
loc_00407A99:
  loc_00407AAD: 00000002h = 00000002h - App.'App Initialize
loc_00407AB4:   var_D0 = 2
  loc_00407ABA: If 00000002h < App.GetTypeInfo Then GoTo loc_00407AC8
loc_00407ABC:   Err.Raise
loc_00407AC8:
loc_00407ACF:   GoTo loc_00407AD7
loc_00407AD1:   Err.Raise
loc_00407AD7:
loc_00407AED:   If (edx + eax <> "Music") <> 0 Then GoTo loc_00407AFE
loc_00407AEF:   var_40D010 = 1
loc_00407AF9:   GoTo loc_00407CBE
loc_00407AFE:
  loc_00407B08: var_78 = 80020004h
  loc_00407B0B: var_68 = 80020004h
loc_00407B17:   var_80 = 10
loc_00407B1A:   var_70 = 10
loc_00407B1D:   var_88 = ".ini file error"
loc_00407B27:   var_90 = 8
loc_00407B31:   var_60 = ".ini file error"
  loc_00407B4B: 00000002h = 00000002h - App.'App Initialize
  loc_00407B58: If 00000002h < App.GetTypeInfo Then GoTo loc_00407B66
loc_00407B5A:   Err.Raise
  loc_00407B66: shl ecx, 02h
loc_00407B69:   var_114 = 2
loc_00407B6F:   GoTo loc_00407B7D
loc_00407B71:   Err.Raise
loc_00407B7D:
loc_00407B9D:   var_20 = ".ini file error." & "13#1" & "Property MessageType ="
  loc_00407BE3: var_30 = %StkVar2 & eax+ecx & "13#1" & "The property can only be Game or Music." & "13#1"
loc_00407BED:   var_48 = var_30 & "Would you like to delete the .ini file and run first time setup?"
loc_00407C02:   var_50 = 8
loc_00407C09:   MsgBox var_30 & "Would you like to delete the .ini file and run first time setup?", 4, var_60
  loc_00407C11: Var_Ret_2 = MsgBox var_30 & "Would you like to delete the .ini file and run first time setup?", 4, var_60
  loc_00407C5A: If word ptr Var_Ret_2 <> 6 Then GoTo loc_00407CB8
loc_00407CAD:   If App.Path >= 0 Then GoTo loc_00407641
loc_00407CB3:   GoTo loc_00407632
loc_00407CB8:   End
loc_00407CBE:
  loc_00407CD2: 00000004h = 00000004h - App.'App Initialize
loc_00407CD9:   var_D0 = 4
  loc_00407CDF: If 00000004h < App.GetTypeInfo Then GoTo loc_00407CED
loc_00407CE1:   Err.Raise
loc_00407CED:
loc_00407CF4:   GoTo loc_00407CFC
loc_00407CF6:   Err.Raise
loc_00407CFC:
loc_00407D09:   ecx = ecx + eax
  loc_00407D23: 00000005h = 00000005h - App.'App Initialize
loc_00407D2A:   var_D0 = 5
  loc_00407D30: If 00000005h < App.GetTypeInfo Then GoTo loc_00407D3E
loc_00407D32:   Err.Raise
loc_00407D3E:
loc_00407D45:   GoTo loc_00407D4D
loc_00407D47:   Err.Raise
loc_00407D4D:
loc_00407D5A:   ecx = ecx + eax
  loc_00407D74: 00000006h = 00000006h - App.'App Initialize
loc_00407D7B:   var_D0 = 6
  loc_00407D81: If 00000006h < App.GetTypeInfo Then GoTo loc_00407D8F
loc_00407D83:   Err.Raise
loc_00407D8F:
loc_00407D96:   GoTo loc_00407D9E
loc_00407D98:   Err.Raise
loc_00407D9E:
loc_00407DB7:   eax = eax + 1
loc_00407DB8:   [ecx+0040D020h] = [ecx+0040D020h] + eax + 1
loc_00407DCB:   var_1C = eax + 1 & "\FretsOnFire.exe"
  loc_00407DD1: Proc_0040AFA0(var_1C, edx, var_1C)
loc_00407DD6:   neg ax
loc_00407DD9:   sbb eax, eax
loc_00407DDE:   eax = Proc_0040AFA0(var_1C, edx, var_1C) + 1
loc_00407DDF:   neg eax
loc_00407DE1:   var_D0 = Proc_0040AFA0(var_1C, edx, var_1C) + 1
  loc_00407DF6: If word ptr var_D0 = 0 Then GoTo loc_00407FE6
  loc_00407E06: var_78 = 80020004h
  loc_00407E09: var_68 = 80020004h
loc_00407E15:   var_80 = 10
loc_00407E18:   var_70 = 10
loc_00407E1B:   var_88 = "Frets on fire not found"
loc_00407E25:   var_90 = 8
loc_00407E2F:   var_60 = "Frets on fire not found"
  loc_00407E49: 00000002h = 00000002h - App.'App Initialize
loc_00407E50:   var_D0 = 2
  loc_00407E56: If 00000002h < App.GetTypeInfo Then GoTo loc_00407E64
loc_00407E58:   Err.Raise
loc_00407E64:
loc_00407E71:   GoTo loc_00407E7F
loc_00407E73:   Err.Raise
loc_00407E7F:
loc_00407E9F:   var_20 = "Frets on fire not found" & "13#1" & "Property FretsOnFireDirectory ="
  loc_00407EE5: var_30 = %StkVar2 & ecx+edx & "13#1" & "FretsOnFire.exe was not found in this location." & "13#1"
loc_00407EF2:   var_48 = var_30 & "Would you like to delete the .ini file and run first time setup?"
loc_00407F04:   var_50 = 8
loc_00407F0B:   MsgBox var_30 & "Would you like to delete the .ini file and run first time setup?", 4, var_60
  loc_00407F13: Var_Ret_3 = MsgBox var_30 & "Would you like to delete the .ini file and run first time setup?", 4, var_60
loc_00407F5A:   If Var_Ret_3 <> 6 Then GoTo loc_00407FE0
loc_00407FAA:   var_1C = App.Path
loc_00407FCD:   var_48 = var_1C & "\MSNOF.ini"
loc_00407FD3:   var_50 = 8
loc_00407FDB:   GoTo loc_0040765A
loc_00407FE0:   End
loc_00407FEE:   If var_40D024 <> 65535 Then GoTo loc_0040801F
loc_00408007:   var_50 = 8
  loc_0040800E: Shell("", 1)
loc_0040801F:
loc_0040803D:   Timer1.Enabled = FFFFFFFFh
loc_00408067:   GoTo loc_004077D1
loc_004080BF:   Exit Sub
loc_004080C0:   Exit Sub
End Sub

Private Sub Form_Unload(Cancel As Integer) '408600
loc_00408622:   var_8 = &H4011F8
loc_0040864C:   var_18 = 0
loc_00408653:   Form1.SaveProp = IsSet(0)
  loc_00408655: Proc_0040B3A0(arg_8, edx, esi)
loc_0040865D:   Form1.SaveProp = IsSet(0)
loc_00408685:   var_2C = &H40D4AC
loc_00408688:   var_18 = IsSet(arg_8)
  loc_0040868F: Global.UnLoad var_18
loc_004086BC:   GoTo loc_004086C8
loc_004086C7:   Exit Sub
loc_004086C8:   Exit Sub
End Sub

Private Sub messagesettings_Click() '4086F0
loc_00408712:   var_8 = &H401208
loc_00408752:   var_24 = 10
  loc_0040878F: Form1.Show esi, 0040D060h
End Sub

Private Sub Timer1_Timer() '4088D0
loc_004088F5:   var_8 = &H401218
  loc_00408919: %x1 = Form1.Caption = %x1 = Form1.Caption - 0001h
  loc_00408960: If %x1 = Form1.Caption > eax Then GoTo loc_00409252
  loc_0040897B: ecx = 00403880h
loc_0040899F:   Text1.Text = "Scanning..."
loc_004089C8:   DoEvents
loc_004089DB:   var_74 = &H4008
loc_004089E5:   var_6C = &H40D01C
  loc_00408A2A: Form1.Proc_0_7_4080E0(arg_8, "", "", TextBox.SaveProp.1, TextBox.SaveProp.1)
  loc_00408A4F: If (Form1.Index = %x1 = Set %x2 = Form1(%x1)) = 0 Then GoTo loc_0040923F
  loc_00408A61: If (Set %x2 = Form1(%x1) = 00403880h) = 0 Then GoTo loc_0040904C
  loc_00408A75: ecx = 00403880h
  loc_00408A7F: ecx = 00403880h
  loc_00408A8C: Var_Ret_1 = Len(Set 004039F8h = Form1(%x1))
loc_00408A9E:
  loc_00408AA9: If Form1 = %x1 > Var_Ret_1 Then GoTo loc_00408BA1
  loc_00408ABB: var_6C = Set %x2 = Form1(%x1)
loc_00408ABE:   var_74 = &H4008
loc_00408AE6:   var_7C = &H404024
loc_00408AED:   var_84 = &H8008
  loc_00408AF7: Var_Ret_2 = (Left(Right(, Form1 = %x1), 1) = )
loc_00408B16:   If Var_Ret_2 <> 0 Then GoTo loc_00408B39
loc_00408B18:   DoEvents
  loc_00408B27: Form1 = %x1 = Form1 = %x1 + 00000001h
loc_00408B34:   GoTo loc_00408A9E
loc_00408B39:
  loc_00408B3B: var_6C = Set %x2 = Form1(%x1)
loc_00408B3F:   var_74 = &H4008
  loc_00408B50: Len(Set %x2 = Form1(%x1)) = Len(Set %x2 = Form1(%x1)) - word ptr [esi+44h]
  loc_00408B5B: Len(Set %x2 = Form1(%x1)) = Len(Set %x2 = Form1(%x1)) + 00000001h
  loc_00408B6A: var_44 = Left(, Len(Set %x2 = Form1(%x1)))
  loc_00408B74: var_44 =
loc_00408B89:   ecx = var_44
loc_00408BA1:
  loc_00408BBE: ecx = Set %x2 = Form1(%x1) & "song.ini"
  loc_00408BD6: call Open #(00000001h, FFFFFFFFh, 00000001h, Set %x2 = Form1(%x1), var_44)
loc_00408BF7:   var_6C = "13#1"
loc_00408BFE:   var_74 = 8
loc_00408C26:   var_64 = Split(CStr(Input(LOF(1), 1)), "13#1", -1, 0)
  loc_00408C35: call MSVBVM60.DLL.__vbaAryVar(00002008h, var_64)
  loc_00408C4C: call MSVBVM60.DLL.__vbaAryCopy(%x1 = Form1.Name, MSVBVM60.DLL.__vbaAryVar(00002008h, var_64))
  loc_00408C74: Close 00000001h
  loc_00408C7F: call UBound(00000001h, %x1 = Form1.Name, var_64)
  loc_00408C87: Var_Ret_3 = UBound(00000001h, %x1 = Form1.Name, var_64)
loc_00408C99:
  loc_00408CA4: If Form1 = %x1 > Var_Ret_3 Then GoTo loc_00408E60
  loc_00408CCE: word ptr [esi+44h] = word ptr [esi+44h] - 'Initialize Form1 Object
  loc_00408CD2: If word ptr [esi+44h] < TextBox.GetTypeInfo Then GoTo loc_00408CDD
loc_00408CD4:   Err.Raise
loc_00408CDD:
loc_00408CE4:   GoTo loc_00408CEF
loc_00408CE6:   Err.Raise
loc_00408CEF:
loc_00408CF5:   TextBox.GetTypeInfoCount = TextBox.GetTypeInfoCount + Err.Raise
loc_00408D01:   var_74 = &H4008
loc_00408D23:   var_7C = "artist ="
loc_00408D2A:   var_84 = &H8008
  loc_00408D34: Var_Ret_4 = (Left(, 8) = )
loc_00408D49:   If Var_Ret_4 <> 0 Then GoTo loc_00408D66
  loc_00408D54: TextBox = %x1 = TextBox = %x1 + 00000001h
loc_00408D61:   GoTo loc_00408C99
loc_00408D66:
  loc_00408D7C: word ptr [esi+44h] = word ptr [esi+44h] - 'Initialize Form1 Object
  loc_00408D80: If word ptr [esi+44h] < TextBox.GetTypeInfo Then GoTo loc_00408D88
loc_00408D82:   Err.Raise
loc_00408D88:
loc_00408D95:   GoTo loc_00408DA3
loc_00408D97:   Err.Raise
loc_00408DA3:
  loc_00408DC7: word ptr [esi+44h] = word ptr [esi+44h] - 'Initialize TextBox Object
  loc_00408DCB: If word ptr [esi+44h] < TextBox.GetTypeInfo Then GoTo loc_00408DD6
loc_00408DCD:   Err.Raise
loc_00408DD6:
loc_00408DDD:   GoTo loc_00408DE8
loc_00408DDF:   Err.Raise
loc_00408DE8:
loc_00408DEB:   var_74 = &H4008
loc_00408DF2:   TextBox.GetTypeInfoCount = TextBox.GetTypeInfoCount + Err.Raise
  loc_00408E0C: Len(ecx+edx) = Len(ecx+edx) - 00000009h
loc_00408E1E:   var_44 = Right(, Len(ecx + edx))
loc_00408E48:   ecx = var_44
loc_00408E60:
  loc_00408E65: call UBound(00000001h, %x1 = Form1.Name, "")
  loc_00408E6D: Var_Ret_5 = UBound(00000001h, %x1 = Form1.Name, "")
loc_00408E7F:
  loc_00408E8A: If Form1 = %x1 > Var_Ret_5 Then GoTo loc_00409046
  loc_00408EB4: word ptr [esi+44h] = word ptr [esi+44h] - 'Initialize Form1 Object
  loc_00408EB8: If word ptr [esi+44h] < TextBox.GetTypeInfo Then GoTo loc_00408EC3
loc_00408EBA:   Err.Raise
loc_00408EC3:
loc_00408ECA:   GoTo loc_00408ED5
loc_00408ECC:   Err.Raise
loc_00408ED5:
loc_00408EDB:   TextBox.GetTypeInfoCount = TextBox.GetTypeInfoCount + Err.Raise
loc_00408EE7:   var_74 = &H4008
loc_00408F09:   var_7C = "name ="
loc_00408F10:   var_84 = &H8008
  loc_00408F1A: Var_Ret_6 = (Left(, 6) = )
loc_00408F2F:   If Var_Ret_6 <> 0 Then GoTo loc_00408F4C
  loc_00408F3A: TextBox = %x1 = TextBox = %x1 + 00000001h
loc_00408F47:   GoTo loc_00408E7F
loc_00408F4C:
  loc_00408F62: word ptr [esi+44h] = word ptr [esi+44h] - 'Initialize Form1 Object
  loc_00408F66: If word ptr [esi+44h] < TextBox.GetTypeInfo Then GoTo loc_00408F6E
loc_00408F68:   Err.Raise
loc_00408F6E:
loc_00408F7B:   GoTo loc_00408F89
loc_00408F7D:   Err.Raise
loc_00408F89:
  loc_00408FAD: word ptr [esi+44h] = word ptr [esi+44h] - 'Initialize TextBox Object
  loc_00408FB1: If word ptr [esi+44h] < TextBox.GetTypeInfo Then GoTo loc_00408FBC
loc_00408FB3:   Err.Raise
loc_00408FBC:
loc_00408FC3:   GoTo loc_00408FCE
loc_00408FC5:   Err.Raise
loc_00408FCE:
loc_00408FD1:   var_74 = &H4008
loc_00408FD8:   TextBox.GetTypeInfoCount = TextBox.GetTypeInfoCount + Err.Raise
  loc_00408FF2: Len(ecx+edx) = Len(ecx+edx) - 00000007h
loc_00409004:   var_44 = Right(, Len(ecx + edx))
loc_0040902E:   ecx = var_44
loc_00409046:
loc_0040904C:
loc_0040905E:   neg edx
loc_00409060:   sbb edx, edx
loc_00409063:   neg edx
loc_00409078:   neg eax
loc_0040907A:   sbb eax, eax
loc_0040907C:   neg eax
  loc_00409080: If (Form1.Backcolor = %x1 = 00403880h) <> 0 Then GoTo loc_0040909C
loc_00409090:   ecx = "Idle"
  loc_0040909A: ecx = 00403880h
loc_0040909C:
loc_004090B5:   neg edx
loc_004090B7:   sbb edx, edx
  loc_004090BA: edx = (%x1 = Form1.Left = Form1.Backcolor = %x1) + 1
loc_004090C9:   neg eax
loc_004090CB:   sbb eax, eax
  loc_004090CD: eax = (Form1.Left = %x1 = %x1 = Form1.Backcolor) + 1
  loc_004090D0: If (%x1 = Form1.Left = Form1.Backcolor = %x1) + 1 <> 0 Then GoTo loc_00409229
loc_004090F5:   var_94 = ""
  loc_0040914A: var_28 = text1.Backcolor = %x1 & 00404070h & %x1 = Form1.Backcolor & "13#1" & "Updating..."
loc_00409164:   Form1.Text = var_28
loc_004091B4:   var_88 = FFFFFFFFh
loc_004091BE:   var_24 = "{0} - {1}"
  loc_00409235: ecx = TextBox.Backcolor = %x1
  loc_0040923D: ecx = %x1 = Form1.Backcolor
loc_0040923F:
loc_0040924A:   ecx = edi
loc_0040926E:   var_94 = ""
  loc_004092C0: var_28 = text1.Backcolor = %x1 & 00404070h & %x1 = Form1.Backcolor & "13#1" & "Update in:"
  loc_004092C8: call MSVBVM60.DLL.__vbaStrI2(%x1 = Form1.Index, var_28)
  loc_004092E1: var_30 = %StkVar2 & MSVBVM60.DLL.__vbaStrI2(%x1 = Form1.Index, var_28)
loc_004092EB:   Form1.Text = var_30
loc_00409335:   DoEvents
loc_0040933B:   var_4 = 0
loc_00409347:   GoTo loc_00409397
loc_00409396:   Exit Sub
loc_00409397:   Exit Sub
loc_004093B4:   Exit Sub
End Sub

Private Sub dirsettings_Click() '406EF0
loc_00406F12:   var_8 = &H401188
loc_00406F52:   var_24 = 10
  loc_00406F8F: Form1.Show esi, 0040D04Ch
End Sub

Private Sub miscsettings_Click() '4087E0
loc_00408802:   var_8 = &H401210
loc_00408842:   var_24 = 10
  loc_0040887F: Form1.Show esi, 0040D074h
End Sub

Public Function WriteToMsn(type1, r_sWMContentID, r_sFormat) '406B00
loc_00406B22:   var_8 = &H401178
  loc_00406B8A: Proc_0040B680("", esi, ecx)
  loc_00406BA2: If 40D010h <> esi Then GoTo loc_00406BAB
loc_00406BA9:   GoTo loc_00406BB5
  loc_00406BAE: If 40D010h <> 1 Then GoTo loc_00406BBE
loc_00406BB5:
loc_00406BB8:   ecx = "Music"
loc_00406BBE:
  loc_00406BC7: var_18 = 0040D014h
  loc_00406BF2: var_18 = Replace(var_18, "&Song", Form1.Hwnd = %x1, 1, -1, 0)
  loc_00406C0E: var_18 = Replace(var_18, "&Artist", %x1 = Form1.Hwnd, 1, -1, 0)
  loc_00406C19: var_1C = 0040D018h
  loc_00406C39: var_1C = Replace(var_1C, "&Song", Form1.Hwnd = %x1, 1, -1, 0)
  loc_00406C55: var_1C = Replace(var_1C, "&Artist", %x1 = Form1.Hwnd, 1, -1, 0)
  loc_00406CAF: call MSVBVM60.DLL.__vbaI2Abs(type1)
  loc_00406CB6: call MSVBVM60.DLL.__vbaStrI2(MSVBVM60.DLL.__vbaI2Abs(type1))
  loc_00406D0D: var_58 = %StkVar2 & MSVBVM60.DLL.__vbaStrI2(MSVBVM60.DLL.__vbaI2Abs(type1)) & "" & r_sFormat & "" & Replace(var_18, 4208760, 4208768, 1, -1, 0)
  loc_00406D39: var_64 = var_58 & "" & Replace(Replace(var_1C, 4208760, 4208768, 1, -1, (Form1.Hwnd = %x1 = "Idle")), 4208760, 4208768, 1, -1, (Form1.Hwnd = %x1 = "Idle")) & ""
  loc_00406D85: var_20 = var_64 & 00403880h & "" & r_sWMContentID & "" & 00403894h
loc_00406DC9:   var_30 = &H547
loc_00406DDA:   var_28 = VarPtr(var_20)
loc_00406DF0:   var_2C = LenB(var_20)
loc_00406DF3:
loc_00406DFE:   Var_Ret_1 = "MsnMsgrUIManager"
  loc_00406E07: FindWindowEx(00000000h, "", Var_Ret_1, 00000000h)
loc_00406E0E:   GetLastError
  loc_00406E1E: If  Then GoTo loc_00406E39
  loc_00406E30: SendMessage(FindWindowEx(00000000h, FindWindowEx(00000000h, var_24, Var_Ret_1, 00000000h), Var_Ret_1, 00000000h), 0000004Ah, 00000000h, VarPtr())
loc_00406E35:   GetLastError
  loc_00406E39: If  Then GoTo loc_00406DF3
loc_00406E40:   GoTo loc_00406E9D
loc_00406E9C:   Exit Sub
loc_00406E9D:
End Function

Private Sub Proc_0_7_4080E0()
loc_00408109:   var_14 = &H4011A0
loc_00408110:   var_10 = 0
loc_00408117:   var_C = 0
loc_0040811E:   var_4 = 1
loc_00408125:   var_4 = 2
loc_0040812E:   On Error Resume Next
loc_00408134:   var_4 = 3
loc_00408150:   var_3C = Me.BackColor
loc_0040815C:   If var_3C >= 0 Then GoTo loc_0040817B
loc_00408173:   var_A4 = arg_C
loc_00408179:   GoTo loc_00408185
loc_0040817B:   var_A4 = 0
loc_00408185:   var_54 = 0
loc_0040818C:   var_5C = &H8002
loc_0040819B:   Var_Ret_1 = (var_3C > 0)
loc_004081A1:   var_6C = Var_Ret_1
  loc_004081B4: If word ptr var_6C = 0 Then GoTo loc_00408598
loc_004081BA:   var_4 = 4
loc_004081D6:   var_28 = Form1.ForeColor
loc_004081DB:   var_68 = var_28
loc_004081E2:   If var_68 >= 0 Then GoTo loc_00408201
loc_004081F9:   var_A8 = var_68
loc_004081FF:   GoTo loc_0040820B
loc_00408201:   var_A8 = 0
loc_0040820B:
  loc_0040823D: For Each arg_8 In GUID(00403B2Ch)
  loc_00408243: var_94 = For Each arg_8 In GUID(00403B2Ch)
loc_00408249:   GoTo loc_004083FE
loc_0040824E:   var_4 = 5
  loc_00408268: Form1.00403EC4h = PropBag.ReadProperty(0, arg_C)
loc_0040826D:   var_64 = Form1.Reset
loc_00408274:   If var_64 >= 0 Then GoTo loc_00408296
loc_0040828E:   var_AC = var_64
loc_00408294:   GoTo loc_004082A0
loc_00408296:   var_AC = 0
loc_004082A0:
  loc_004082B3: Form1.Hwnd = 0000001Ch
loc_004082BF:   If var_68 >= 0 Then GoTo loc_004082E1
loc_004082DF:   GoTo loc_004082EB
loc_004082E1:   var_B0 = 0
loc_004082EB:
loc_004082F4:   var_4 = 6
  loc_004082FB: call Err(Me.Reset, 0000005Ch, 00000068h, 00000068h, 00000068h, 00000068h)
  loc_0040830C: var_64 = Err(Me.Reset, 0000005Ch, 00000068h, 00000068h, 00000068h, 00000068h)
  loc_0040831C: Form1.Err(Me.Reset, 0000005Ch, 00000068h, 00000068h, 00000068h, 00000068h) = PropBag.ReadProperty(var_60, 0)
loc_00408328:   If var_64 >= 0 Then GoTo loc_00408347
loc_0040833F:   var_B4 = var_64
loc_00408345:   GoTo loc_00408351
loc_00408347:   var_B4 = 0
loc_00408357:   setz al
loc_0040835A:   neg eax
  loc_0040836F: If word ptr var_6C = 0 Then GoTo loc_004083DB
loc_00408371:   var_4 = 7
  loc_0040838B: Form1.%x3 = PropBag.ReadProperty(00403ED4h, 0000001Ch)
loc_00408397:   If var_64 >= 0 Then GoTo loc_004083B9
loc_004083B7:   GoTo loc_004083C3
loc_004083B9:   var_B8 = 0
loc_004083C3:
loc_004083CC:   ecx = ""
loc_004083DB:   var_4 = 9
loc_004083F2:   Next arg_8
loc_00408405:   If var_94 <> 0 Then GoTo loc_0040824E
loc_0040840B:   var_4 = 10
loc_00408417:   var_64 = arg_C
loc_00408427:   Form1.BackColor = ""
loc_0040842C:   var_68 = var_64
loc_00408433:   If var_68 >= 0 Then GoTo loc_00408452
loc_0040844A:   var_BC = var_68
loc_00408450:   GoTo loc_0040845C
loc_00408452:   var_BC = 0
loc_0040845C:
loc_00408465:   var_28 = 0
  loc_0040848E: For Each arg_8 In GUID(00403EC4h)
  loc_00408494: var_9C = For Each arg_8 In GUID(00403EC4h)
loc_0040849A:   GoTo loc_0040858B
loc_0040849F:   var_4 = 11
loc_004084B1:   var_28 = IsSet(Me.GetPalette)
loc_004084BA:   var_54 = var_28
loc_004084BD:   var_5C = &H4009
  loc_0040850B: call MSVBVM60.DLL.__vbaCastObj(var_28, 00403EC4h, "", var_64, 00403EC4h, 00000064h, 00000064h, 00000064h, 00000064h)
  loc_00408546: Form1.Proc_0_7_4080E0(arg_8, var_2C, var_2C, Form1.SaveProp.1)
loc_00408568:   var_4 = 12
loc_0040857F:   Next arg_8
loc_00408592:   If var_9C <> 0 Then GoTo loc_0040849F
loc_0040859D:   GoTo loc_004085CF
loc_004085CE:   Exit Sub
loc_004085CF:
End Sub

Muto obrigado

Editado Maio 16, 2010 por Jonathan Queiroz
Remover palavra "socorro" do título conforme regra 3.6 (Jonathan)

[kuroi]

realmente, já testei uns decompilers pra vb6, e ele retorna o codigo nesse formato estranho.

realmente não sei como esse codigo pode ser aproveitado.