Vb 2008 Multy DLL injector

[raymondhvh]

Hallo ik maak op dit moment een DLL injector,
en gebruik deze code om 1.dll te injecten

 On Error GoTo 1 ' If error occurs, app will close without any error messages
        Timer1.Stop()
        Dim i As Integer = 0


        Dim TargetProcess As Process() = Process.GetProcessesByName(TextBox2.Text)
        TargetProcessHandle = OpenProcess(PROCESS_CREATE_THREAD Or PROCESS_VM_OPERATION Or PROCESS_VM_WRITE, False, TargetProcess(0).Id)


        pszLibFileRemote = [COLOR="Red"]BESTAND locatie[/COLOR]


        pfnStartAddr = GetProcAddress(GetModuleHandle("Kernel32"), "LoadLibraryA")
        TargetBufferSize = 1 + Len(pszLibFileRemote)
        Dim Rtn As Integer
        Dim LoadLibParamAdr As Integer
        LoadLibParamAdr = VirtualAllocEx(TargetProcessHandle, 0, TargetBufferSize, MEM_COMMIT, PAGE_READWRITE)
        Rtn = WriteProcessMemory(TargetProcessHandle, LoadLibParamAdr, pszLibFileRemote, TargetBufferSize, 0)
        CreateRemoteThread(TargetProcessHandle, 0, 0, pfnStartAddr, LoadLibParamAdr, 0, 0)
        CloseHandle(TargetProcessHandle)
1:      Me.Close()

nu heb ik de BESTAND locatie in een listbox staan
maar ik moet nu dus Elke item in die listbox hebben als een bestand locatie
Hoe kan ik dit t beste doen??
ik open de files met een openfile dialog,
Groetjes Raymond

 

[The Mighty Atom]

Je kan een For Each loop gebruiken:

For Each Item As <DataType> in ListBox.Items
'Doe iets
Next

 

[raymondhvh]

hmm dat snap ik ff nie kun je dat in de code verwerken?:thumb: