He perdido parte de codigo fuente de un programa de VB 6.0...

[Shook]

Holas...

Es mi primer post a si que a ver si me podéis echar una mano please!

Resulta que he de modificar una aplicación que hice hace 3 años en vb6.0 y cuando me pongo a modificar el fuente que tengo me he dado cuenta que hay una parte que no tengo y es xq el código que tengo es un pelín (afortunadamente poco) más pequeño que el que tenía.

Me he puesto a buscar info y he dado con el VB RezQ y al menos así se que partes son als que no tengo (creo que todo lo relacionado con reports) y algo me saca pero no me vale para nada ya que va todo así:

Sub txt3Email_Change()
End Sub

Sub txt3Fax_Change()
End Sub

Sub txt3Nombre_Change()
End Sub

Sub txt3NomContacto1_Change()
End Sub

Sub txt3NomContacto2_Change()
End Sub

Sub txt3NomContacto3_Change()
End Sub

Sub txt3NumContacto1_Change()
End Sub

Sub txt3NumContacto2_Change()
End Sub

Sub txt3NumContacto3_Change()
End Sub

Sub txt3Provincia_Change()
End Sub

Sub txt3Telefono_Change()
End Sub

Es decir, no me pone absolutamente nada del contenido de los sub...

Hay alguna forma de recuperarlo o me olvido y me pongo a reprogramar la parte que necesito?

Un saludo y muchísimas gracias, confio en vosotros!

[byebye]

programa lo que necesites.

[Shook]

Hay otro que me pone esto:

Private Sub txt1Mes__587DA0
00587DA0: push ebp
00587DA1: mov ebp, esp
00587DA3: sub esp, 0000000Ch
00587DA6: push 00401B06h
00587DAB: mov eax, fs:[00h]
00587DB1: push eax
00587DB2: mov fs:[00000000h], esp
00587DB9: sub esp, 0000006Ch
00587DBC: push ebx
00587DBD: push esi
00587DBE: push edi


Pero... la version registrada teoricamente da mas pistas:

Example of Lite version:

Private Sub Command1__401E30

  loc_401DE8: LitVar_Missing var_104

  loc_401DEB: LitVar_Missing var_E4

  loc_401DEE: LitVar_Missing var_C4

  loc_401DF1: LitI4 0

  loc_401DF6: LitVarStr var_94, "Another NAG"

  loc_401DFB: FStVarCopyObj var_A4

  loc_401DFE: FLdRfVar var_A4

  loc_401E01: ImpAdCallFPR4 MsgBox(arg_1, arg_2, arg_3, arg_4, arg_5)

  loc_401E06: FFreeVar var_A4 = "": var_C4 = "": var_E4 = ""

  loc_401E11: FLdPr arg_8

  loc_401E14: VCallHresult 1248 About this bug

  loc_401E19: LitVar_Missing var_B4

  loc_401E1C: PopAdLdVar

  loc_401E1D: LitVar_Missing var_94

  loc_401E20: PopAdLdVar

  loc_401E21: ImpAdLdRf unk_4019F4

  loc_401E24: NewIfNullPr

  loc_401E27: VCallHresult 159 About this bug

End Sub



Example of Pro version:

Private Sub Command1__401E30

  loc_401DF6: Dim var_94 As String: var_94 = "Another NAG"

  loc_401DFB: Set var_A4 = var_94

  loc_401E01: MsgBox(var_A4, 0, var_C4, var_E4, var_104) 'Arguments: arg_14

  loc_401E06: var_A4 = "": var_C4 = "": var_E4 = ""

  loc_401E14: Call 1248 'Arguments: arg_2 About this bug

  loc_401E24: NewIfNullPr xxx_401304

  loc_401E27: Call 159 'Arguments: arg_5 About this bug

End Sub



Xo ese programa no se donde conseguirlo y justo, tiene cojones, a ese programa no lee lo que necesto, los reports...

Tiene que haber alguna forma

[titocosa]

probaste con el numega smartcheck ?
creo que es lo mejorcito de todo (fijate que esta el link en el foro)