technologicpunk (04-10-2010)
Hey all
I'm currently working on an injector at the mo', and i need the code for adding the dll to a listbox. I'm Importing the dll from there like this, tell me if its correct;
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If IO.File.Exists(Application.StartupPath & "\" + ListBox1.Text + ".dll") Then
Dim TargetProcess As Process() = Process.GetProcessesByName("HSUpdate")
If TargetProcess.Length = 0 Then
Else
Timer1.Stop()
Call Inject()
technologicpunk (04-10-2010)
Moved to Visual Basic section.
On Form Load Or Button Click
Code:Dim fl() As String Dim fn As String Dim fp As String Dim I As Integer fp = "directory for dlls" fn = Dir(fp & "*.dll") ' You can change this to a specific file if you only need one dll (as opposed to *.dll it will be filename.dll While fn <> "" I = I + 1 ReDim Preserve fl(0 To I) fl(I) = fn fn = Dir() End While If I = 0 Then MsgBox("Error Control here") Exit Sub End If For I = 1 To UBound(fl) ListBox1.Items.Add(fl(I)) Next
Nextgen your always so confusing lol. Plain and simple
To Load Items
Code:Dim open As New OpenFileDialog open.Multiselect = True open.Filter = "DLL Files(*.dll) |*.dll" open.CheckFileExists = True open.ShowDialog() If (open.FileName = "") Then Else For Each item As String In open.FileNames Dim listItem As New ListViewItem listItem.Text = item Dim subItem As New ListViewItem.ListViewSubItem() subItem.Text = My.Computer.FileSystem.GetName(item) listItem.SubItems.Add(subItem) ListView1.Items.Add(listItem) Next End If
To Delete Items
To Inject The Current ItemsCode:For Each lrow As ListViewItem In ListView1.SelectedItems ListView1.Items.Remove(lrow) Next
Code:Private Sub Inject() Try For Each lrow As ListViewItem In ListView1.Items Timer1.Stop() Dim TargetProcess As Process() = Process.GetProcessesByName(ComboBox1.Text) 'Change to your .exe TargetProcessHandle = OpenProcess(PROCESS_CREATE_THREAD Or PROCESS_VM_OPERATION Or PROCESS_VM_WRITE, False, TargetProcess(0).Id) pszLibFileRemote = lrow.Text 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) Success(1) Me.Close() Next Catch es As Exception Success(2) Me.Close() End Try
Off topic
I go off my head as far as answering questions to the best I can udnerstand the question, So If I am Always confusing you or you find my answers confusing, feel free to PM me and I will Clear it up.
I don't take advantage to the luxury of copying and pasting answers found on the net or in others code examples here, so it makes it slightly more "complex" for me.
On Topic, He wanted to import a single DLL, not a list of dll's, my answer solves importing all dll's so "Yours" may be optimum here.
wut r u tlkin NG1 is clear as possible
Press Thank You[IMG]https://i45.tinypic.com/2hg8w0n.jpghttps://img1.UploadScreensho*****m/images/main/2/3203234450.jpg[/IMG]
My Releases
Injector 3G
Injector 2G
Injector 1G
Super Spammer
CA Cleaner
My Tutorials
How to Make a real Injector(PerX)
How to Make a Calculator(leeched)
NextGen1 (02-21-2010)