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

[atheist]

well...
You need only a WriteAByte module to NOP the address:

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

Then make a button with this code:

Call WriteAByte (&H4FB1D5, &H90)
Call WriteAByte (&H4FB1D6, &H90)
Call WriteAByte (&H4FB1D7, &H90)
Call WriteAByte (&H4FB1D8, &H90)

4FB1D5 = the current anti kick address (the others are +1)
90 = The value to NOP the address

[w4rr0ckh4ck3r]

wait wat? how u do wat? and does some1 have an anti kick? if u do please private msg it to me, or at least how do i make one wat? i dont get it and wat is vb? lol i such a nub

[poisonpower]

well...
You need only a WriteAByte module to NOP the address:

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

Then make a button with this code:

Call WriteAByte (&H4FB1D5, &H90)
Call WriteAByte (&H4FB1D6, &H90)
Call WriteAByte (&H4FB1D7, &H90)
Call WriteAByte (&H4FB1D8, &H90)

4FB1D5 = the current anti kick address (the others are +1)
90 = The value to NOP the address

this write a byte asm gonna be undetected forever or i can substitute 'writeabyte and writeabite whit what i want?

[noobnoob4]

will be detected soon!!! cause it´s public
and i thought anti kick waws a 6 byte NOP??