 Autor
|
Tema: "" INSERTAR UN EJECUTABLE DENTRO DE OTRO "" (Leído 9,365 veces)
|
gera
 Desconectado
Mensajes: 5
|
Hola, estoy necesitando en ejemplo vb que pueda abrir un archivo (*.exe), que lo haga dentro del mismo formulario en "modo bynario",y una función que lo pueda guardar en (*.exe) nuevamente.
|
|
|
|
|
En línea
|
|
|
|
yeikos
Desconectado
Mensajes: 1.424
|
Mira, acabo de terminar un programa que lo he llamado Inyector y me han surjido varios problemas. Para sacar los datos de un ejecutable se utiliza Get, y estos datos deben de almacenarse en una variable string con limitaciones, ejemplo:
Dim size As String * 50006 'bytes
El problema es que las limitaciones estás como bien dicen tienen un límite que rondan por los 65000 o por ahí, eso quiere decir que si el archivo pesa 100kb no puedo cojer su código con la función Get, probé haciendo Dim size As String * FileLen("C:\fichero.exe"), pero las limitaciones deben de ser un número o una constante y a una constante no le puedo dar esos datos, a ver si me pueden ayudar.
|
|
|
|
« Última modificación: 15 Octubre 2005, 01:26 am por YeIk0s »
|
En línea
|
|
|
|
Kizar
Desconectado
Mensajes: 1.325
kizar_net
|
pues puedes dividir el archivo en las partes k necesites. dim Trozos as integer
dim i as integer
dim datos as string * 65000
Trozos = FileLen("lala") / 65000
open "lala" for binary as #1
for i = 1 to trozos
get #1,, datos
'aces lo k keras con ellos
next
close #1
Salu2, no tengo el vb aki, corregid errores |
|
|
|
|
En línea
|
|
|
|
yeikos
Desconectado
Mensajes: 1.424
|
Cierto, acabo de recordar un artículo que comentaba sobre la transferencia de bytes mediante el control winsock, que para un proceso mejor se debian transmitir los bytes 1 a 1.
Voy a terminar el código, cuando lo tenga lo publico.
|
|
|
|
|
En línea
|
|
|
|
Kizar
Desconectado
Mensajes: 1.325
kizar_net
|
pero eso de byte a byte es por que al mandarlo por internet, si mandas paketes muy grandes no llegan y ocuan much0 ancho de banda, pero para trabajar en el ekipo usa lo k te e dixo, el maximo, se hacen menos divisiones y es mucho mas rapido
Salu2
|
|
|
|
|
En línea
|
|
|
|
yeikos
Desconectado
Mensajes: 1.424
|
Lo que no entiendo es porque lo divides entre 65000...
|
|
|
|
|
En línea
|
|
|
|
Kizar
Desconectado
Mensajes: 1.325
kizar_net
|
no dices k los maximos datos k te deja cargar en el string son 65000?
Salu2
|
|
|
|
|
En línea
|
|
|
|
yeikos
Desconectado
Mensajes: 1.424
|
Bueno sí, pero eso me daría números decimales, si no me equivoco se tendría que usar \ .
|
|
|
|
|
En línea
|
|
|
|
|
programatrix
|
Si el estring le defines como EOF te cabe todo el archivo  |
|
|
|
|
En línea
|
|
|
|
Kizar
Desconectado
Mensajes: 1.325
kizar_net
|
Rey EOF es el principio del archivo, LOF el final. Dim Tamaño as string
open "C:\lala.exe" for binary as #1
Tamaño = Space$(LOF(1))
get #1,,Tamaño
CLose #1
Te vale ?  Salu2 |
|
|
|
« Última modificación: 16 Octubre 2005, 18:43 pm por Dexonline »
|
En línea
|
|
|
|
|
| Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
|
""UN EXE DENTRO DE OTRO""
Programación Visual Basic
|
gera
|
2
|
2,025
|
18 Agosto 2005, 00:04 am
por BenRu
|
|
|
"""BUSCO EJEMPLO VB PARA ENVIAR MAILS""""
Programación Visual Basic
|
gera
|
1
|
6,594
|
1 Septiembre 2005, 00:14 am
por programatrix
|
|
|
|
De donde puedo descargar utilidades: "Formas", "Estilos", "Motivos", D
Diseño Gráfico
|
Ad0nis
|
2
|
8,817
|
2 Septiembre 2006, 15:48 pm
por Ad0nis
|
|
|
|
[Ayuda] modificar "start page" en "internet explorer" con "batch"
Scripting
|
taton
|
7
|
17,254
|
20 Septiembre 2006, 01:45 am
por taton
|
|
|
|
Propiedad "Interprete"/"Artista"/"Autor" de una canción
Windows
|
Castg!
|
4
|
9,067
|
16 Junio 2010, 07:58 am
por Roy-Mustang
|
 |
