[noob]speed + zoom VB6

[Stop 0x0000000A]

I have not been on this site in A long time.I came back because I heard there was proxy ready for release,I seen this section with no real information in it so I made a quick zoom and speed in VB.Lots of comments and extra easy to understand.
any questions just ask


5057 is the current patch I'm using if there is a new exe let me know and ill update
source and build


I might also show how to read from memory.



How to find address using CE:

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

form code:

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

module:

'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

This isn't in the source,but if you want to see how to read from memory here is a code snippit to add,then just make 2 text boxes named text1 and text2

read from memory code:

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

If anyone want's the code in vb.net if you dont have vb6 let me know i'll try and post it.
If no one else is going to I might post up something using c#,I'm not a all out pro,so I might have some trouble explaining the code,But I'll see what I can do.

[purplehaze]

I thank you for that source, I am 1 of those VB.net users and would be very interested in the VB.Net source especially the window hooking part reading and writing process memory

So if you are willing to share this that would be very appreciated!
Thanks again for your contribution.

[IAmHawtness]

[purplehaze]

Originally Posted by IAmHawtness

Thanks! I didnt know about that!
Aww also VB6

[IAmHawtness]

Originally Posted by purplehaze

Thanks! I didnt know about that!
Aww also VB6

VB6 is pro

[purplehaze]

Originally Posted by IAmHawtness

VB6 is pro

I rather ride new bikes

[MushyPeas]

Originally Posted by purplehaze

I rather ride new bikes

I like VB6 so much better than dotnet xD
Though nowadays I seldom program at all and when I do it's in C++ :x

[purplehaze]

Originally Posted by MushyPeas

I like VB6 so much better than dotnet xD
Though nowadays I seldom program at all and when I do it's in C++ :x

Well I'm learning .net =p
i know some VB6 wich I'm trying to forget because the Long's and Integers tend to confuse me especially since there's so many VB6 examples out there

c++ just looks confusing with all the open and closing tags lol.
now if there was like a "compiler" that made the c++ language more like Vb (wich I'm sure is out there somewhere )
I would be learning that
Just imagine how the syntax could be simplified, and is possible too

[Stop 0x0000000A]

I'll try and post p a dot net version sometime this weekend.

[operaopera]

Why this



Public Const PROCESS_ALL_ACCESS = &H1F0FFF

[clipper]

In my case if I write 4 bits to activate the speed of the flight archer is not visible client side, while all other players if they see it fly.
to solve what I write well (vb6 code)

Dim bSpeedValue As Byte
bSpeedValue = 128
Call WriteProcessMemory(d_hProcess, ByVal cOffSpeed, bSpeedValue, 1, &O0)

[Stop 0x0000000A]

Originally Posted by operaopera

Why this



Public Const PROCESS_ALL_ACCESS = &H1F0FFF

i dont know?you are using VB6 right?It works fine for me,If Im not getting the error I cant fix it.

[purplehaze]

Originally Posted by operaopera

Why this



Public Const PROCESS_ALL_ACCESS = &H1F0FFF

Your not putting it in a module

Anyway Stop 0x0000000A,
I pulled out VB6 from dusty old disk lol,
tested with some changes worked fine,
make sure if u do use a timer and improve the code a little
because otherwise if u change screens to another CO screen,
speedhack will be activated on that screen aswell
But easy fixed

[Stop 0x0000000A]

Originally Posted by purplehaze

Your not putting it in a module

Anyway Stop 0x0000000A,
I pulled out VB6 from dusty old disk lol,
tested with some changes worked fine,
make sure if u do use a timer and improve the code a little
because otherwise if u change screens to another CO screen,
speedhack will be activated on that screen aswell
But easy fixed

It only took me less then 5 min to make,I tested it to see if it would work and itdid then I posted it.I dident make it to be used really it was ust a way to show how easy it is to do.

As for a VB.NET I pretty much gave up making one,vbdotnet seems harder then I remember,Made me remember why I went back to vb6,vb6 is so dam easy specialy for simple application

[SWATZ]

Can u write down the source code for vb.net please, im using vb 2008 express