Need a bit help

[OhFlashArts]

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

[Lovroman]

https://www.mpgh.net/forum/723-call-d...k-project.html
You can easily convert it to VB using a online converter.

[OhFlashArts]

Can I use it with vb 2008 too?

And is there a memory module included?

[Lovroman]

Can I use it with vb 2008 too?

And is there a memory module included?

Yes and yes.

[SammyDoge1]

Can I use it with vb 2008 too?

And is there a memory module included?

Just get the 2010+ version.

[OhFlashArts]

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?

[Lovroman]

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.).

[OhFlashArts]

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?

[Lovroman]

<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

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.

[SammyDoge1]

You're welcome.

You're making it so easy for them.

[Lovroman]

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)..

[SammyDoge1]

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.