[Video Tut VB6] A lot

[Iam"iDude"]

i made a whole bunch of video tuts if you want to look at them and if you are wondering why it says logeys at the end that is because i also go by logeys (my xfire is logeys too ) ok well just go view my profile and there should be a play list thing right under the feature video so you can go view them =D

www.youtube.com/logeys

HowTo Hacks: Lots of Simple Addresses Part 1
HowTo Hacks: Lots of Simple Addresses Part 2
HowTo Hacks: SJ, NFD, SS Part1
HowTo Hacks: SJ, NFD, SS Part2
HowTo Hacks: Swim
HowTo Hacks: Stamina



if you have trouble getting to the module page that it says in the video just use this below:

Public Const PROCESS_ALL_ACCESS = &H1F0FFF
Dim f1holder As Integer
Dim timer_pos As Long

'API Declaration
Public Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd As Long, lpdwProcessId As Long) As Long
Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
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
Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long
Public Declare Function GetKeyPress Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer
Public Declare Function ReadProcessMem Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, ByRef lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long

Public Function WriteAByte(gamewindowtext As String, address As Long, value As Byte)
Dim hWnd As Long
Dim pid As Long
Dim phandle As Long
hWnd = FindWindow(vbNullString, gamewindowtext)
If (hWnd = 0) Then
MsgBox "The Game Is Not Working", vbCritical, "Error"
End
Exit Function
End If
GetWindowThreadProcessId hWnd, pid
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If
WriteProcessMemory phandle, address, value, 1, 0&
CloseHandle hProcess
End Function

Public Function WriteAnInt(gamewindowtext As String, address As Long, value As Integer)
Dim hWnd As Long
Dim pid As Long
Dim phandle As Long
hWnd = FindWindow(vbNullString, gamewindowtext)
If (hWnd = 0) Then
MsgBox "The Game Is Not Working", vbCritical, "Error"
End
End If
GetWindowThreadProcessId hWnd, pid
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If
WriteProcessMemory phandle, address, value, 2, 0&
CloseHandle hProcess
End Function

Public Function WriteALong(gamewindowtext As String, address As Long, value As Long)
Dim hWnd As Long
Dim pid As Long
Dim phandle As Long
hWnd = FindWindow(vbNullString, gamewindowtext)
If (hWnd = 0) Then
MsgBox "The Game Is Not Working", vbCritical, "Error"
End
Exit Function
End If
GetWindowThreadProcessId hWnd, pid
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If
WriteProcessMemory phandle, address, value, 4, 0&
CloseHandle hProcess
End Function

Public Function ReadAByte(gamewindowtext As String, address As Long, valbuffer As Byte)
Dim hWnd As Long
Dim pid As Long
Dim phandle As Long
hWnd = FindWindow(vbNullString, gamewindowtext)
If (hWnd = 0) Then
MsgBox "The Game Is Not Working", vbCritical, "Error"
End
Exit Function
End If
GetWindowThreadProcessId hWnd, pid
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If
ReadProcessMem phandle, address, valbuffer, 1, 0&
CloseHandle hProcess
End Function

Public Function ReadAnInt(gamewindowtext As String, address As Long, valbuffer As Integer)
Dim hWnd As Long
Dim pid As Long
Dim phandle As Long
hWnd = FindWindow(vbNullString, gamewindowtext)
If (hWnd = 0) Then
MsgBox "The Game Is Not Working", vbCritical, "Error"
End
Exit Function
End If
GetWindowThreadProcessId hWnd, pid
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If
ReadProcessMem phandle, address, valbuffer, 2, 0&
CloseHandle hProcess
End Function

Public Function ReadALong(gamewindowtext As String, address As Long, valbuffer As Long)
Dim hWnd As Long
Dim pid As Long
Dim phandle As Long
hWnd = FindWindow(vbNullString, gamewindowtext)
If (hWnd = 0) Then
MsgBox "The Game Is Not Working", vbCritical, "Error"
End
Exit Function
End If
GetWindowThreadProcessId hWnd, pid
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If
ReadProcessMem phandle, address, valbuffer, 4, 0&
CloseHandle hProcess
End Function

Public Function ReadAFloat(gamewindowtext As String, address As Long, valbuffer As Single)
    Dim hWnd As Long
    Dim pid As Long
    Dim phandle As Long
    hWnd = FindWindow(vbNullString, gamewindowtext)
    If (hWnd = 0) Then
        MsgBox "The Game Is Not Working", vbCritical, "Error"
        End
        Exit Function
    End If
   
    GetWindowThreadProcessId hWnd, pid
    phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
    If (phandle = 0) Then
        MsgBox "Can't get ProcessId", vbCritical, "Error"
        Exit Function
    End If

    ReadProcessMem phandle, address, valbuffer, 4, 0&
    CloseHandle hProcess
End Function

Public Function WriteAFloat(gamewindowtext As String, address As Long, value As Single)
    Dim hWnd As Long
    Dim pid As Long
    Dim phandle As Long
   
    hWnd = FindWindow(vbNullString, gamewindowtext)
    If (hWnd = 0) Then
        MsgBox "The Game Is Not Working", vbCritical, "Error"
        End
        Exit Function
    End If

    GetWindowThreadProcessId hWnd, pid
    phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
    If (phandle = 0) Then
        MsgBox "Can't get ProcessId", vbCritical, "Error"
        Exit Function
    End If

    WriteProcessMemory phandle, address, value, 4, 0&
    CloseHandle hProcess
End Function

[radnomguywfq3]

Why VB6.0. I've like masterd the language and I choose VB.net over 6.0. I don't see how VB6.0 is better. If your applets run too slow I know of a code that kills 3\4 of the CPU Usage. =P Also people shouldn't use the module, If your learning to hack you should know the whole process of writing Memory. Its not even that hard, The module makes it lookalot harder then it actually is.

Anyways Nice tutorial, It was helpful. I've been looking for addresses for days(Yes days =0).

[Iam"iDude"]

Why VB6.0. I've like masterd the language and I choose VB.net over 6.0. I don't see how VB6.0 is better. If your applets run too slow I know of a code that kills 3\4 of the CPU Usage. =P Also people shouldn't use the module, If your learning to hack you should know the whole process of writing Memory. Its not even that hard, The module makes it lookalot harder then it actually is.

Anyways Nice tutorial, It was helpful. I've been looking for addresses for days(Yes days =0).

you dont need to know how the whole module works if you did we would see a couple of tutorials explaining modules but i dont see 1 in sight at all... and how much diff is .net? because i have been using vb6 for a few months and i tried the .net 08 thing but i couldnt figure out pointers on that 1 >.>

[radnomguywfq3]

VB.net and VB6.0 have some slight syntax changes. I'm notgoing to list all the diffrences because there is alot. VB.net has many more advantages when it comes to network application, 3D Programming(Its getting close to DirectX 10) There is alot, checkout MSDN.com. I should say though, there in VB.net 2008 beta already. VB6.0 is getting old.
I say people should understand the module because its not just

"Writeabyte"

Its In (.net)

Dim Targwin as long
Dim Handle as long
Dim ProcessID as long
Targwin = findwindow(vbnullstring, "Warrock")
if(targwin =0) then exit sub ''Or exit funtion w\e ure using
getwindowthreadprocessid(targwin, false, ProcessID)
Handle = openprocess(Process_ALl_Accsess, false, ProcessID)
WriteProcessMemory(ProcessId,Address,Number to write,Type,0&)

They should understand that ^

[sukh13]

thxxx dude il make my hack now lol

[beatzwithin]

i followed ur video perfect and when finished anc clicked this came up

compile error: invalid use of property

help pls pm me w/ any help im a total noob when it comes to this so any help will b great

[Iam"iDude"]

i followed ur video perfect and when finished anc clicked this came up

compile error: invalid use of property

help pls pm me w/ any help im a total noob when it comes to this so any help will b great

which video and which hack?

[wr194t]

These videos really helped me with my trainer thanks

[beatzwithin]

stamina hack

[Iam"iDude"]

stamina hack

you did
timer1.enabled = true / false for the on and off buttons right?

[beatzwithin]

yes i did

[beatzwithin]

i dont understand why it isnt workin i did the same as u showed everything

[Iam"iDude"]

i dont understand why it isnt workin i did the same as u showed everything

is the error in your command buttons or the timer?

[beatzwithin]

its highlighting = private sub command1 click() in yellow and = timer1 in gray...if that helps

[kokobunji100]

really loved the tut easy to understand but i want to know hot to set a hotkey for superjump so if you could make a vid tut for that i wouldnt mind waiting a while for it to come out and it would help me alot in understaning vb6