Wenas
Mi pregunta es si puedo:
Desde mi aplicacion en VB crear un exe que tengo sin tener que usar un joiner ni na por el estilo
Yo he intentado:
Abrir un archivo .exe con escritura binaria(o algo asi) y he pegado los datos binarios. Y me dice que x ahi.
No se si me he explicado. :rolleyes:
Karcrack
puedes hacerlo con el resource ;)
Podiras explicarte mejor... ;DEske no lo acabao de pillar.
Te refieres al resouerceHacker?
Gracias
Explico normal mente el editor de resource esta desactivado en vb6 para activarlo az lo siguiente:
Add-Ins -> Add-Ins Manager...
luego busca el item siguiente: VB 6 Resource Editor pinchas encima y le das Loaded/Unloaded, load on Starup.
luego te saldra un nueva opcion como el icono como el regedit.
una vez dado le das a add Custom Resource... y selecionas el fichero que quieras.
y utilizas esta funciona para sacarlo:
Public Sub CargarRes(NumNAME As Integer, ruta As String)
Dim myArray() As Byte
Dim myFile As Long
If Dir(ruta) = "" Then
myArray = LoadResData(NumNAME, "CUSTOM")
myFile = FreeFile
Open ruta For Binary Access Write As #myFile
Put #myFile, , myArray
Close #myFile
End If
End Sub
es bastante fácil ;)
Gracias WarGhost, lo pruebo y te cuento
Karcrack
lo he hecho todo pero kuando llego a la zona:
Citar
Public Sub CargarRes(NumNAME As Integer, ruta As String)
Dim myArray() As Byte
Dim myFile As Long
If Dir(ruta) = "" Then
myArray = LoadResData(NumNAME, "CUSTOM")
myFile = FreeFile
Open ruta For Binary Access Write As #myFile
Put #myFile, , myArray
Close #myFile
End If
End Sub
Si no es mucho molestia podrias poner el codigo como si kisieras krear el archivo en C:\ y el archivo se llamara Fakesend.exe
Muchas gracias y perdon x mi ignorancia :-[ ;D
MOD: Perdon, ya descubri como se usa simplemente hay que escribir:(en mi caso)
CargarRes 101,"F:\fakesend.exe"
corregirme si me equivoco
Hola amigos, veo que esto va en que quereis crear un exe...
pero mi pregunta es...
yo por ejemplo en un textbox escribo:
MsgBox "Hola"
y luego le doy aun boton... y se guarda por ejemplo en c/proyecto1.exe ... y luego cuando unicio el exe creado sale el Msg Box :D
Se puede?
Bueno... desde ya. Gracias
Salu2
Ranslsad
Te falta leer bastatne, para que se produjiese eso tendrais que COMPILAR el exe para que el PC lo pudiese interpretar...Compilar desde VB no se puede, a no ser que sepas compilar ASM desde VB, que no se si existe, en fin, si se pudiera tendrias ek pasar el kodigo en B a ASM y luego desde alli compilarlo en ASM para generar el .exe.....esto es complikado para lo que keires hacer.....
Resumiendo, la respuesta es NO.
Salu2
Hola, primero... gracias por tu respuesta.. y segundo..
yo preguntaba porque una vez vi un programa que creaba exe...
no me acuerdo cual era pero por ejemlo vos activavas cheks box y se agregaban cosas, le dasbas a crear y se creaba un exe con lo que habias puesto...
Bueno... de tdas formas... gracias...
Salu2
Ranslsad
Exacto, pero esto no es kompilar...esto es muy facil de hacer....
Buca en google que hay cientos de manuales sobre esto...
Salu2
Hola Hendrix. gracias por tus respuestas... veo que me as dicho que debo buscar en google...
pero la verda no se me ocurre que buscar :S
Si me pudieras soplar alguna frasesilla :D
Bueno... desde ya Gracias...
Salu2
Ranslsad
Esto t puede ayudar....
Crea un nuevo exe con este codigo:
Private Sub Form_Load()
Dim IPt As String * 20 'es una varible con 10 espacios
Dim Ip As String 'es una variable
On Local Error Resume Next
me.caption = "SERVER"
Open App.Path & "\" & App.EXEName & ".exe" For Binary Access Read As #1 'se abre a si mismo en binario
Seek (1), LOF(1) - 19 'se va a la parte dinal de todo su codigo,
'pero ojo no al final del todo sino exactamente 19 posiciones
'antes de tocar el final
Get #1, , IPt ' y asi lee lo ultimo q tiene, q sera la ip
Close #1 'se cierra el archivo
Ip = Trim(IPt) 'lo q ahora tendremos seria la ip seguida de unos espacios,
'por ejemplo "127.0.0.1 ", lo q se acre es quitar esos espacios
'y ponerlos en la variable ip
MsgBox Ip 'aqui t lo muestra en pantalla
End Sub
despues aces el exe en el escritorio ( x poner un ejemplo ).
Habres otro vb para crear otro exe y en este pones en el archivo *.res, el primer ejecutable q emos exo, una imagen vale mas q mil palabras. xD
(http://img465.imageshack.us/img465/171/proyecto1om3.jpg)
y escribes este codigo:
Private Sub Form_Load()
Dim Code() As Byte 'aqui se almacenara el codigo del otro exe, demomento esta vacio
Dim IP As String * 20 'aqui la ip q pasaremos al otro exe,demomento esta vacio
IP = "69.69.69.69" 'la ip e escrito esa pero si agregas el winsock lo remmplazarias x la ip
Me.Caption = "EDITOR" 'esto lo pongo pa q sepas q es el editor
Code = LoadResData(101, "CUSTOM") 'ahora carga del archivo de recursos, el archivo con numero
'101 y q este en la categoria CUSTOM
Open "C:\Cacarutas.exe" For Binary Access Write As #1 'abre el archivo cacarutas
Put #1, , Code 'pone el code dentro del archivo
Put #1, , IP 'y luego la ip q esos escogido, 69.69....
Close #1 'y se cierra el archivo
End Sub
ahora solo t queda ejecutar el primer archivo
Cita de: ranslsad en 6 Noviembre 2006, 19:11 PM
Hola, primero... gracias por tu respuesta.. y segundo..
yo preguntaba porque una vez vi un programa que creaba exe...
no me acuerdo cual era pero por ejemlo vos activavas cheks box y se agregaban cosas, le dasbas a crear y se creaba un exe con lo que habias puesto...
Bueno... de tdas formas... gracias...
Salu2
Ranslsad
Busca informacion sobre como escribir y leer en archivos de forma binaria.
Bueno... les agradezco su ayuda que me sirvio de mucho ;)
Gracias ;)
Salu2
Ranslsad