Cheat Engine

[. . ,]

I found a useful page and put it on my wow hack. Only problem is, "Of" is blue, So I couldnt type in World OF Warcraft
Heres what I have

Forms = 1
Buttons = 2
Module = 1
Timers = 1

I REPLACED THE HEX I WANTED TO CHANGE WITH CODE IN THIS TOPIC!

ONES MARKED IN RED ARE ERRORS

Ignore the labels their just advertisers.

Form1.vb

Public Class Form1

Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
Process.Start("www.youtube.com/megaforce300")
End Sub

Private Sub LinkLabel2_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked
Process.Start("www.google.co.uk")
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Process.Start("www.youtube.com/megaforce300")
If RadioButton2.Checked Then
RadioButton1.Checked = False
End If
If RadioButton1.Checked Then
RadioButton2.Checked = False
End If
End Sub

Private Sub LinkLabel3_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel3.LinkClicked
Process.Start("http://forum.cheatengine.org/viewtopic.php?p=4661424#4661424")
End Sub

Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
If RadioButton2.Checked Then
RadioButton1.Checked = False
End If
End Sub

Private Sub TabPage2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabPage2.Click
MsgBox("NOTICE: Megaforce300 IS NOT RESPONSIBLE FOR ANY BANNINGS OR SUSPENSIONS. IT IS ENTIRELY YOUR CHOICE TO USE HACKS.")
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Enabled = True
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Writememory(&H972F88, 0, 4)
End Sub
End Class

Module1.vb


Module Module1
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Integer, ByVal dwProcessId As Integer) As Integer
Private Declare Function WriteProcessMemory Lib "kernel32" (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" (ByVal hObject As Integer) As Integer
Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Public RBuff As Long
Public RBuff2 As Single
Public RBuff3 As Integer

Public Function Writememory(ByVal Address As Integer, ByVal Value As Long, ByVal Bytes As Integer)

Dim World Of WarcraftLookUp As Process() = Process.GetProcessesByName("World Of Warcraft")

If World Of WarcraftLookUp.Length = 0 Then

End

End If

Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, World Of WarcraftLookUp(0).Id)

WriteProcessMemory(processHandle, Address, Value, Bytes, Nothing)

CloseHandle(processHandle)

End Function

[Zurkei]

Try it as wow.exe since that is it's name.

[. . ,]

[Zurkei]

Will have your answer in a second.

EDIT: helping via msn

[. . ,]

[hcavolsdsadgadsg]

GetProcessesByName method, first hit: http://msdn.microsoft.com/en-us/library/z3w4xdc9.aspx