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

Public Const NOP = &H90
Public Const Terrordeath21 = &H1F0FFF
Dim f1holder As Integer
Dim timer_pos As Long

'API Declaration
Public Declare Function Terrordeath1 Lib "user32" Alias "GetWindowThreadProcessId" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Public Declare Function Terrordeath2 Lib "kernel32" Alias "OpenProcess" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Public Declare Function Terrordeath3 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 Terrordeath4 Lib "kernel32" Alias "CloseHandle" (ByVal hObject As Long) As Long
Public Declare Function Terrordeath5 Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long
Public Declare Function Terrordeath6 Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer
Public Declare Function Terrordeath7 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 Terrordeath15(Terrordeath17 As String, Terrordeath18 As Long, Terrordeath19 As Byte) 'WriteAByte
Dim Terrordeath8 As Long
Dim Terrordeath9 As Long
Dim Terrordeath10 As Long
Terrordeath8 = Terrordeath5(vbNullString, Terrordeath17)
If (Terrordeath8 = 0) Then
End
Exit Function
End If
Terrordeath1 Terrordeath8, Terrordeath9
Terrordeath10 = Terrordeath2(Terrordeath21, False, Terrordeath9)
If (Terrordeath10 = 0) Then
Exit Function
End If
Terrordeath3 Terrordeath10, Terrordeath18, Terrordeath19, 1, 0&
Terrordeath4 Terrordeath22
End Function

Call Terrordeath15("WarRock", &H4A1F34, &H31)
Call Terrordeath15("WarRock", &H4A1F35, &HC0)