• Amused
  • Angry
  • Annoyed
  • Awesome
  • Bemused
  • Cocky
  • Cool
  • Crazy
  • Crying
  • Down
  • Drunk
  • Embarrased
  • Enraged
  • Friendly
  • Geeky
  • Godly
  • Happy
  • Hateful
  • Hungry
  • Innocent
  • Meh
  • Piratey
  • Poorly
  • Sad
  • Secret
  • Shy
  • Sneaky
  • Tired
  • Wtf
  • At Work
  • CodenzHub
  • Coding
  • Deejaying
  • Donating
  • Drinking
  • Eating
  • Editing
  • Hacking
  • Hate Mailing
  • Jamin'
  • Lagging
  • Live Streaming
  • Lurking
  • No Status
  • Pawning
  • PC Gaming
  • PS Gaming
  • Raging
  • Reversing
  • Sipping
  • Sleeping
  • Steam Gaming
  • Trolling
  • TwitchStreamer
  • Vodka!
  • Watching TV/Movie
  • Xbox Gaming
  • Youtuber
  • Zombies
  • Results 1 to 7 of 7
    1. #1
      Newbie
      Learning to hack games!
       
      Feeling Normal
       

      Join Date
      Jun 2012
      Posts
      3
      Thanks (-->)
      0
      Thanks (<--)
      0

      Dll injector help

      How to Manual Map DLL
      hi , iam trying to create dll injector with visual basic 2010 and i finish it but i had problem when i try to inject i get waiting for the program and the game start and nothing injected here is my code
      Code:
      Public Class Form1
        Private TargetProcessHandle As Integer
        Private pfnStartAddr As Integer
        Private pszLibFileRemote As String
        Private TargetBufferSize As Integer
      
        Public Const PROCESS_VM_READ = &amp;H10
        Public Const TH32CS_SNAPPROCESS = &amp;H2
        Public Const MEM_COMMIT = 4096
        Public Const PAGE_READWRITE = 4
        Public Const PROCESS_CREATE_THREAD = (&amp;H2)
        Public Const PROCESS_VM_OPERATION = (&amp;H8)
        Public Const PROCESS_VM_WRITE = (&amp;H20)
        Dim DLLFileName As String
        Public Declare Function ReadProcessMemory Lib "kernel32" ( _
        ByVal hProcess As Integer, _
        ByVal lpBaseAddress As Integer, _
        ByVal lpBuffer As String, _
        ByVal nSize As Integer, _
        ByRef lpNumberOfBytesWritten As Integer) As Integer
      
        Public Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" ( _
        ByVal lpLibFileName As String) As Integer
      
        Public Declare Function VirtualAllocEx Lib "kernel32" ( _
        ByVal hProcess As Integer, _
        ByVal lpAddress As Integer, _
        ByVal dwSize As Integer, _
        ByVal flAllocationType As Integer, _
        ByVal flProtect As Integer) As Integer
      
        Public Declare Function WriteProcessMemory Lib "kernel32" ( _
        ByVal hProcess As Integer, _
        ByVal lpBaseAddress As Integer, _
        ByVal lpBuffer As String, _
        ByVal nSize As Integer, _
        ByRef lpNumberOfBytesWritten As Integer) As Integer
      
        Public Declare Function GetProcAddress Lib "kernel32" ( _
        ByVal hModule As Integer, ByVal lpProcName As String) As Integer
      
        Private Declare Function GetModuleHandle Lib "Kernel32" Alias "GetModuleHandleA" ( _
        ByVal lpModuleName As String) As Integer
      
        Public Declare Function CreateRemoteThread Lib "kernel32" ( _
        ByVal hProcess As Integer, _
        ByVal lpThreadAttributes As Integer, _
        ByVal dwStackSize As Integer, _
        ByVal lpStartAddress As Integer, _
        ByVal lpParameter As Integer, _
        ByVal dwCreationFlags As Integer, _
        ByRef lpThreadId As Integer) As Integer
      
        Public Declare Function OpenProcess Lib "kernel32" ( _
        ByVal dwDesiredAccess As Integer, _
        ByVal bInheritHandle As Integer, _
        ByVal dwProcessId As Integer) As Integer
      
        Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _
        ByVal lpClassName As String, _
        ByVal lpWindowName As String) As Integer
      
        Private Declare Function CloseHandle Lib "kernel32" Alias "CloseHandleA" ( _
        ByVal hObject As Integer) As Integer
      
      
        Dim ExeName As String = IO.Path.GetFileNameWithoutExtension(Application.ExecutablePath)
        Private Sub Inject()
          On Error GoTo 1 ' If error occurs, app will close without any error messages
          Timer1.Stop()
          Dim TargetProcess As Process() = Process.GetProcessesByName(TextBox1.Text)
          TargetProcessHandle = OpenProcess(PROCESS_CREATE_THREAD Or PROCESS_VM_OPERATION Or PROCESS_VM_WRITE, False, TargetProcess(0).Id)
          pszLibFileRemote = OpenFileDialog1.FileName
          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.Show()
      Form_Load:
          DLLs.Name = "DLLs"
          Button1.Text = "Browse"
          Label1.Text = "Waiting for Program to Start.."
          Timer1.Interval = 50
          Timer1.Start()
        End Sub
      
      
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
          OpenFileDialog1.Filter = "Dynamic Link Library (DLL) |*.dll"
          OpenFileDialog1.ShowDialog()
        End Sub
      
        Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
          For i As Integer = (DLLs.SelectedItems.Count - 1) To 0 Step -1
            DLLs.Items.Remove(DLLs.SelectedItems(i))
          Next
        End Sub
      
        Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
          DLLs.Items.Clear()
        End Sub
      
        Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
          If IO.File.Exists(OpenFileDialog1.FileName) Then
            Dim TargetProcess As Process() = Process.GetProcessesByName(TextBox1.Text)
            If TargetProcess.Length = 0 Then
              Timer1.Interval = 50
              Timer1.Start()
            Else
              Timer1.Stop()
              Me.Label1.Text = "Successfully Injected!"
              Call Inject()
              If CheckBox1.Checked = True Then
                End
              Else
              End If
            End If
          Else
          End If
        End Sub
      
        Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
          Application.Exit()
        End Sub
      
        Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
          Button4.Enabled = True
          Timer1.Enabled = False
        End Sub
      
        Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
          Button4.Enabled = False
          Timer1.Enabled = True
        End Sub
      
        Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
          If IO.File.Exists(OpenFileDialog1.FileName) Then
            Dim TargetProcess As Process() = Process.GetProcessesByName(TextBox1.Text)
            If TargetProcess.Length = 0 Then
      
              Me.Label1.Text = ("Waiting for " + TextBox1.Text + ".exe")
            Else
              Timer1.Stop()
              Me.Label1.Text = "Successfully Injected!"
              Call Inject()
              If CheckBox1.Checked = True Then
                End
              Else
              End If
            End If
          Else
          End If
        End Sub
      
        Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
          Dim FileName As String
          FileName = OpenFileDialog1.FileName.Substring(OpenFileDialog1.FileName.LastIndexOf("\"))
          Dim DllFileName As String = FileName.Replace("\", "")
          Me.DLLs.Items.Add(DllFileName)
        End Sub
      End Class

    2. #2
      Coder
      Learning to hack games!
       
      Coding
       
      Helios's Avatar
      Join Date
      May 2012
      Location
      Denmark
      Posts
      209
      Thanks (-->)
      24
      Thanks (<--)
      34
      Have you tried using breakpoint?

    3. #3
      Newbie
      Learning to hack games!
       
      Feeling Normal
       

      Join Date
      Jun 2012
      Posts
      3
      Thanks (-->)
      0
      Thanks (<--)
      0
      Quote Originally Posted by Helios
      Have you tried using breakpoint?
      yes also fail maybe i place the breakpoint in wrong line can u make breakpoint and show me example in the sourcecode?

    4. #4
      Coder
      Learning to hack games!
       
      Coding
       
      Helios's Avatar
      Join Date
      May 2012
      Location
      Denmark
      Posts
      209
      Thanks (-->)
      24
      Thanks (<--)
      34
      Quote Originally Posted by drama22
      Quote Originally Posted by Helios
      Have you tried using breakpoint?
      yes also fail maybe i place the breakpoint in wrong line can u make breakpoint and show me example in the sourcecode?
      Could you upload your solution/project? It could be that there's nothing wrong with your project, but with the actual .DLL you're trying to inject.

    5. #5
      Coder
      Learning to hack games!
       
      Feeling Normal
       
      konsowa's Avatar
      Join Date
      May 2012
      Posts
      184
      Thanks (-->)
      1
      Thanks (<--)
      2
      Make sure that ur typing the games name correctly and that ur adding the ".exe" extension to the name..

    6. #6
      Newbie
      Learning to hack games!
       
      Feeling Normal
       

      Join Date
      Jun 2012
      Posts
      3
      Thanks (-->)
      0
      Thanks (<--)
      0
      here is the full project

      note : i try the dll that i try to inject in other injectors and it works only my injector can't inject any dll

    7. #7
      Coder
      Learning to hack games!
       
      Feeling Normal
       
      konsowa's Avatar
      Join Date
      May 2012
      Posts
      184
      Thanks (-->)
      1
      Thanks (<--)
      2
      Cheat Engine Tutorials
      Add a virus scan..so i can approve please.

    Similar Game Hacker Threads

    1. [Release] Extreme Injector v3.6.1
      By [GH]Rake in forum Hacking Tools
      Replies: 10
      Last Post: 02-20-2017, 06:46 PM
    2. [Help] Injector not working
      By maxibaby in forum GH Tutorials Help
      Replies: 11
      Last Post: 10-25-2015, 10:41 AM
    3. [Help] need help with dll injector
      By Drako22 in forum Visual Basic
      Replies: 1
      Last Post: 08-08-2015, 11:37 AM
    4. need help with first injector
      By hunted man in forum Visual Basic
      Replies: 5
      Last Post: 10-20-2013, 04:12 AM
    5. c++ dll injector via FTP
      By mcdeliver1993 in forum C/C++
      Replies: 7
      Last Post: 09-16-2013, 11:33 AM