Menú Principal

Este sitio usa cookies y tecnologías similares.

Si no cambia la configuración de su navegador, usted acepta su uso. Saber más

Acepto

Zona descarga

Código ensamblador en VB6. Complemento ThunderVB.

Tamaño de letra:

Código ensamblador en VB6 usando complemento

En otro tutorial vimos cómo ejecutar código asm en VB6 mediante el uso de la función CallWindowProc, un código sencillo que vimos que incluso nos puede servir como protección anticracking. Sin embargo, en VB6 podemos utilizar otra técnica que es el uso de un curioso complemento... Hoy voy a hacer un programa que va a ejecutar un mismo código en Visual Basic 6 y después en ensamblador. Verás la velocidad de uno y otro código.

Complemento ThunderVB

Yo he conocido dos complementos pero uno no conseguí hacerlo funcionar, así que voy a explicar el denominado: ThunderVB en su versión 1.0.0. Realmente es impresionante el gran trabajo que realiza.
Su página web es la siguiente: http://www.freewebs.com/hardcorevb/tvb.html
El proyecto (última actualización el 21 de junio de 2010) se puede encontrar aquí también: http://sourceforge.net/projects/thundervb/

ThunderVB es un excelente complemento para Visual Basic 6. Permite embeber código ensamblador (asm) e instrucciones en C ¡directamente! en el código fuente de tus programas. Además permite extender el IDE de VB a un editor de código asm/C básico, es decir, que puede hacer el resaltado de sintaxis de palabras clave de asm/C y la opción de autocompletar.

ThunderVB dejó de desarrollarse por falta de tiempo de sus desarrolladores, aunque la última versión es bastante estable.

Instalar ThunderVB

Quiero comentar que solo he probado ThunderVB bajo Windows XP, no lo he testeado ni en Windows Vista, ni en 7, ni en 8. Además -importante- requiere que tengas Visual Basic 6 con SP6 que puedes descargar de aquí:
http://www.microsoft.com/download/en/details.aspx?id=5721

Si vas a la descarga de antes de sourceforge y seleccionas "Files" podrás descargar los archivos que necesites. Yo voy a descargar únicamente ThunderVB 1.0.0, exactamente el archivo ThunderVB_1.0.0.rar. Una vez que descomprimes ese archivo verás un ejecutable llamado ThunderVB 1.0.0.exe que es el que debes instalar:

Instalando ThunderVB

Una vez instalado correctamente te mostrará una ventana: "Add-In called ThunderVB_pl_v1_0 han been installed". Ejecuta VB6, en mi caso observo que se instala el componente y aparece en la barra de herramientas un icono para configurar ThunderVB:

ThunderVB instalado. Icono en VB6.

Si al usarlo en un proyecto observas que no aparece, ve al menú de VB6: Complementos -> Administrador de complementos, seleccionas Thunder VB 1.0.0 (observando que no está cargado) y en "comportamiento de carga" selecciona "cargado/descargado" y si quieres "cargar al iniciar".

Proyecto y ejemplo de uso.

Tienes muchos ejemplos que puedes ver en la zona de descarga de antes y hacer las pruebas necesarias. Yo voy a hacer un ejemplo que haga la misma operación en VB que en asm para comprobar la diferencia de velocidad entre uno y otro. ThunderVB puede ensamblar con MASM, TASM y... Yo voy a usar MASM32, así que antes de continuar lo instalo en el directorio C:\.

Crea un nuevo proyecto en VB6, un exe estándar. Voy a crear dos botones: uno para ejecutar código asm(bt_asm) y otro para ejecutar código VB (bt_vb). También crearé dos textbox para mostrar el resultado final de la operación: resultado_asm y resultado_vb. Voy a agregar un módulo al proyecto. En el código del formulario pego el siguiente código:

Option Explicit
 
 
Private Sub bt_asm_Click()
      resultado_asm.Text = ""
      Frame2.Caption = "Procesando...espere un momento"
      DoEvents
      resultado_asm.Text = Format$(calcula_en_asm)
      Frame2.Caption = "Realizar proceso en ASM"
End Sub
 
Private Sub bt_vb_Click()
      Dim i, j As Integer, k As Long
      resultado_vb.Text = ""
      Frame1.Caption = "Procesando...espere un momento"
      DoEvents
      For j = 0 To 5000
            For i = 0 To 32766
                  k = k + 1
            Next i
      Next j
      resultado_vb.Text = k
      Frame1.Caption = "Realizar proceso en Visual Basic 6"
End Sub
 

Y en el código del módulo, pego el siguiente código (donde va el código ensamblador):

Option Explicit
 
Public Function calcula_en_asm() As Long
'#asm'      LOCAL j :DWORD
'#asm'      LOCAL i :DWORD
'#asm'      mov j, 0
'#asm'      mov i, 0
'#asm'      xor eax, eax
'#asm'      .repeat
'#asm'            .repeat
'#asm'                  inc eax
'#asm'                  inc j
'#asm'            .until j > 1388h
'#asm'            inc i
'#asm'            mov j, 0
'#asm'      .until i > 7FFEh
'#asm'      ret
End Function
 

Como puedes ver, los dos códigos hacen las mismas operaciones. En asm cada instrucción debe comenzar por '#asm' pero para más info tienes muchos ejemplos en descarga. Para que ThunderVB pueda ensamblar el código anterior, es necesario configurar la ruta al enlazador (ml.exe). Yo voy a usar MASM32, así que pulso el botón de ThunderVB, selecciono el plugin thunderasm y a la derecha pulso en paths (rutas). En la primera opción (Inline Asm -> Path to Masm (ml.exe)) nos pide la ruta al archivo ml.exe. En mi caso es esta:

C:\masm32\bin\ml.exe

Que pongo en la configuración y pulso Ok.
Con todo configurado ya solo queda generar el exe. Durante este proceso, sale una ventana de título "ThunderAsm" diciendo: "Project Must be saved for asm changes to have effect, You want to save it now?" (Para que los cambios asm tengan efecto debe guardar el proyecto, ¿quiere guardarlo ahora?" Esto es porque habré hecho alguna modificación de código. Pulso en Sí y dice que el proyecto ha sido guardado: "Project ASM_inline was saved". Pulso aceptar y el programa se compila perfectamente.

¿Cómo se genera realmente el código?

Al igual que en otros casos hicimos uso de CallWindowProc para insertar y ejecutar código asm, en este caso quise saber qué hace realmente el plugin ThunderVB con el código anterior. Desensamblé el código del exe y comprobé que ThunderVB hace un trabajo impecable: veo que se ha generado una nueva sección y ahí pega el código ensamblador y el enlace a la misma es una call directa. El código asm final es el siguiente:

1100A000    55                push ebp
1100A001    8BEC              mov ebp,esp
1100A003    83C4 F8           add esp,-8
1100A006    C745 FC 00000000  mov dword ptr ss:[ebp-4],0
1100A00D    C745 F8 00000000  mov dword ptr ss:[ebp-8],0
1100A014    33C0              xor eax,eax
1100A016    40                inc eax
1100A017    FF45 FC           inc dword ptr ss:[ebp-4]
1100A01A    817D FC 88130000  cmp dword ptr ss:[ebp-4],1388
1100A021  ^ 76 F3             jbe short 1100A016
1100A023    FF45 F8           inc dword ptr ss:[ebp-8]
1100A026    C745 FC 00000000  mov dword ptr ss:[ebp-4],0
1100A02D    817D F8 FE7F0000  cmp dword ptr ss:[ebp-8],7FFE
1100A034  ^ 76 E0             jbe short 1100A016
1100A036    C9                leave
1100A037    C3                retn
1100A038    33C0              xor eax,eax
1100A03A    C9                leave
1100A03B    C3                retn
 

El trabajo que realiza este plugin es en una palabra: impresionante. Para los todavía usuarios de Visual Basic 6 tal vez les resulte útil.

Descarga de proyecto y exe

Para que todo usuario programador pueda examinar este proyecto dejo el mismo en descarga. También he generado el exe para que cualquiera, tenga o no VB6, pueda ejecutar el exe y comprobar la velocidad final de uno u otro código:

Imagen previa del exe en ejecución en Windows 7:

Ejecutable: Ensamblador en VB6

Última actualización: Domingo, 18 Marzo 2012

Comentarios   

Jhonsson C.
0 # Jhonsson C. 07-01-2013 06:20
hola, muy interesante y util el post solo me gustaria saber como pasu un parametro de ser posible de vb a ensamblador, es para una practica.

de antemano gracias y felicitaciones nuevamente por el post :roll:
Responder | Responder con una citación | Citar
karmany
0 # karmany 07-01-2013 10:42
¿A qué te refieres? Pon un ejemplo.
Para pasar un parámetro puedes usar una función como se hace en este tutorial.
Responder | Responder con una citación | Citar
Invitado
0 # Invitado 01-05-2012 05:52
No, en la depuración no funciona.

El plugin únicamente actúa en la compilación cuando generas el exe.
Responder | Responder con una citación | Citar
ruso10
0 # ruso10 01-05-2012 05:18
una duda el programa solo funciona cuando se genera el .exe o deberia de funcionar a la hora de ejecutarlo desde visual basic? porque genere el exe y si me funciono.
Responder | Responder con una citación | Citar
karmany
0 # karmany 29-04-2012 12:14
Yo utilizo MASM32 que tengo instalado en C:, utilizo Windows XP SP3 y Visual Basic 6 SP6
No sé si lo he comentado en el post, pero en las opciones de Thunder tienes que indicar que vas a usar MASM32. Para hacer esto te vas a la configuración del plugin, como hemos visto en el tutorial.

Y en el menú ThundASM tienes que indicar creo que el compilador de MASM32: ml.exe, no lo recuerdo exactamente porque no lo tengo ahora delante.

Ojalá lo consigas solucionar, tal vez influya la máquina virtual, pero no te lo puedo asegurar.
Responder | Responder con una citación | Citar
ruso10
0 # ruso10 29-04-2012 08:00
Que tal amigo, este post me puede servir de mucho, pero no me funciona no se que estare haciendo mal, no se si sera el masm porque tengo en una maquina virtual windows xp, instalado con el visual basic sp6 y con thunderVB, pero no lo puedo configurar o no se que estoy haciendo mal serian tan amables de ayudarme!
Responder | Responder con una citación | Citar

Escribir un comentario

Antes de publicar un comentario, usted debe aceptar nuestras condiciones de uso: Condiciones de uso


 
Visitas: 2036227