I DONT UNDERSTAND IS THAT THE MODULE.srry 4 caps.u put his module in,then in the form code you put your codes like call writealong(warrock" &H8548566, 1)in a button or a timer.code is not rt just an exaple
Okay so I am having trouble with the function declarion "WriteALong" sub. Like look as this
Okay so i'm having trouble with phandlePublic 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 pid=" + pid + " hwnd = " + hwnd
End
Exit Function
End If
GetWindowThreadProcessId hwnd, pid
phandle = OpenProcess(PROCESS_ALL_ACCESS, True, pid)
If (phandle = 0) Then
MsgBox "Can't get ProcessId pid=" & pid & " hwnd = " & hwnd & " Phandle = " & phandle
Exit Function
End If
WriteProcessMemory phandle, address, value, 4, 0&
CloseHandle hProcess
End Function
phandle for some weard reason still = 0 when this happends.phandle = OpenProcess(Process_all_accsess, False, pid)
I DONT UNDERSTAND IS THAT THE MODULE.srry 4 caps.u put his module in,then in the form code you put your codes like call writealong(warrock" &H8548566, 1)in a button or a timer.code is not rt just an exaple
aww..I'm, so goddmm stupid. I need to run it in admin mode because I use vista. Thanks for trying though
Aww crap. Okay maby I'm not an idiot, I was trying to hack warrock using this VB Code:
Well I ran it in admin mode and I still get the error message I programmed in there.Private Sub InfHpTimer_Timer()
Dim HPADRESS As Long
Dim RecoilCHKnum As Long
Dim SpreadCHKnum As Long
Recoil = "0090BC72"
Spread = "0090BC71"
HPCHANGETO = 100
TargWin = FindWindow("WarRock.exe", "WarRock")
GetWindowThreadProcessId TargWin, pin
ProcessHandle = OpenProcess(PROCESS_ALL_ACTION, False, pid)
If (ProcessHandle = 0 Or TargWin = 0) Then
InfHpTimer.Enabled = False
MsgBox ("Please assure that the warrock window is in a vaild state, and\or open.")
Exit Sub
End If
ReadProcessMem ProcessHandle, "0090BC72", RecoilCHKnum, 1, 0&
ReadProcessMem ProcessHandle, "0090BC71", SpreadCHKnum, 1, 0&
WriteProcessMemory ProcessHandle, "0090BC71", SpreadCHKnum, 1, 0&
WriteProcessMemory ProcessHandle, "0090BC72", RecoilCHKnum, 1, 0&
Close ProcessHandle
InfHpTimer.Interval = 0
End Sub
Meaning Process Handle or\and TargWin = 0. Could someone help me out here.If (ProcessHandle = 0 Or TargWin = 0) Then
InfHpTimer.Enabled = False
MsgBox ("Please assure that the warrock window is in a vaild state, and\or open.")
Exit Sub
End If
*Edit*
Jesus I just found 2 erros.
*edit*
Can someone test this out for. I'm really busy right now. What it should do is disable recoil and spread.
Last edited by radnomguywfq3; 04-29-2009 at 05:22 PM.
i will help you out if you give me the source, take out the addresses if you think im just here to steal. just put ******* where the address is.