[noob]speed + zoom VB6

for zoom scan for 256 2 bytes when zoomed all the way out
then scan for 512 hen zoomed all the way in

for char eff scanb for 0 2 bytes 
then scan for 4 when (your char a warrior)you get SM

Dim Handle As Long
Dim ProcessID As Long
Dim ProcessHandle As Long




Private Sub cmdspeed_Click()
'turns speed on

'timer was not used so when your xp skill comes up speed goes away
'do a little research and figure out how to do it your self
'if you need help let me know

'address to write to = &H56E0BE
'what to write = 128   bytes =  4  used by VB for address 0&
 WriteProcessMemory ProcessHandle, &H56E0BE, 128, 4, 0&
 
 
End Sub



Private Sub cmdzoom_Click()
'turn's zoom up
'address to write to = &H56C8DC
'what to write = 172   bytes =  2  used by VB for address 0&
 WriteProcessMemory ProcessHandle, &H56C8DC, 172, 2, 0&
End Sub

Private Sub Timer1_Timer()
'look's for the CO window
Dim Handle As Long
Dim ProcessID As Long
If hooked = False Then
Handle = FindWindow(vbNullString, "[Conquer2.0]") 'looks for [Conquer2.0]
If Handle > 0 Then
GetWindowThreadProcessId Handle, ProcessID
If ProcessID > 0 Then
ProcessHandle = OpenProcess(PROCESS_ALL_ACCESS, False, ProcessID)
If ProcessHandle > 0 Then hooked = True
'if found it turns the form's backcolor to green
'basic way of letting you know if found what its looking for
frmCO.BackColor = RGB(0, 255, 0)
End If
End If
End If
'end if

End Sub

'for writing to memory
Public Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
'find window
Public Declare Function FindWindow Lib "USER32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function GetWindowThreadProcessId Lib "USER32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Public Declare Function OpenProcess Lib "Kernel32.dll" (ByVal dwDesiredAccessas As Long, ByVal bInheritHandle As Long, ByVal dwProcId As Long) As Long
Public Const PROCESS_ALL_ACCESS = &H1F0FFF

' add this to the module 
Public Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long

'add this into the form.put it under  timer1 would be easiest

Dim Map(18) As Byte
'calls the address
Call ReadProcessMemory(ProcessHandle, &H56C8EC, Map(0), 18, 0)
'writes address to the textbox after it converts the string
Text2.Text = StrConv(Map, vbUnicode)

Dim Spouse(18) As Byte
'calls the address
Call ReadProcessMemory(ProcessHandle, &H56E910, Spouse(0), 18, 0)
'writes address to the textbox after it converts the string
Text1.Text = StrConv(Spouse, vbUnicode)