Cargar dinamicamente una dll en VB6

[[escafandra]]

Lo suyo y lo limpio es liberar la memoria cuando ya no la quieres.

Saludos.

[aguml]

Bueno, al final lo que estaba haciendo no me iba bien del todo ya que en unas funciones de la dll funcionaba y en otras crasheaba creo que porque como solo copio las funciones pues al ejecutarse supongo que buscaba alguna cosa de la dll y booom.
Lo estoy intentando pasar todo para usarlo con lo que pusiste y de momento para cargar la dll tengo esto:

Código PHP:

void __fastcall TFormMain::OnEntryPoint(DWORD Address)
{
   // Inyecta la dll
   AnsiString dll = "DLLHack.dll";
   HANDLE  hThread = 0;
   DWORD   ExitCode = 0;
   LPTHREAD_START_ROUTINE hLib;

   // Localizo memoria en el espacio de direcciones de la víctima
   void*  Buffer = VirtualAllocEx((HANDLE)Depurador->GetHProcess(), NULL, dll.Length()+1, MEM_COMMIT|MEM_RESERVE,PAGE_READWRITE);

   if(Buffer){
      if(Depurador->WriteMemory((unsigned long)Buffer, dll.c_str(), dll.Length()+1)){
         hLib = (LPTHREAD_START_ROUTINE)Depurador->GetAddressAPIByName("Kernel32.dll", "LoadLibraryA");
         if(hLib){
            hThread =:: CreateRemoteThread(Depurador->GetHProcess(), NULL, 0, hLib, Buffer, 0, 0);
            if(hThread){
               WaitForSingleObject(hThread, INFINITE ); // Espero a que se cree el Thread
               GetExitCodeThread(hThread, &ExitCode);   // Termino el Thread
               CloseHandle(hThread);                    // Cierro el Handle hThread
            }
         }
      }
      // libero la memoria localizada...
      VirtualFreeEx((HANDLE)Depurador->GetHProcess(), Buffer, 0, MEM_RELEASE); // Libero memoria
   }
} 


Como corre dentro de un depurador, tengo metodos para obtener la direccion de las apis dentro del proceso y otras cosas mas.
El problema que tengo es que se queda congelado en el WaitForSingleObject aunque si lo miro con el Cheat Engine puedo ver como se ha creado el hilo. ¿que puedo hacer para solucionar eso?

[[escafandra]]

Probablemente es un problema en el depurador, intenta esto:

Código PHP:

.............................
         if(hLib){
            CloseHandle(CreateRemoteThread(Depurador->GetHProcess(), NULL, 0, hLib, Buffer, 0, 0));
         }
........................ 


Saludos.

[aguml]

lo he solucionando injertando en el oep el push y el call loadlibrary y en la siguiente linea pongo un bp. Arranco y cuando para en el bp ya tengo la dll cargada asi que restauro los bytes originales, quito el bp y posiciono a eip en el oep y ya corre con la dll. De todos modos mañana probaré lo que me indicas a ver que pasa.

[aguml]

una cosa, al estar parado en un evento, al ejecutar el codigo anterior creo que no tendria efecto hasta que arranque ¿No? Se supone que el codigo lo ejecuto dentro del evento y mientras tanto el proceso se congela y con el todos sus hilos. Entonces si es asi el nuevo hilo estaria congelado con lo cual no se ejecutaria hasta que salga del evento ¿No? El hilo aparecia como creado con lo que se me ocurre poner un bp en la siguiente linea y en ese evento poner el waitforsingleobject. De todos modos el modo que uso ahora mismo funciona aunque es algo chapuzas pero bueno.

[[escafandra]]

Exacto, por eso quité el WaitForSingleObject.

Saludos.

[aguml]

Amigo como me indicas tengo un inconveniente.
Justo despues de cargar la dll tengo que obtener una serie de punteros a las funciones de la dll y si no pongo el WaitForSingleObject no funciona.
Como yo lo hago si funciona porque como se ejecuta el LoadLibrary y luego paro en la siguiente linea pues ya puedo obtener la info de la dll sin problemas.