elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Tutorial básico de Quickjs


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Crear ejecutables desde un form de v basic 6
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: 1 [2] Ir Abajo Respuesta Imprimir
Autor Tema: Crear ejecutables desde un form de v basic 6  (Leído 4,107 veces)
darksystem

Desconectado Desconectado

Mensajes: 8


Ver Perfil
Re: Crear ejecutables desde un form de v basic 6
« Respuesta #10 en: 11 Mayo 2008, 21:09 pm »

Te puedo dar una alternativa, podes a partir de un ejecutable hacer otro ejecutable teniendo un ejecutable xD. me explico.
Tenes el "Compilador.exe", la fuente.exe. Con compilador.exe teniendo como base fuente.exe, podes crear un tercer archivo llamado compilado.exe. Ya se que habias dicho nada de copiar, pero solo es una alternativa.
Podes grabar los datos que insertes en compilador.exe al final de fuente.exe, y crear el archivo compilado.exe que leera estos datos y los adaptara a un codigo.

El codigo en visual basic es el siguiente:

Este es el primero que se tiene que compilar
Fuente.exe
Código
  1. 'Para este proyecto se necesita un CommandButton de nombre Command1
  2. Dim P As New PropertyBag, Mensaje
  3. Private Sub Command1_Click()
  4. MsgBox Mensaje
  5. End Sub
  6.  
  7. Private Sub Form_Load()
  8. Dim P1 As Long, Temp, ByteArray() As Byte
  9. Open App.Path & "\" & App.EXEName & ".exe" For Binary As #1
  10. Get #1, LOF(1) - 3, P1
  11. Seek #1, P1
  12. Get #1, , Temp
  13. ByteArray = Temp
  14. P.Contents = ByteArray
  15. Close #1
  16. Mensaje = P.ReadProperty("Msgbox")
  17. Me.Caption = P.ReadProperty("Titulo")
  18. End Sub
  19.  

Compilador.exe
Código
  1. 'Se necesita un CommandButton de nombre Command1
  2. 'Dos campos de texto con nombre Text1 y Text2 respectivamente
  3. Private Sub Command1_Click()
  4. Dim P As New PropertyBag, P1 As Long, Temp
  5. P.WriteProperty "Titulo", Text1.Text
  6. P.WriteProperty "Msgbox", Text2.Text
  7. FileCopy App.Path & "\fuente.exe", App.Path & "\compilado.exe"
  8. Open App.Path & "\compilado.exe" For Binary As #1
  9. P1 = LOF(1)
  10. Temp = P.Contents
  11. Seek #1, LOF(1)
  12. Put #1, , Temp
  13. Put #1, , P1
  14. Close #1
  15. End Sub
  16.  

No se me ocurre algo mas para aplicar xD
saludos!


muy buen ejemplo pero al compilar fuente.exe me sale error en
Get #1, LOF(1) - 3, P1

mnnm


En línea

Páginas: 1 [2] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
enviar un form con hidden desde asp.net
Java
almita 0 3,472 Último mensaje 6 Diciembre 2010, 07:20 am
por almita
llamar un Windowsform de C sharp.Net desde un Form de Visual Basic.NET
.NET (C#, VB.NET, ASP)
tonder 2 3,910 Último mensaje 25 Junio 2011, 17:44 pm
por tonder
Como crear un exe en un windows form
.NET (C#, VB.NET, ASP)
Devilboy.Devil 0 1,775 Último mensaje 20 Noviembre 2013, 16:42 pm
por Devilboy.Devil
¿Cómo crear un Windows Form? « 1 2 »
Programación C/C++
Meta 15 7,344 Último mensaje 17 Marzo 2014, 22:22 pm
por BloodSharp
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines