Mensajes

[14.junio.2010 - Actualización Inno Setup Unpacker 0.32]

14.junio.2010 - Actualización Inno Setup Unpacker 0.32

Nueva actualización de este fantástico unpacker de Inno Setup.

0.32 (2010.06.14)

   * Added support for IS versions 5.3.10 (both ANSI and Unicode).
   * Added support for INI section in reconstructed script.

Su página web:
http://innounp.sourceforge.net/

Lo primero que obtienes con vbDecompiler son las direcciones exactas de los eventos y los mismos. Esto es muy útil más cuando se trabaja con un depurador (ollydbg).

Después en la parte de la derecha, obtienes el código en ensamblador del objeto, evento... que has seleccionado. Es una información muy útil ya que te indica las funciones llamadas (normalmente casi todas a MSVBVM60.DLL) y las variables también estás señaladas.

Hay mucha información sobre VB en la red. Mira algún ejemplo sencillo, mira aquí a partir del ejemplo 6:
http://foro.elhacker.net/ingenieria_inversa/tutorial_para_modificar_programas_ej_9_sustituir_recursos_18sept2009-t134513.0.html

Te doy una solución cutre: Extrae los datos del MSHFlexGrid  directamente como mostró BlackZeroX▓▓▒▒░░

Puedes dejar el MSHFlexGrid   no visible

Un trabajo excelente. Está todo bien protegido de errores.
Efectivamente lo del + y - del MSHFlexGrid es causa de la consulta, realmente no tengo tiempo para analizar.

Felicidades, muy buen trabajo.

Efectivamente como dice BlackZeroX el problema es el número de columnas. Tú haces lo siguiente:

Código (vb) [Seleccionar] Expandir

With FlexGrid
        For Fila = 1 To .Rows - 1
            For Columna = 0 To .Cols - 1
                o_Hoja.Cells(Fila, Columna + 1).Value = .TextMatrix(Fila, Columna)
            Next
        Next
End With

y el valor de .Cols no es correcto.

El problema viene porque tienes dos tablas relacionadas:


Decir que el código de BlackZeroX me parece muy bueno y se puede utilizar de forma general. Lo que dará error será Cls_AdoConector, parece ser un módulo de clase que desconozco.

Sabiendo que sólo vas a tener 5 columnas puedes hacer:
   

Código (vb) [Seleccionar] Expandir

With FlexGrid
        For Fila = 1 To .Rows - 1
            For Columna = 1 To 5
                o_Hoja.Cells(Fila, Columna).Value = .TextMatrix(Fila, Columna)
            Next
        Next
    End With

Prueba a modificar la propiedad del MSHFlexgrid: .MergeCells = flexMergeFree
Si le pones la propiedad sin combinar creo que te dará correcto, pero la presentación del control no será la adecuada.

¿Cómo haces para que te salga a la izquierda el + o - para expandir o contraer las filas? No sé si será una propiedad pues yo he modificado creo que todas y no lo logro, pero es posible que tu problema tenga que ver con eso.

Aunque lo hayas solucionado mira a ver si tienes tildado lo siguiente:
Debugging options --> events

Y tendrías que tener sólo: "entry point of main module"

Instala el SP6 para VB6, tal vez sea eso.

Microsoft dice lo siguiente:
http://support.microsoft.com/kb/273458/en-us
http://support.microsoft.com/kb/299457/en-us

PD. No sé a qué puede deberse ese error...

Ahora yo solo tengo una pregunta... Que fue la que hice primero... El code que puso Zinc, No deberia funcionar????

Por eso mismo le he hecho un ejemplo. Pueden ser muchas causas por las que Zinc no lo ha hecho bien, y eso no se ve en el código que ha puesto. Por ejemplo tal vez ha puesto mal la conexión a la base de datos, o no ha puesto correctamente el RecordSource en la tabla adecuada o tal vez está haciendo operaciones con valores con String y no es lo mismo un valor numérico. Pueden ser muchos errores. Yo le he hecho un simple ejemplo tal cual ha puesto él el código.

Salu2

Te he hecho un simple ejemplo:(Lo he vuelto a subir)
http://www.4shared.com/file/cKVi590z/Ejemplo_criterio_DAO_VB2.html

PD. Evita usar DAO, es más flexible ADO.