Results 1 to 11 of 11
  1. #1
    Pixie's Avatar
    Join Date
    Apr 2009
    Gender
    male
    Location
    Pixie wird wieder steigen.
    Posts
    1,884
    Reputation
    22
    Thanks
    229
    My Mood
    Fine

    OMG error making injector

    It's never done this before, here is the code:

    Code:
    Private TargetProcessHandle As Integer
        Private pfnStartAddr As Integer
        Private pszLibFileRemote As String
        Private TargetBufferSize As Integer
    
        Public Const PROCESS_VM_READ = &H10
        Public Const TH32CS_SNAPPROCESS = &H2
        Public Const MEM_COMMIT = 4096
        Public Const PAGE_READWRITE = 4
        Public Const PROCESS_CREATE_THREAD = (&H2)
        Public Const PROCESS_VM_OPERATION = (&H8)
        Public Const PROCESS_VM_WRITE = (&H20)
    
        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("WarRock")
            TargetProcessHandle = OpenProcess(PROCESS_CREATE_THREAD Or PROCESS_VM_OPERATION Or PROCESS_VM_WRITE, False, TargetProcess(0).Id)
            pszLibFileRemote = Application.StartupPath & "\" + ExeName + ".dll"
            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()
        End Sub
    
        Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
            If IO.File.Exists(Application.StartupPath & "\" + ExeName + ".dll") Then
                Dim TargetProcess As Process() = Process.GetProcessesByName("HSUpdate")
                If TargetProcess.Length = 0 Then
                    Me.TextBox1.Text = ("Waiting for Warrock.exe")
                    Me.TextBox2.Text = ("Letīs Hack")
                Else
                    Timer1.Stop()
                    Me.TextBox1.Text = "Done..."
                    Call Inject()
                End If
            Else
                Me.TextBox1.Text = ("" + ExeName + ".dll not found")
                Me.TextBox2.Text = ("Rename the .dll To " + "" + ExeName)
            End If
        End Sub
    
        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            Timer1.Interval = 50
            Timer1.Start()
        End Sub
    
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            MsgBox("Thats the Status Box!", MsgBoxStyle.Information, "Info")
        End Sub
    And here is the error:

    Code:
    Handles clause requires a with WithEvents variable defined in the containing type or one of its base types.
    and the info after it:
    Code:
    File: Form1  Line: 108  Column: 99

  2. #2
    Melikepie's Avatar
    Join Date
    Apr 2009
    Gender
    male
    Posts
    1,652
    Reputation
    12
    Thanks
    131
    My Mood
    Amazed
    This was on mine Linkme v1.3
    https://www.mpgh.net/forum/164-combat...ctor-more.html

    yes it works i think i will review your thing
    [IMG]https://z.abou*****m/d/politicalhumor/1/0/j/z/1/obama_superman_awesome.jpg[/IMG]

  3. #3
    ac1d_buRn's Avatar
    Join Date
    Aug 2009
    Gender
    female
    Location
    CA Source Section
    Posts
    3,404
    Reputation
    157
    Thanks
    4,003
    My Mood
    Flirty
    Just take out that part of the code,
    Thats only in INFO box
    Im sure you dont really need this on your injector
    Last edited by ac1d_buRn; 09-24-2009 at 11:23 PM.

  4. #4
    Ugleh's Avatar
    Join Date
    Aug 2009
    Gender
    male
    Location
    House, Where you live?
    Posts
    276
    Reputation
    17
    Thanks
    221
    My Mood
    Blah
    Note: Add a button, it should be fixed.

    I will modify this so it works better then the current version, then release source.
    Last edited by Ugleh; 09-24-2009 at 11:36 PM.

  5. #5
    Katie_Perry's Avatar
    Join Date
    Feb 2009
    Gender
    male
    Posts
    3,082
    Reputation
    31
    Thanks
    175
    My Mood
    Sneaky
    Is this the Luigi one you posted?

  6. #6
    Pixie's Avatar
    Join Date
    Apr 2009
    Gender
    male
    Location
    Pixie wird wieder steigen.
    Posts
    1,884
    Reputation
    22
    Thanks
    229
    My Mood
    Fine
    Quote Originally Posted by Yuerno View Post
    Is this the Luigi one you posted?
    Yeah, but I found the error and fixed...

  7. #7
    iownageXD's Avatar
    Join Date
    Mar 2009
    Gender
    male
    Location
    Australia
    Posts
    1,231
    Reputation
    61
    Thanks
    179
    My Mood
    Angelic
    Mind highlighting which part is the error?
    I'm not gonna go through 108 lines to find it Dx

  8. #8
    Pixie's Avatar
    Join Date
    Apr 2009
    Gender
    male
    Location
    Pixie wird wieder steigen.
    Posts
    1,884
    Reputation
    22
    Thanks
    229
    My Mood
    Fine
    Quote Originally Posted by iownageXD View Post
    Mind highlighting which part is the error?
    I'm not gonna go through 108 lines to find it Dx
    I fixed it already...

  9. #9
    Zoom's Avatar
    Join Date
    May 2009
    Gender
    male
    Location
    Your going on my 24/7 DDoS hit list.
    Posts
    8,552
    Reputation
    127
    Thanks
    5,970
    My Mood
    Happy
    U got this from youtube... Regonizing the code.... Creditz (i think) goes to miwin94
    -Rest in peace leechers-

    Your PM box is 100% full.

  10. #10
    iownageXD's Avatar
    Join Date
    Mar 2009
    Gender
    male
    Location
    Australia
    Posts
    1,231
    Reputation
    61
    Thanks
    179
    My Mood
    Angelic
    This code is like Ugleh's code, I just realised XD
    I'm guessing he got the code from youtube as well and fixed it or something..

  11. #11
    Zoom's Avatar
    Join Date
    May 2009
    Gender
    male
    Location
    Your going on my 24/7 DDoS hit list.
    Posts
    8,552
    Reputation
    127
    Thanks
    5,970
    My Mood
    Happy
    Quote Originally Posted by iownageXD View Post
    This code is like Ugleh's code, I just realised XD
    I'm guessing he got the code from youtube as well and fixed it or something..
    Yes................
    -Rest in peace leechers-

    Your PM box is 100% full.

Similar Threads

  1. [REQUEST][TUT]How to make injector for hacks in VB8
    By Pixie in forum Visual Basic Programming
    Replies: 19
    Last Post: 10-10-2009, 05:43 AM
  2. Make injector hack for warrock?
    By PowerPerry in forum Programming Tutorial Requests
    Replies: 1
    Last Post: 08-31-2009, 11:52 AM
  3. Error - making vb hack
    By AeroMan in forum WarRock - International Hacks
    Replies: 13
    Last Post: 04-30-2009, 02:24 AM
  4. error with injector
    By chris199236 in forum Combat Arms Hacks & Cheats
    Replies: 7
    Last Post: 08-07-2008, 09:39 PM
  5. Error making UCE's
    By .-=m1k3y=-. in forum WarRock - International Hacks
    Replies: 6
    Last Post: 07-14-2007, 11:33 PM

Tags for this Thread