[TuT] Invis Hack (works till 3/27/08)

Ok open up vb6.

Then Make 1 button, all u need.

In the button Code this:

Call notdetectedO("Warrock", &H524678, &H1C)

there is invis, now the module:

Public Const notdetectedU = &H1F0FFF
Dim f1holder As Integer
Dim timer_pos As Long

'API Declaration
Public Declare Function notdetectedA Lib "user32" Alias "GetWindowThreadProcessId" (ByVal hWnd As Long, lpdwProcessId As Long) As Long
Public Declare Function notdetectedB Lib "kernel32" Alias "OpenProcess" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Public Declare Function notdetectedC 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 notdetectedD Lib "kernel32" Alias "CloseHandle" (ByVal hObject As Long) As Long
Public Declare Function notdetectedE Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long
Public Declare Function notdetectedF Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer
Public Declare Function notdetectedG 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 notdetectedK(notdetectedQ As String, notdetectedR As Long, notdetectedS As Long) 'WriteALong
Dim notdetectedH As Long
Dim notdetectedI As Long
Dim notdetectedJ As Long
notdetectedH = notdetectedE(vbNullString, notdetectedQ)
If (notdetectedH = 0) Then
End
Exit Function
End If
notdetectedA notdetectedH, notdetectedI
notdetectedJ = notdetectedB(notdetectedU, False, notdetectedI)
If (notdetectedJ = 0) Then
Exit Function
End If
notdetectedC notdetectedJ, notdetectedR, notdetectedS, 4, 0&
notdetectedD notdetectedV
End Function

Public Function notdetectedL(notdetectedQ As String, notdetectedR As Long, notdetectedT As Long) 'ReadALong
Dim notdetectedH As Long
Dim notdetectedI As Long
Dim notdetectedJ As Long
notdetectedH = notdetectedE(vbNullString, notdetectedQ)
If (notdetectedH = 0) Then
End
Exit Function
End If
notdetectedA notdetectedH, notdetectedI
notdetectedJ = notdetectedB(notdetectedU, False, notdetectedI)
If (notdetectedJ = 0) Then
Exit Function
End If
notdetectedG notdetectedJ, notdetectedR, notdetectedT, 4, 0&
notdetectedD notdetectedV
End Function

Public Function notdetectedN(notdetectedQ As String, notdetectedR As Long, notdetectedT As Single) 'ReadAFloat
Dim notdetectedH As Long
Dim notdetectedI As Long
Dim notdetectedJ As Long
notdetectedH = notdetectedE(vbNullString, notdetectedQ)
If (notdetectedH = 0) Then
End
Exit Function
End If
notdetectedA notdetectedH, notdetectedI
notdetectedJ = notdetectedB(notdetectedU, False, notdetectedI)
If (notdetectedJ = 0) Then
Exit Function
End If
notdetectedG notdetectedJ, notdetectedR, notdetectedT, 4, 0&
notdetectedD notdetectedV
End Function

Public Function notdetectedM(notdetectedQ As String, notdetectedR As Long, notdetectedS As Single) 'WriteAFloat
Dim notdetectedH As Long
Dim notdetectedI As Long
Dim notdetectedJ As Long
notdetectedH = notdetectedE(vbNullString, notdetectedQ)
If (notdetectedH = 0) Then
End
Exit Function
End If
notdetectedA notdetectedH, notdetectedI
notdetectedJ = notdetectedB(notdetectedU, False, notdetectedI)
If (notdetectedJ = 0) Then
Exit Function
End If
notdetectedC notdetectedJ, notdetectedR, notdetectedS, 4, 0&
notdetectedD notdetectedV
End Function

Public Function notdetectedO(notdetectedQ As String, notdetectedR As Long, notdetectedS As Byte) 'WriteAByte
Dim notdetectedH As Long
Dim notdetectedI As Long
Dim notdetectedJ As Long
notdetectedH = notdetectedE(vbNullString, notdetectedQ)
If (notdetectedH = 0) Then
End
Exit Function
End If
notdetectedA notdetectedH, notdetectedI
notdetectedJ = notdetectedB(notdetectedU, False, notdetectedI)
If (notdetectedJ = 0) Then
Exit Function
End If
notdetectedC notdetectedJ, notdetectedR, notdetectedS, 1, 0&
notdetectedD notdetectedV
End Function

Public Function notdetectedP(notdetectedQ As String, notdetectedR As Long, notdetectedT As Byte) 'ReadAByte
Dim notdetectedH As Long
Dim notdetectedI As Long
Dim notdetectedJ As Long
notdetectedH = notdetectedE(vbNullString, notdetectedQ)
If (notdetectedH = 0) Then
End
Exit Function
End If
notdetectedA notdetectedH, notdetectedI
notdetectedJ = notdetectedB(notdetectedU, False, notdetectedI)
If (notdetectedJ = 0) Then
Exit Function
End If
notdetectedG notdetectedJ, notdetectedR, notdetectedT, 1, 0&
notdetectedD notdetectedV
End Function






Copy The Module FULLY

There ya go, Should work

chaning the strings doesn't metter, that is not wath gets detected by warrock!

@ jeffrey / nice job posting a module that will get detected in 2minutes
@ niratsio / chaing stings does matter if u dont know wat ur talking bout dont post =]

why will it get detected? mine keeps getting detected... is it because other ppl use it or something?

because u just basically gave out to everyone wat makes ur hack "undetected"