Título: He perdido parte de codigo fuente de un programa de VB 6.0... Publicado por: Shook en 8 Agosto 2005, 19:38 pm 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! Título: Re: He perdido parte de codigo fuente de un programa de VB 6.0... Publicado por: byebye en 8 Agosto 2005, 23:21 pm programa lo que necesites.
Título: Re: He perdido parte de codigo fuente de un programa de VB 6.0... Publicado por: Shook en 8 Agosto 2005, 23:40 pm 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 :( Título: Re: He perdido parte de codigo fuente de un programa de VB 6.0... Publicado por: titocosa en 24 Agosto 2005, 21:23 pm probaste con el numega smartcheck ?
creo que es lo mejorcito de todo (fijate que esta el link en el foro) |