Thread: Need a bit help

Results 1 to 12 of 12
  1. #1
    OhFlashArts's Avatar
    Join Date
    Dec 2013
    Gender
    male
    Posts
    23
    Reputation
    10
    Thanks
    1

    Need a bit help

    Sup guys,

    can someone maybe give me the sourcecode or project map of a ghosts / mw3 Trainer of you?

    I want to learn a bit from you guys, your trainers are very nice, all of yours

    I learn vb.net.

    Would be nice if someone could give it to me and help me if I have questions.



    Cya OhFlashArts

  2. #2
    Lovroman's Avatar
    Join Date
    Sep 2012
    Gender
    male
    Posts
    9,430
    Reputation
    611
    Thanks
    9,709
    My Mood
    Cheerful
    http://www.mpgh.net/forum/723-call-d...k-project.html
    You can easily convert it to VB using a online converter.

  3. The Following User Says Thank You to Lovroman For This Useful Post:

    OhFlashArts (12-31-2013)

  4. #3
    OhFlashArts's Avatar
    Join Date
    Dec 2013
    Gender
    male
    Posts
    23
    Reputation
    10
    Thanks
    1
    Can I use it with vb 2008 too?

    And is there a memory module included?

  5. #4
    Lovroman's Avatar
    Join Date
    Sep 2012
    Gender
    male
    Posts
    9,430
    Reputation
    611
    Thanks
    9,709
    My Mood
    Cheerful
    Quote Originally Posted by OhFlashArts View Post
    Can I use it with vb 2008 too?

    And is there a memory module included?
    Yes and yes.

  6. The Following User Says Thank You to Lovroman For This Useful Post:

    OhFlashArts (12-31-2013)

  7. #5
    SammyDoge1's Avatar
    Join Date
    Apr 2009
    Gender
    male
    Location
    Tried looking behind you...?
    Posts
    2,179
    Reputation
    59
    Thanks
    2,086
    My Mood
    Tired
    Quote Originally Posted by OhFlashArts View Post
    Can I use it with vb 2008 too?

    And is there a memory module included?
    Just get the 2010+ version.





  8. The Following User Says Thank You to SammyDoge1 For This Useful Post:

    OhFlashArts (12-31-2013)

  9. #6
    OhFlashArts's Avatar
    Join Date
    Dec 2013
    Gender
    male
    Posts
    23
    Reputation
    10
    Thanks
    1
    Quote Originally Posted by sammyhond1 View Post

    Just get the 2010+ version.

    Okey, got the 2010 before on my PC, but is the 2012 Professionel Version as good as the Express version?

  10. #7
    Lovroman's Avatar
    Join Date
    Sep 2012
    Gender
    male
    Posts
    9,430
    Reputation
    611
    Thanks
    9,709
    My Mood
    Cheerful
    Quote Originally Posted by OhFlashArts View Post
    Okey, got the 2010 before on my PC, but is the 2012 Professionel Version as good as the Express version?
    Pro version is even better(Express version doesn't support plugins like Resharper(improved InteliSense), etc.).

  11. #8
    OhFlashArts's Avatar
    Join Date
    Dec 2013
    Gender
    male
    Posts
    23
    Reputation
    10
    Thanks
    1
    Quote Originally Posted by Lovroman View Post


    Pro version is even better(Express version doesn't support plugins like Resharper(improved InteliSense), etc.).



    Can't find a converter that works. Get all the time a error.


    It says, that .csproj doesn't work with vb .net 2010 express and I found out, that some files are c# files. Can you maybe help me?

  12. #9
    Lovroman's Avatar
    Join Date
    Sep 2012
    Gender
    male
    Posts
    9,430
    Reputation
    611
    Thanks
    9,709
    My Mood
    Cheerful
    Code:
    
    <DllImport("kernel32.dll")> _
    Private Shared 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 Shared Function WriteProcessMemory(hProcess As IntPtr, lpBaseAddress As IntPtr, <[In], Out> buffer As Byte(), size As UInt32, ByRef lpNumberOfBytesWritten As IntPtr) As Int32
    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 Long, Length As Integer) As Byte()
    	Dim Buffer As Byte() = New Byte(Length - 1) {}
    	Dim Zero As IntPtr = IntPtr.Zero
    	ReadProcessMemory(pHandel, DirectCast(Address, IntPtr), Buffer, DirectCast(Buffer.Length, UInt32), Zero)
    	Return Buffer
    End Function
    Private Sub Write(Address As Long, Value As Integer)
    	Dim Buffer As Byte() = BitConverter.GetBytes(Value)
    	Dim Zero As IntPtr = IntPtr.Zero
    	WriteProcessMemory(pHandel, DirectCast(Address, IntPtr), Buffer, DirectCast(Buffer.Length, UInt32), Zero)
    End Sub
    
    
    'Write Funcs
    Public Sub WriteString(Address As Long, Text As String)
    	Dim Buffer As Byte() = New ASCIIEncoding().GetBytes(Text)
    	Dim Zero As IntPtr = IntPtr.Zero
    	WriteProcessMemory(pHandel, DirectCast(Address, IntPtr), Buffer, DirectCast(Buffer.Length, UInt32), Zero)
    End Sub
    
    Public Sub WriteNOP(Address As Long)
    	Dim Buffer As Byte() = New Byte() {&H90, &H90, &H90, &H90, &H90}
    	Dim Zero As IntPtr = IntPtr.Zero
    	WriteProcessMemory(pHandel, DirectCast(Address, IntPtr), Buffer, DirectCast(Buffer.Length, UInt32), Zero)
    End Sub
    
    Public Sub WriteInteger(Address As Long, Value As Integer)
    	Write(Address, Value)
    End Sub
    
    Public Sub WriteBytes(Address As Long, Bytes As Byte())
    	Dim Zero As IntPtr = IntPtr.Zero
    	WriteProcessMemory(pHandel, DirectCast(Address, IntPtr), Bytes, CUInt(Bytes.Length), Zero)
    End Sub
    
    
    'Read Funcs
    Public Function ReadString(Address As Long, Optional Length As Integer = 4) As String
    	Return New ASCIIEncoding().GetString(Read(Address, Length))
    End Function
    
    Public Function ReadBytes(Address As Long, Length As Integer) As Byte()
    	Return Read(Address, Length)
    End Function
    
    Public Function ReadInteger(Address As Long, Optional Length As Integer = 4) As Integer
    	Return BitConverter.ToInt32(Read(Address, Length), 0)
    End Function
    Code:
    Imports System.Drawing
    Imports System.Linq
    Imports System.Text
    Imports System.Threading.Tasks
    Imports System.Windows.Forms
    
    Namespace CallofDuty_Ghosts_Rank_Hack_Base_by_Distiny
    	Public Partial Class Form1
    		Inherits Form
    		Public Sub New()
    			InitializeComponent()
    		End Sub
    
    		'declare's and vars
    
    		Private ghost As New mem()
    
    		Private A_SquadPoints As Long = &H144332b40L
    
    
    
    
    		Private Sub button1_Click(sender As Object, e As EventArgs)
    			If ghost.Process_Handle("iw6mp64_ship") Then
    				' this is a check to make sure ghost is running.
    				Dim squadPoints As Integer = Convert.ToInt32(textBox1.Text)
    				ghost.WriteInteger(A_SquadPoints, squadPoints)
    			End If
    		End Sub
    
    		Private Sub Form1_Load(sender As Object, e As EventArgs)
    
    		End Sub
    	End Class
    End Namespace
    You're welcome.

  13. The Following 2 Users Say Thank You to Lovroman For This Useful Post:

    OhFlashArts (12-31-2013),SammyDoge1 (12-31-2013)

  14. #10
    SammyDoge1's Avatar
    Join Date
    Apr 2009
    Gender
    male
    Location
    Tried looking behind you...?
    Posts
    2,179
    Reputation
    59
    Thanks
    2,086
    My Mood
    Tired
    Quote Originally Posted by Lovroman View Post


    You're welcome.
    You're making it so easy for them.





  15. #11
    Lovroman's Avatar
    Join Date
    Sep 2012
    Gender
    male
    Posts
    9,430
    Reputation
    611
    Thanks
    9,709
    My Mood
    Cheerful
    Quote Originally Posted by sammyhond1 View Post

    You're making it so easy for them.
    Eh, it's easier then trying to explain something that's pretty obvious(that you can't use a C# project file in a VB.Net project)..

  16. #12
    SammyDoge1's Avatar
    Join Date
    Apr 2009
    Gender
    male
    Location
    Tried looking behind you...?
    Posts
    2,179
    Reputation
    59
    Thanks
    2,086
    My Mood
    Tired
    Quote Originally Posted by Lovroman View Post


    Eh, it's easier then trying to explain something that's pretty obvious(that you can't use a C# project file in a VB.Net project)..
    Think you miss understood the way i meant it. I mean its good you help them out so much.
    Last edited by SammyDoge1; 12-31-2013 at 04:18 PM.





  17. The Following User Says Thank You to SammyDoge1 For This Useful Post:

    Lovroman (12-31-2013)

Similar Threads

  1. [Help Request] Need a bit of help with detected hacks
    By kinibayVIP4 in forum Crossfire Coding Help & Discussion
    Replies: 1
    Last Post: 04-03-2013, 04:48 AM
  2. Need a bit help.
    By madbullet in forum WarRock - International Hacks
    Replies: 1
    Last Post: 01-23-2009, 07:57 AM
  3. I need a bit of help
    By deedvanick in forum Combat Arms Hacks & Cheats
    Replies: 3
    Last Post: 08-22-2008, 09:00 AM
  4. Code all ready to inject, but still need a bit of help
    By jRah in forum General Game Hacking
    Replies: 0
    Last Post: 08-20-2008, 01:33 PM
  5. Need a bit of help
    By Kingleo33 in forum Runescape Help
    Replies: 0
    Last Post: 04-27-2008, 02:00 PM

Tags for this Thread