Results 1 to 11 of 11
  1. #1
    Blubb1337's Avatar
    Join Date
    Sep 2009
    Gender
    male
    Location
    Germany
    Posts
    5,923
    Reputation
    161
    Thanks
    3,096

    VB.Net WriteMemory/Float/Nop

    I'm not going to explain much...

    Create a new module(if you don't know how to do it, learn the basics, if you don't even know such, don't even try to make a trainer)

    Call the module whatever you want it to be called:

    Code:
    Module Module1
    
    #region "Declarations"
    
        Private Declare Function OpenProcess Lib "kernel32" Alias "OpenProcess" (ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Integer, ByVal dwProcessId As Integer) As Integer
        Private Declare Function WriteProcessMemory Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
        Private Declare Function WriteFloatMemory Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Single, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
        Private Declare Function ReadFloat Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As IntPtr, ByVal lpBaseAddress As IntPtr, ByRef buffer As Single, ByVal size As Int32, ByRef lpNumberOfBytesRead As Int32) As Boolean
        Private Declare Function ReadProcessMemory Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
        Private Declare Function CloseHandle Lib "kernel32" Alias "CloseHandle" (ByVal hObject As Integer) As Integer
    
        Private string1 As Long
        Private string2 As Integer
        Private RBuff1 As Long
        Private RBuff2 As Single
        Private RBuff3 As Integer
    
    #end region
    
    #Region "Check Process/ReadDll"
    
      Private Function readdll(ByVal modulename As String)
            Dim procmodule As ProcessModule
            Dim constant1 As Integer
            Dim constant2 As Long
            Dim constant3 As Process() = Process.GetProcessesByName("iw4mp")
            If constant3.Length = 0 Then
                Return 0
            End If
            For Each procmodule In constant3(0).Modules
                If modulename = procmodule.ModuleName Then
                    constant1 = procmodule.BaseAddress
                End If
            Next
            constant2 = constant1
            Return constant2
        End Function
    
    Public Function IsProcessOpen(ByVal name As String) As Boolean
    
            For Each clsProcess As Process In Process.GetProcesses
    
                If clsProcess.ProcessName.Contains(name) Then
    
    
                    Return True
    
                End If
            Next
            ' Do nothing 
            Return False
        End Function
    
    
    #end region
    
    #Region "Hacks"
    
        'WriteMemory
        Private Function WriteMemory(ByVal Address As Integer, ByVal Value As Long, ByVal Bytes As Integer)
            Dim iw4mpLookUp As Process() = Process.GetProcessesByName("iw4mp")
            If iw4mpLookUp.Length = 0 Then
                End
            End If
            Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, iw4mpLookUp(0).Id)
            WriteProcessMemory(processHandle, Address, Value, Bytes, Nothing)
            CloseHandle(processHandle)
    
            Return Nothing
        End Function
    
        'WriteFloat
        Private Function WriteFloat(ByVal Address As Integer, ByVal Value As Single)
            Dim iw4mpLookUp As Process() = Process.GetProcessesByName("iw4mp")
            If iw4mpLookUp.Length = 0 Then
                End
            End If
            Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, iw4mpLookUp(0).Id)
            WriteFloatMemory(processHandle, Address, Value, 4, Nothing)
            CloseHandle(processHandle)
    
            Return Nothing
        End Function
    
        'NOP
        Private Function NOP(ByVal Address As Integer, ByVal value As Integer)
            Dim iw4mpLookUp As Process() = Process.GetProcessesByName("iw4mp")
            If iw4mpLookUp.Length = 0 Then
                End
            End If
            Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, iw4mpLookUp(0).Id)
            WriteProcessMemory(processHandle, Address, value, 1, Nothing)
            CloseHandle(processHandle)
    
            Return Nothing
        End Function
    
    #End region
    
    #Region "Functions"
    
        Public Function memoryh4x(ByVal address As String, ByVal value As Long, ByVal bytes As Byte)
            If IsProcessOpen("iw4mp") Then
    
                string1 = readdll("cshell.dll")
                string2 = "&H" & Hex(string1 + address)
                WriteMemory(string2, value, bytes)
            End If
            Return Nothing
        End Function
    
        Public Function floath4x(ByVal address As String, ByVal value As Long)
            If IsProcessOpen("iw4mp") Then
    
                string1 = readdll("cshell.dll")
                string2 = "&H" & Hex(string1 + address)
                WriteFloat(string2, value)
            End If
            Return Nothing
        End Function
    
        Public Function noph4x(ByVal address As String, ByVal value As Long)
            If IsProcessOpen("iw4mp") Then
                string1 = readdll("cshell.dll")
                string2 = "&H" & Hex(string1 + address)
                NOP(string2, value)
    
    
            End If
            Return Nothing
        End Function
    
    #end region
    End Module
    Unlike C++ the address is buildt like this &HADRESS

    C++ = 0xADDRESS
    VB = &HADDRESS

    Writing to memory:

    Code:
    memoryh4x(&H12BC89F, 1337, 4)
    -> Address 12BC89F (4 bytes as datatype) -> Insert the value 1337

    Write Float:

    Code:
    floath4x(&H12BC89F, 1337)
    Nop:

    Code:
    nop(&H12BC89F, 6)
    Now every1 quickly make your trainers!!!

    If you do not get something about this, do not make trainer.

    And please LEARN THE BASICS before trying to make hacks -.-



  2. The Following 9 Users Say Thank You to Blubb1337 For This Useful Post:

    ♪~ ᕕ(ᐛ)ᕗ (08-04-2010),cgallagher21 (07-13-2010),House (08-23-2010),[MPGH]Insane (09-12-2010),jabbathehutt (07-10-2010),Lyoto Machida (03-28-2011),Personality (08-21-2010),Skyline. (07-10-2010),[NooB] Mentor (12-03-2012)

  3. #2
    jabbathehutt's Avatar
    Join Date
    Apr 2010
    Gender
    male
    Posts
    616
    Reputation
    18
    Thanks
    725
    My Mood
    Aggressive
    Thank you!
    You are one of the best coders on MPGH xD
    Helped out over 5000 guys with my level trainer and other stuff.

    Selling Steam accounts. Send me a message if you're interested.



    Nice forum needs to expands! Register now for a good position! (PM me)


  4. #3
    Hell_Demon's Avatar
    Join Date
    Mar 2008
    Gender
    male
    Location
    I love causing havoc
    Posts
    3,660
    Reputation
    236
    Thanks
    4,132
    My Mood
    Cheeky
    I hate VB
    Ah we-a blaze the fyah, make it bun dem!

  5. The Following User Says Thank You to Hell_Demon For This Useful Post:

    Melodia (07-10-2010)

  6. #4
    Blubb1337's Avatar
    Join Date
    Sep 2009
    Gender
    male
    Location
    Germany
    Posts
    5,923
    Reputation
    161
    Thanks
    3,096
    Quote Originally Posted by Hell_Demon View Post
    I hate VB
    And I hate c++



  7. The Following User Says Thank You to Blubb1337 For This Useful Post:

    [MPGH]Hassan (07-10-2010)

  8. #5
    Melodia's Avatar
    Join Date
    Dec 2009
    Gender
    female
    Posts
    2,608
    Reputation
    276
    Thanks
    1,661
    My Mood
    Dead
    Makes me laugh about how you need to define damn everything as Strings/Integers in VBCrap.
    Love You All~

  9. #6
    Skyline.'s Avatar
    Join Date
    Dec 2009
    Gender
    male
    Posts
    10,160
    Reputation
    403
    Thanks
    1,613
    this is very helpful for my learning needs thank you very much


  10. #7
    Hahaz's Avatar
    Join Date
    Sep 2008
    Gender
    male
    Location
    Matrix World
    Posts
    1,170
    Reputation
    64
    Thanks
    4,083
    My Mood
    Bored
    Quote Originally Posted by Blubb1337 View Post
    Code:
    nop(&H12BC89F, 6)
    it's noph4x()

    why everyone look down at vb user? it's a good prog language to start with & there is nothing wrong to learn about it but just don't limit your self with vb only.

  11. #8
    PP_CrazyApple's Avatar
    Join Date
    Jun 2010
    Gender
    male
    Location
    At home...
    Posts
    841
    Reputation
    28
    Thanks
    416
    My Mood
    Innocent
    tbh, i hate them both. too hard to learn...

  12. #9
    Blubb1337's Avatar
    Join Date
    Sep 2009
    Gender
    male
    Location
    Germany
    Posts
    5,923
    Reputation
    161
    Thanks
    3,096
    Quote Originally Posted by hahaz View Post
    it's noph4x()

    why everyone look down at vb user? it's a good prog language to start with & there is nothing wrong to learn about it but just don't limit your self with vb only.

    Wops...yea...I was writing up the functions for it real quick in this post ^.-



  13. #10
    Hahaz's Avatar
    Join Date
    Sep 2008
    Gender
    male
    Location
    Matrix World
    Posts
    1,170
    Reputation
    64
    Thanks
    4,083
    My Mood
    Bored
    Quote Originally Posted by Blubb1337 View Post
    Code:
    nop(&H12BC89F, 6)
    I got question for ya... how to un-nop it back? if cheat engine, in aa u use [disable] but how about your?

  14. #11
    cgallagher21's Avatar
    Join Date
    Jun 2010
    Gender
    male
    Posts
    1,583
    Reputation
    11
    Thanks
    296
    My Mood
    Busy
    Thankyou, I have been looking for one of these.

Similar Threads

  1. how to nop address in .net 2003?
    By c_norris in forum C++/C Programming
    Replies: 2
    Last Post: 12-12-2007, 07:35 PM
  2. HackShardGaming.net says Fuck MPGH
    By sf0d in forum General
    Replies: 32
    Last Post: 07-26-2006, 10:05 PM
  3. [Help] Atom API with Visual Basic 6.0 or .NET
    By Bull3t in forum Visual Basic Programming
    Replies: 5
    Last Post: 07-23-2006, 10:21 AM
  4. Me r MAD.. GONNA DDOS WarRock.net :)
    By System79 in forum WarRock - International Hacks
    Replies: 14
    Last Post: 06-19-2006, 06:06 PM
  5. Gangsterhood.net
    By supatanka in forum Hack Requests
    Replies: 0
    Last Post: 01-22-2006, 02:42 PM