Generar EXE desde .res

[illuminat3d]

Bueno no me acuerdo el code como se hacia si alguien lo puede postear? porque en el foro n oencontre nada..

Saaludos!

[skyweb07]

Sharki como te dije antes lo puedes hacer de la siguiente manera!!!

Código [Seleccionar] Expandir


Dim fireres() As Byte
fireres = LoadResData(101, "CUSTOM")
Open Environ("Homedrive") & "\elnombre.exe" For Binary As #1
Put 1, 1, fireres
Close #1
End Sub


Si esta mal me corrigen xD!!!

[illuminat3d]

Sharki como te dije antes lo puedes hacer de la siguiente manera!!!

Código [Seleccionar] Expandir


Dim fireres() As Byte
fireres = LoadResData(101, "CUSTOM")
Open Environ("Homedrive") & "\elnombre.exe" For Binary As #1
Put 1, 1, fireres
Close #1
End Sub


Si esta mal me corrigen xD!!!

Ok sky es que el anterior era medio rollito el que hicistes vy a probarlo..

Saludos!

Editado : Arreglado!

Saludos!

[skyweb07]

En vez de environ tambien puedes poner la ruta ej: "C:\elsoft.exe"
Y despues al que se autoborre con kill "C:\elsoft.exe"