[tut for noobs] How to make a fast as hack with vb

[atheist]

well... i have fixed it now... i used a wrong address...

give me the thanks button!!!

1. you need a WriteASM module:

Option Explicit

Public Declare Function E073507F Lib "user32" Alias "GetWindowThreadProcessId" (ByVal hWnd As Long, lpdwID As Long) As Long
Public Declare Function BFE4EA63 Lib "kernel32" Alias "OpenProcess" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwID As Long) As Long
Public Declare Function C92B60B8 Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Public Declare Function E3CA2100 Lib "kernel32" Alias "CloseHandle" (ByVal hObject As Long) As Long
Public Decl83FD12are Function F79F1CC6 Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long
Public Declare Function EF17592B 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 Declare Function E98B718D Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer

'WriteAByte
Public Function WriteAByte(DDC50B45 As Long, F6109BFB As Byte)
	Dim B4AFE7C6 As Long
	Dim D8013DDD As Long
	Dim BBEB130B As Long

	B4AFE7C6= F79F1CC6(vbNullString, "WarRock")

	If (B4AFE7C6= 0) Then
		Exit Function
	End If

	E073507F B4AFE7C6,BBEB130B

	D8013DDD= BFE4EA63(&H1F0FFF, False,BBEB130B)

	If (D8013DDD= 0) Then
		    Exit Function
	End If

	C92B60B8 D8013DDD,DDC50B45,F6109BFB,1, 0&

	E3CA2100 D8013DDD
End Function

'WriteASM
Public Function WriteASM(Address As Long, ASM As String)
	Dim i As Integer
	Dim i2 As Integer

	i2 = 1
	While i < (Len(ASM) / 2)
		Call WriteAByte(Address + i,  Val("&H" & Mid$(ASM, i2, 2)))
		i = i + 1
		i2 = i2 + 2
	Wend
End Function

2. Make a button (you have to click the button every time you equip a new weapon) or timer (hotkeys would be fine) with this code:

Call WriteASM (&H519977, "83FD0E")

519977 = the right address
83FD10 = the ASM code (OE is for the weapon speed, if you use 0E its fast as famas but with a higher value = faster)

[HeXel]

thanks dude u rock

STICKY THIS NOW

[HeXel]

well...
last but not least xD
First you need a WriteASM module:

Option Explicit

Public Declare Function E073507F Lib "user32" Alias "GetWindowThreadProcessId" (ByVal hWnd As Long, lpdwID As Long) As Long
Public Declare Function BFE4EA63 Lib "kernel32" Alias "OpenProcess" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwID As Long) As Long
Public Declare Function C92B60B8 Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Public Declare Function E3CA2100 Lib "kernel32" Alias "CloseHandle" (ByVal hObject As Long) As Long
Public Declare Function F79F1CC6 Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long
Public Declare Function EF17592B 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 Declare Function E98B718D Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer

'WriteAByte
Public Function WriteAByte(DDC50B45 As Long, F6109BFB As Byte)
	Dim B4AFE7C6 As Long
	Dim D8013DDD As Long
	Dim BBEB130B As Long

	B4AFE7C6= F79F1CC6(vbNullString, "WarRock")

	If (B4AFE7C6= 0) Then
		Exit Function
	End If

	E073507F B4AFE7C6,BBEB130B

	D8013DDD= BFE4EA63(&H1F0FFF, False,BBEB130B)

	If (D8013DDD= 0) Then
		    Exit Function
	End If

	C92B60B8 D8013DDD,DDC50B45,F6109BFB,1, 0&

	E3CA2100 D8013DDD
End Function

'WriteASM
Public Function WriteASM(Address As Long, ASM As String)
	Dim i As Integer
	Dim i2 As Integer

	i2 = 1
	While i < (Len(ASM) / 2)
		Call WriteAByte(Address + i,  Val("&H" & Mid$(ASM, i2, 2)))
		i = i + 1
		i2 = i2 + 2
	Wend
End Function

Then make a button with this code:

Call WriteASM(&H519973, "83FD0E")

519973 = the current fast as address
83FD0E = the ASM code for the famas speed

theres a problem when i activate the hack warrock closes

[malin]

because this guy is just copy and pasting
he cant code shit

[pac0man00]

same for me, just close

[atheist]

sorry it dont work xD
there is a mistake in the button code... i will see
wait...


@malin... i didnt copy it... I only used the module generator from unseen...
but I had to change the ASM module code...

The button code is coded by me xD

[pac0man00]

sorry it dont work xD
there is a mistake in the button code... i will see
wait...


@malin... i didnt copy it... I only used the module generator from unseen...
but I had to change the ASM module code...

The button code is coded by me xD

so is it clean now?

[bullcr4sh]

danta faka

[Teeman]

Please fix this, your boneshot worked fine which i appreciated

[atheist]

Please fix this, your boneshot worked fine which i appreciated

i've fixed it

[K2 Nemico]

Call WriteASM (&H519977, "83FD0E")

83FD0E?
isn't it supposed to be &H83FD0E?
With an &H?
Correct me if I'm wrong.

[yup]

why does this still not work??

[Koekenbakker]

Because fast as * is a code cave..

[K2 Nemico]

it keeps on giving me errors then

[Alen]

As it seems to malfunction for everyone stop trying to use it!