Results 1 to 9 of 9
  1. #1
    quinnc12's Avatar
    Join Date
    Jun 2013
    Gender
    male
    Posts
    18
    Reputation
    10
    Thanks
    1
    My Mood
    Stressed

    Jorndel's Class Help

    Hey awesome mpgh people, i was wondering if someone can tell me where to put the process name in jorndels vb class i looked on his page and it wasn't very helpful anyway thanks

  2. #2
    Lovroman's Avatar
    Join Date
    Sep 2012
    Gender
    male
    Posts
    9,430
    Reputation
    611
    Thanks
    9,719
    My Mood
    Cheerful

    Code:
    If YourMemoryClassName.Process_Handle(process_name) Then
    'Do memory stuff
    End If


  3. #3
    quinnc12's Avatar
    Join Date
    Jun 2013
    Gender
    male
    Posts
    18
    Reputation
    10
    Thanks
    1
    My Mood
    Stressed
    i still don't get it
    this is my code what part do i add or change
    Code:
    Imports System.Runtime.InteropServices
    Imports System.Text
    
    Module Module1
    #Region "Basic Stuff"
        <DllImport("kernel32.dll")> _
        Private Function ReadProcessMemory(hProcess As IntPtr, lpBaseAddress As IntPtr, <[In](), Out()> buffer As Byte(), size As UInt32, ByRef lpNumberOfBytesWritten As IntPtr) As Int32
        End Function
        <DllImport("kernel32.dll")> _
        Private Function WriteProcessMemory(hProcess As IntPtr, lpBaseAddress As IntPtr, <[In](), Out()> buffer As Byte(), size As UInt32, ByRef lpNumberOfBytesWritten As IntPtr) As Int32
        End Function
        <DllImport("user32.dll", CharSet:=CharSet.Auto, ExactSpelling:=True)> _
        Public Function GetKeyState(ByVal virtualKeyCode As Keys) As Short
        End Function
        Private pHandel As IntPtr
        Public Function Process_Handle(ProcessName As String) As Boolean
            Try
                Dim ProcList As Process() = Process.GetProcessesByName(ProcessName)
                If ProcList.Length = 0 Then
                    Return False
                Else
                    pHandel = ProcList(0).Handle
                    Return True
                End If
            Catch ex As Exception
                Console.Beep()
                Console.WriteLine("Process_Handle - " + ex.Message)
                Return False
            End Try
        End Function
        Private Function Read(Address As Integer, Length As Integer) As Byte()
            Dim Buffer As Byte() = New Byte(Length - 1) {}
            Dim Zero As IntPtr = IntPtr.Zero
            ReadProcessMemory(pHandel, New IntPtr(Address), Buffer, UInt32.Parse(Buffer.Length), Zero)
            Return Buffer
        End Function
        Private Sub Write(Address As Integer, Value As Integer)
            Dim Buffer As Byte() = BitConverter.GetBytes(Value)
            Dim Zero As IntPtr = IntPtr.Zero
            WriteProcessMemory(pHandel, New IntPtr(Address), Buffer, UInt32.Parse(Buffer.Length), Zero)
        End Sub
    #End Region
    
        'This is the part you want to edit
    #Region "Write Functions (Integer & String)"
        Public Sub WriteInteger(Address As Integer, Value As Integer)
            Write(Address, Value)
        End Sub
        Public Sub WriteString(Address As Integer, Text As String)
            Dim Buffer As Byte() = New ASCIIEncoding().GetBytes(Text)
            Dim Zero As IntPtr = IntPtr.Zero
            WriteProcessMemory(pHandel, New IntPtr(Address), Buffer, UInt32.Parse(Buffer.Length), Zero)
        End Sub
        Public Sub WriteBytes(Address As Integer, Bytes As Byte())
            Dim Zero As IntPtr = IntPtr.Zero
            WriteProcessMemory(pHandel, New IntPtr(Address), Bytes, CUInt(Bytes.Length), Zero)
        End Sub
        Public Sub WriteNOP(Address As Integer)
            Dim Buffer As Byte() = New Byte() {&H90, &H90, &H90, &H90, &H90}
            Dim Zero As IntPtr = IntPtr.Zero
            WriteProcessMemory(pHandel, New IntPtr(Address), Buffer, UInt32.Parse(Buffer.Length), Zero)
        End Sub
    
    
    #End Region
    #Region "Read Functions (Integer & String)"
        Public Function ReadInteger(Address As Integer, Optional Length As Integer = 4) As Integer
            Return BitConverter.ToInt32(Read(Address, Length), 0)
        End Function
        Public Function ReadString(Address As Integer, Optional Length As Integer = 4) As String
            Return New ASCIIEncoding().GetString(Read(Address, Length))
        End Function
        Public Function ReadBytes(Address As Integer, Length As Integer) As Byte()
            Return Read(Address, Length)
        End Function
    #End Region
    #Region "Extra"
        Public Function HotKey(Key As Keys) As Boolean
            Return Convert.ToBoolean(GetKeyState(Key))
        End Function
        Private Check_res As Boolean = True
        Public Function Check_Value(Value As String) As Integer
            For Each a As Char In Value
                If Char.IsNumber(a, 0) Then
                    Check_res = True
                Else
                    Check_res = False
                    Return 0
                    Exit For
                End If
            Next
            Return Convert.ToInt32(Value)
        End Function
    #End Region
    End Module
    Last edited by Lovroman; 09-21-2013 at 03:34 PM.

  4. #4
    quinnc12's Avatar
    Join Date
    Jun 2013
    Gender
    male
    Posts
    18
    Reputation
    10
    Thanks
    1
    My Mood
    Stressed
    o btw im doing this for t6mp

  5. #5
    Lovroman's Avatar
    Join Date
    Sep 2012
    Gender
    male
    Posts
    9,430
    Reputation
    611
    Thanks
    9,719
    My Mood
    Cheerful

    You have to make new Form.
    Add some control on that form such as button.
    Add event to that control.

    Begining of class:
    Code:
    Dim memoryClass as Module1
    Some event:
    Code:
    If memoryClass.Process_Handle(process_name) Then
    'Do memory stuff
    End If
    or
    Code:
    If Process_Handle(process_name) Then
    'Do memory stuff
    End If
    Last edited by Lovroman; 09-21-2013 at 03:37 PM.

  6. #6
    quinnc12's Avatar
    Join Date
    Jun 2013
    Gender
    male
    Posts
    18
    Reputation
    10
    Thanks
    1
    My Mood
    Stressed
    i did that then i get errors i know this is alot to ask but can you give me the whole code that i can copy and paste that would be greatly apperciated

  7. #7
    Lovroman's Avatar
    Join Date
    Sep 2012
    Gender
    male
    Posts
    9,430
    Reputation
    611
    Thanks
    9,719
    My Mood
    Cheerful
    Quote Originally Posted by quinnc12 View Post
    i did that then i get errors i know this is alot to ask but can you give me the whole code that i can copy and paste that would be greatly apperciated
    Why don't you just watch his video ?

    He explained every step very well.

  8. #8
    quinnc12's Avatar
    Join Date
    Jun 2013
    Gender
    male
    Posts
    18
    Reputation
    10
    Thanks
    1
    My Mood
    Stressed
    i didn't know he has a video i can't find it

  9. #9
    quinnc12's Avatar
    Join Date
    Jun 2013
    Gender
    male
    Posts
    18
    Reputation
    10
    Thanks
    1
    My Mood
    Stressed
    o the link didn't load right away thanks

Similar Threads

  1. [Release] More Secondary Weapon Perk Code for Jorndel's Class Hack Tool
    By lzpsmith in forum Call of Duty - Modern Warfare 3 (MW3) Hacks & Cheats
    Replies: 3
    Last Post: 01-14-2012, 04:42 PM
  2. [Help] Memory Hack base Using Classes Help I Don't Get It
    By kmanev073 in forum CrossFire Hack Coding / Programming / Source Code
    Replies: 10
    Last Post: 01-05-2012, 05:21 AM
  3. Classes help
    By AnoNimTeck in forum Combat Arms Coding Help & Discussion
    Replies: 12
    Last Post: 11-03-2010, 11:16 AM
  4. Custom Class help plox?
    By majesticmanson in forum Call of Duty Modern Warfare 2 GSC Modding Help/Discussion
    Replies: 2
    Last Post: 09-10-2010, 08:36 AM
  5. Class Help For Better Performance
    By Disco // in forum Call of Duty Modern Warfare 2 Tutorials
    Replies: 10
    Last Post: 08-18-2010, 07:20 PM