Autor
|
Tema: Ejecutar un archivo seleccionado desde resource (Leído 4,238 veces)
|
GEORGEFRT
Desconectado
Mensajes: 40
|
Estoy aprendiendo a utilizar visual no se mucho hay veces que me hablan de dichas acciones las cuales no se mucho he investigado y integrado un archivo *.exe dentro del proyecto desde agregar recursos, y he visto que lo guarda en la carpeta resource, me gustaría ejecutarlo, cual seria el código para la ejecución del archivo, espero me puedan ayudar.
|
|
|
En línea
|
|
|
|
fary
|
Que tipo de archivo es?
|
|
|
En línea
|
Un byte a la izquierda.
|
|
|
GEORGEFRT
Desconectado
Mensajes: 40
|
Un exe ejecutable llamado dir.exe
|
|
|
En línea
|
|
|
|
fary
|
Una vez que obtienes el archivo del recurso tienes que generar el archivo en disco para poder ejecutarlo, o bién si no quieres generar el archivo ejecutarlo directamente desde memoria (RunPE).
saludos.
|
|
|
En línea
|
Un byte a la izquierda.
|
|
|
GEORGEFRT
Desconectado
Mensajes: 40
|
Soy novato, no se si me pudieran ayudar con mas detalles saludos.
|
|
|
En línea
|
|
|
|
fary
|
Soy novato, no se si me pudieran ayudar con mas detalles saludos.
¿Qué es lo que no entiendes?
|
|
|
En línea
|
Un byte a la izquierda.
|
|
|
Eleкtro
Ex-Staff
Desconectado
Mensajes: 9.885
|
¿VB6, o VB.NET?. No recuerdo ni por asomo el tema de los recursos en VB6.
''' ---------------------------------------------------------------------------------------------------- ''' <summary> ''' Extracts a resource to disk. ''' </summary> ''' ---------------------------------------------------------------------------------------------------- ''' <example> This is a code example. ''' <code> ''' ExtractResourceToDisk(My.Resources.MyTextfile, "C:\File.txt") ''' </code> ''' </example> ''' ---------------------------------------------------------------------------------------------------- ''' <param name="resource"> ''' The resource to extract. ''' </param> ''' ''' <param name="targetFilepath"> ''' The target filepath where to save the resource data. ''' </param> ''' ''' <param name="overwrite"> ''' If set to <see langword="True"/>, overwites any existing file, ''' otherwise, if the file already exists, a <see cref="Global.System.IO.IOException"/> exception is thrown. ''' </param> ''' ---------------------------------------------------------------------------------------------------- <DebuggerStepThrough> Public Shared Sub ExtractResourceToDisk(ByVal resource As Byte(), ByVal targetFilepath As String, Optional ByVal overwrite As Boolean = False) Dim mode As FileMode If overwrite Then mode = FileMode.Create Else mode = FileMode.CreateNew End If Dim bufferSize As Integer = Streams.GetFileStreamBufferSize(resource.Length) Using fs As New FileStream(targetFilepath, mode, FileAccess.Write, FileShare.Read, bufferSize) fs.Write(resource, 0, resource.Length) End Using End Sub
Ejemplo de uso: ExtractResourceToDisk(My.Resources.MyTextfile, "C:\File.txt")
Fuente: Saludos.
|
|
« Última modificación: 15 Junio 2016, 01:30 am por Eleкtro »
|
En línea
|
|
|
|
Lekim
Desconectado
Mensajes: 268
|
Hola Deberías especificar si lo quieres para VB6 o VB.NET En VB6 puedes usar esta función para extraer el archivo: Public Function CrearArchivoBinario(strPath As String, strNameFile As String, idRes As Variant, TypeRes As String) On Error GoTo EvitarError Dim Path As String Dim numFile As Integer Dim aDatos() As Byte numFile = FreeFile Path = strPath & "\" & strNameFile ' lee los datos en el array de bytes aDatos = LoadResData(idRes, TypeRes) ' abre un archivo para escribir los datos en modo binario Open Path For Binary Access Write As #numFile ' escribe el array de bytes para Put #numFile, , aDatos ' cierra el fichero Close 'MsgBox "Datos guardados con éxito", vbInformation, "Información" EvitarError: If Err.Number <> vbNull Then MsgBox Err.Description, vbCritical, "Error" End If End Function
Y la forma de usarlo es esta: CrearArchivoBinario DIRECTORIO, "ARCHIVO", ID, "TIPO" Ejemplo: CrearArchivoBinario "C:\MyBinFile", "Aplicación.exe", 101, "CUSTOM" NOTA: El directorio debe existir. Esta función no crea directorios. Por ejemplo si pones "C:\MyBinFile" y la carpeta "MyBinFile" no existe se produce un error. Para ejecutarlo puedes usar Shell()s2s
|
|
« Última modificación: 16 Junio 2016, 22:22 pm por Lekim »
|
En línea
|
|
|
|
|
Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
ejecutar archivo desde php
PHP
|
Gordo
|
5
|
9,015
|
14 Agosto 2007, 15:40 pm
por yeikos
|
|
|
Ejecutar archivo desde vb...
Programación Visual Basic
|
_DeMoN_
|
6
|
2,706
|
30 Septiembre 2007, 19:21 pm
por nhaalclkiemr
|
|
|
Ejecutar codigo ASM desde archivo de recursos
Programación Visual Basic
|
MCKSys Argentina
|
0
|
4,007
|
20 Octubre 2009, 02:05 am
por MCKSys Argentina
|
|
|
como ejecutar un archivo desde un pc a otro, en red
.NET (C#, VB.NET, ASP)
|
lordlionell
|
7
|
14,502
|
13 Junio 2011, 04:41 am
por 43H4FH44H45H4CH49H56H45H
|
|
|
[Resuelto] ejecutar archivo de python desde php
PHP
|
LaThortilla (Effort)
|
5
|
9,780
|
27 Marzo 2015, 19:09 pm
por LaThortilla (Effort)
|
|