In this tutorial i will show you how to make an invisible hack in VB6.
First Create two command buttons.
Label button one Invisible
Label button two Off
In button one insert this code
Call NGUNHSICG("WarRock", &H505CF8, &H1C)
In button two insert this code
Call NGUNHSICG("WarRock", &H505CF8, &H2C)
Now add a module and insert this code. Make sure you set it all.
Public Const UUUUUGGUN = &H1F0FFF
Dim f1holder As Integer
Dim timer_pos As Long
'API Declaration
Public Declare Function UGQNHSIGC Lib "user32" Alias "GetWindowThreadProcessId" (ByVal hWnd As Long, lpdwProcessId As Long) As Long
Public Declare Function GQNHSIGCU Lib "kernel32" Alias "OpenProcess" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Public Declare Function QNHSIGCUG 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 NHSIGCUGQ Lib "kernel32" Alias "CloseHandle" (ByVal hObject As Long) As Long
Public Declare Function HSIGCUGQN Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long
Public Declare Function SIGCUGQNH Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer
Public Declare Function IGCUGQNHS 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 UGQNHISCG(UUUUUSICG As String, GGGNHSICG As Long, QQQNHSICG As Long) 'WriteALong
Dim GCUGQNHSI As Long
Dim UGQNHSICG As Long
Dim UGQNHSGCI As Long
GCUGQNHSI = HSIGCUGQN(vbNullString, UUUUUSICG)
If (GCUGQNHSI = 0) Then
End
Exit Function
End If
UGQNHSIGC GCUGQNHSI, UGQNHSICG
UGQNHSGCI = GQNHSIGCU(UUUUUGGUN, False, UGQNHSICG)
If (UGQNHSGCI = 0) Then
Exit Function
End If
QNHSIGCUG UGQNHSGCI, GGGNHSICG, QQQNHSICG, 4, 0&
NHSIGCUGQ HHHHUHSHN
End Function
Public Function UGQNSHICG(UUUUUSICG As String, GGGNHSICG As Long, NNNNHSICG As Long) 'ReadALong
Dim GCUGQNHSI As Long
Dim UGQNHSICG As Long
Dim UGQNHSGCI As Long
GCUGQNHSI = HSIGCUGQN(vbNullString, UUUUUSICG)
If (GCUGQNHSI = 0) Then
End
Exit Function
End If
UGQNHSIGC GCUGQNHSI, UGQNHSICG
UGQNHSGCI = GQNHSIGCU(UUUUUGGUN, False, UGQNHSICG)
If (UGQNHSGCI = 0) Then
Exit Function
End If
IGCUGQNHS UGQNHSGCI, GGGNHSICG, NNNNHSICG, 4, 0&
NHSIGCUGQ HHHHUHSHN
End Function
Public Function UGNQHSICG(UUUUUSICG As String, GGGNHSICG As Long, NNNNHSICG As Single) 'ReadAFloat
Dim GCUGQNHSI As Long
Dim UGQNHSICG As Long
Dim UGQNHSGCI As Long
GCUGQNHSI = HSIGCUGQN(vbNullString, UUUUUSICG)
If (GCUGQNHSI = 0) Then
End
Exit Function
End If
UGQNHSIGC GCUGQNHSI, UGQNHSICG
UGQNHSGCI = GQNHSIGCU(UUUUUGGUN, False, UGQNHSICG)
If (UGQNHSGCI = 0) Then
Exit Function
End If
IGCUGQNHS UGQNHSGCI, GGGNHSICG, NNNNHSICG, 4, 0&
NHSIGCUGQ HHHHUHSHN
End Function
Public Function GUQNHSICG(UUUUUSICG As String, GGGNHSICG As Long, QQQNHSICG As Single) 'WriteAFloat
Dim GCUGQNHSI As Long
Dim UGQNHSICG As Long
Dim UGQNHSGCI As Long
GCUGQNHSI = HSIGCUGQN(vbNullString, UUUUUSICG)
If (GCUGQNHSI = 0) Then
End
Exit Function
End If
UGQNHSIGC GCUGQNHSI, UGQNHSICG
UGQNHSGCI = GQNHSIGCU(UUUUUGGUN, False, UGQNHSICG)
If (UGQNHSGCI = 0) Then
Exit Function
End If
QNHSIGCUG UGQNHSGCI, GGGNHSICG, QQQNHSICG, 4, 0&
NHSIGCUGQ HHHHUHSHN
End Function
Public Function NGUNHSICG(UUUUUSICG As String, GGGNHSICG As Long, QQQNHSICG As Byte) 'WriteAByte
Dim GCUGQNHSI As Long
Dim UGQNHSICG As Long
Dim UGQNHSGCI As Long
GCUGQNHSI = HSIGCUGQN(vbNullString, UUUUUSICG)
If (GCUGQNHSI = 0) Then
End
Exit Function
End If
UGQNHSIGC GCUGQNHSI, UGQNHSICG
UGQNHSGCI = GQNHSIGCU(UUUUUGGUN, False, UGQNHSICG)
If (UGQNHSGCI = 0) Then
Exit Function
End If
QNHSIGCUG UGQNHSGCI, GGGNHSICG, QQQNHSICG, 1, 0&
NHSIGCUGQ HHHHUHSHN
End Function
Public Function CGQNHSIGU(UUUUUSICG As String, GGGNHSICG As Long, NNNNHSICG As Byte) 'ReadAByte
Dim GCUGQNHSI As Long
Dim UGQNHSICG As Long
Dim UGQNHSGCI As Long
GCUGQNHSI = HSIGCUGQN(vbNullString, UUUUUSICG)
If (GCUGQNHSI = 0) Then
End
Exit Function
End If
UGQNHSIGC GCUGQNHSI, UGQNHSICG
UGQNHSGCI = GQNHSIGCU(UUUUUGGUN, False, UGQNHSICG)
If (UGQNHSGCI = 0) Then
Exit Function
End If
IGCUGQNHS UGQNHSGCI, GGGNHSICG, NNNNHSICG, 1, 0&
NHSIGCUGQ HHHHUHSHN
End Function
And there you have it. You're now invisible. Still risk bans though. Use a bypass.
Use the thanks button

CREDITS TO SCRUFFY69