CSS Hack

[DrInvisible 4]

Make a CSS Hack in Visual Basic06 by Yourself ;D

 

I will add soon the same for vb08 but that is now for vb06:

 

MODUL:


Option Explicit
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long

Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal Hwnd As Long, lpdwProcessId As Long) As Long

Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long

Private Declare Function WPM Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long

Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

Private FindProcess As Long

Public Sub SetProcess(WindowCaption As String)
FindProcess = FindWindow(vbNullString, WindowCaption)
End Sub

Public Sub WriteNOPs(Address As Long, NOPNum As Integer)
Dim pid&, phandle&
Dim C As Integer
Dim B As Integer
If FindProcess = 0 Then Exit Sub
GetWindowThreadProcessId FindProcess, pid
phandle = OpenProcess(&H1F0FFF, False, pid)
If phandle = 0 Then Exit Sub
B = 0
For C = 1 To NOPNum
Call WPM(phandle, Address + B, &H90, 1, 0&)
B = B + 1
Next C
CloseHandle phandle
End Sub

Public Sub WriteXBytes(Address As Long, Value As String)
Dim pid&, phandle&
Dim Temp As String
Dim C As Integer
Dim B As Integer
Dim D As Integer
Dim V As Byte
If FindProcess = 0 Then Exit Sub
GetWindowThreadProcessId FindProcess, pid
phandle = OpenProcess(&H1F0FFF, False, pid)
If phandle = 0 Then Exit Sub
B = 0
D = 1
For C = 1 To Round((Len(Value) / 2))
V = Val("&H" & Mid$(Value, D, 2))
Call WPM(phandle, Address + B, V, 1, 0&)
B = B + 1
D = D + 2
Next C
CloseHandle phandle


End Sub 

 

 

Code Ammo:

 

Private Sub Command1_Click()
Call SetProcess("Counter-Strike Source")
Call WriteXBytes(&H220D91CD, "9090")
End Sub 

 

Code Health:

 

Private Sub Command2_Click()

Call SetProcess("Counter-Strike Source")
Call WriteXBytes(&H22026FE0, "9090")
End Sub

Private Sub Command3_Click()

Call SetProcess("Counter-Strike Source")
Call WriteXBytes(&H2220E6B8, "9090")
End Sub

 

That´s only Tipps, scan the rest by yourself.. i hate copy and paste nubs

Edited April 19, 2009 by WarCocksuxx