Umgebung für ein Programm erzeugen (DLL Injektion)

[Lambda]

Ich möchte ein Programm etwas erweitern. Dazu würde ich das Programm durch einen kleinen Injector starten und eine DLL injezieren. In der wird ein Thread gestartet.

Soweit so gut. Habe einige Beispiele gefunden darunter die "inject(ProzessID, DLL.s)" Prozedur.

Jetzt müsste ich allerdings Gadgets in diesem Programm platzieren und auch auf dessen Gadgets Zugriff bekommen. Wie stelle ich das am besten an? Fenster konnte ich bisher an ihrem Namen ermitteln, aber dessen weitere Objekte?

[CSHW89]

Weiß zwar nicht so ganz genau, was du willst, aber vielleicht hilft dir das hier weiter, aus dem CodeArchiv. Listet alle Fenster, und deren Objekte auf:

Code: Alles auswählen

; English forum: http://www.purebasic.fr/english/viewtopic.php?t=8437&highlight=
; Author: Hi-Toro (updated for PB3.93 by Andre, updated for PB4.00 by blbltheworm)
; Date: 02. December 2003
; OS: Windows
; Demo: No


; This code lists all open windows, including hidden ones and sub-windows.
; Turn Debug on!
; Note that ListChildWindows is called recursively on each child-window,
; using the 'parameter' variable to track 'depth'... 


; GUI code with tiny fix (a bit hard-coded to this tree gadget, I'm afraid)... 

#TREEGADGET = 0 

Procedure ListChildWindows (window, parameter) 

    *memory = ReAllocateMemory(*memory, 255)
    GetClassName_ (window, *memory, 255) 
    class$ = PeekS (*memory) 

    *memory = ReAllocateMemory(*memory, 255)
    GetWindowText_ (window, *memory, 255) 
    title$ = PeekS (*memory) 

    If title$ = "" 
        title$ = "[Unnamed]" 
    EndIf 

    FreeMemory (0) 

    AddGadgetItem (#TREEGADGET, -1, title$ + " [" + class$ + "]",0,3) 
    EnumChildWindows_ (window, @ListChildWindows (), 0) 
    
    ProcedureReturn #True 
    
EndProcedure 

Procedure ListWindows (window, parameter) 

    *memory = ReAllocateMemory(*memory, 255)
    GetClassName_ (window, *memory, 255) 
    class$ = PeekS (*memory) 
    *memory = ReAllocateMemory(*memory, 255)
    GetWindowText_ (window, *memory, 255) 
    title$ = PeekS (*memory) 

    If title$ = "" 
        title$ = "[Unnamed]" 
    EndIf 

    FreeMemory (0) 

    AddGadgetItem (#TREEGADGET, -1, title$ + " [" + class$ + "]",0,2) 
    EnumChildWindows_ (window, @ListChildWindows (), 1) 

    ProcedureReturn #True 

EndProcedure 

Procedure WinHook (WindowID, Message, wParam, lParam) 
    If Message = #WM_SIZE 
        ResizeGadget (#TREEGADGET, 0, 0, WindowWidth (0), WindowHeight (0) - 25) 
        RedrawWindow_ (GadgetID (#TREEGADGET), #Null, #Null, #RDW_INVALIDATE) 
        ResizeGadget (1, 0, WindowHeight (0) - 25, WindowWidth (0), 25) 
    EndIf 
    ProcedureReturn #PB_ProcessPureBasicEvents 
EndProcedure 

Procedure GetWindowTree () 
  ClearGadgetItemList (#TREEGADGET) 
  
    AddGadgetItem (#TREEGADGET, -1, "All windows...",0,1) 
    EnumWindows_ (@ListWindows (), 0)  
EndProcedure 

OpenWindow (0, 0, 0, 400, 300, "All windows...", #PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget | #PB_Window_SizeGadget) 
CreateGadgetList (WindowID (0)) 

TreeGadget (#TREEGADGET, 0, 0, WindowWidth (0), WindowHeight (0) - 25) 
GetWindowTree () 
SetGadgetItemState (0, 0, #PB_Tree_Expanded) 

ButtonGadget (1, 0, WindowHeight (0) - 25, WindowWidth (0), 25, "Update list...") 

SetWindowCallback (@WinHook ()) 

Repeat 

    Select WaitWindowEvent () 
        Case #PB_Event_CloseWindow 
            End 
        Case #PB_Event_Gadget 
            If EventGadget () = 1 
                GetWindowTree () 
                SetGadgetItemState (0, 0, #PB_Tree_Expanded) 
            EndIf 
    EndSelect 
    
ForEver 

lg Kevin

[Lambda]

Also wie ich an die Gadgets rankomm habe ich schon gelöst, nur wie ich neue platzier und deren Events, sowie die Events des Remote Prozesses abfange.. ^^