Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: mojolloyo20 en 2 Diciembre 2009, 00:33 am



Título: ayuda archivo .res
Publicado por: mojolloyo20 en 2 Diciembre 2009, 00:33 am
muy buenas,estoy haciendo un proyecto,y me gustaria saver,como se guardan los datos de un archivo .res en el disco duro.

bueno,lo que tengo es un front con un picturebox,para hacer las pruebas.y un modulo.

lo que ago es intentar agregar como recurso una carpeta con 3 imajenes jpg,al no poder meterlo con carpeta,las meti una a una,quedaria algo asin.

Código:
imagen1 ->(101, "CUSTOM")
imagen2 ->(102, "CUSTOM")
imagen3 ->(103, "CUSTOM")

lo 1º alcompilar el av me dice que tiene virus,solo cuando le meto  las fotos como recurso.

lo 2º es que no se como estraer las 3 fotos que estan como recurso y guardarla en
Código:
c:\prueba\imagen1.jpg.

bamos lo + importante es la 2º.si le pongo asin:

Código:
imagen1 = LoadResData(101, "CUSTOM")

lo que ago es cargar la 1º foto en la variable imagen1,intento cojer los datos de imagen1 en binario con get y luego con put le agrego los datos,pero la foto no se ve.

se crea el archivo con contenido pero la foto no se muestra y me salta error.

que podria hacer para extraer las 3 fotos al disco duro?


y ya que estamos,para no abri pos cada x tiempo,aparte de las fotos,si meto un exe o bat o txt y eso como puedo extraerlo al disco duro?


un salu2 y mil gracias


Título: Re: ayuda archivo .res
Publicado por: seba123neo en 2 Diciembre 2009, 00:43 am
una forma es algo asi:

Código
  1. Dim vDatos As String
  2. vDatos = StrConv(LoadResData(101, "CUSTOM"), vbUnicode)
  3. Open "C:\Imagen.jpg" For Binary As #1
  4. Put #1, , vDatos
  5. Close
  6. Picture1.Picture = LoadPicture("C:\Imagen.jpg")
  7. Kill "C:\Imagen.jpg"

Saludos.


Título: Re: ayuda archivo .res
Publicado por: mojolloyo20 en 2 Diciembre 2009, 00:51 am
ok gracias seba123neo,lo unico que me faltaba era esto:

Código:
StrConv y esto vbUnicode


aun no se si servira,pero para que esas instrucciones? o el por que?

por lo que entiendo,las string las convierte,luego carga los datos de la foto que son los que se ban a convertir,y lo pasas a unicode no?

y si es asin,como se cuando he de hacer eso?

un salu2 y gracias de nuevo,voy a provar.


Título: Re: ayuda archivo .res
Publicado por: mojolloyo20 en 2 Diciembre 2009, 02:00 am
ok me bino de lujo,ahora solo necesito saver la pregunta anterior,StrConv y esto vbUnicode.

un salu2