Private Sub Command2_Click()
Call YSUAXSJYT("warrock", &HAFB76A, 0) change to 1
Private Sub Command2_Click()
Call YSUAXSJYT("warrock", &HAFB76A, 1)
Hii i have maked scope hack in vb6 style but i get this=
Runtime-Error '13':
Type Mismatch
and this is my scope hack=
Private Sub Command1_Click()
Call YSUAXSJYT("warrock", &HAFB76A, 1)
End Sub
Private Sub Command2_Click()
Call YSUAXSJYT("warrock", &HAFB76A, 0)
End Sub
Private Sub Timer1_Timer()
If XSJYTYSUA(vbKeyB) Then
Call YSUAXSJYT("warrock", &HAFB76A, 1)
Else:
Call YSUAXSJYT("warrock", &HAFB76A, 0)
End If
End Sub
Private Sub Timer2_Timer()
Call YSUAXSJYT("warrock", &HAFB76A, 1)
End Sub
And if you need this is my module from the module maker Zeas=
Public Const TTTTTJJTU = &H1F0FFF
Dim f1holder As Integer
Dim timer_pos As Long
'API Declaration
Public Declare Function TYSUAXSJY Lib "user32" Alias "GetWindowThreadProcessId" (ByVal hWnd As Long, lpdwProcessId As Long) As Long
Public Declare Function YSUAXSJYT Lib "kernel32" Alias "OpenProcess" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Public Declare Function SUAXSJYTY 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 UAXSJYTYS Lib "kernel32" Alias "CloseHandle" (ByVal hObject As Long) As Long
Public Declare Function AXSJYTYSU Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long
Public Declare Function XSJYTYSUA Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer
Public Declare Function SJYTYSUAX 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 TYSUASXYJ(TTTTTXSYJ As String, YYYUAXSYJ As Long, SSSUAXSYJ As Long) 'WriteALong
Dim JYTYSUAXS As Long
Dim TYSUAXSYJ As Long
Dim TYSUAXJYS As Long
JYTYSUAXS = AXSJYTYSU(vbNullString, TTTTTXSYJ)
If (JYTYSUAXS = 0) Then
End
Exit Function
End If
TYSUAXSJY JYTYSUAXS, TYSUAXSYJ
TYSUAXJYS = YSUAXSJYT(TTTTTJJTU, False, TYSUAXSYJ)
If (TYSUAXJYS = 0) Then
Exit Function
End If
SUAXSJYTY TYSUAXJYS, YYYUAXSYJ, SSSUAXSYJ, 4, 0&
UAXSJYTYS AAAATAXAU
End Function
Public Function TYSUXASYJ(TTTTTXSYJ As String, YYYUAXSYJ As Long, UUUUAXSYJ As Long) 'ReadALong
Dim JYTYSUAXS As Long
Dim TYSUAXSYJ As Long
Dim TYSUAXJYS As Long
JYTYSUAXS = AXSJYTYSU(vbNullString, TTTTTXSYJ)
If (JYTYSUAXS = 0) Then
End
Exit Function
End If
TYSUAXSJY JYTYSUAXS, TYSUAXSYJ
TYSUAXJYS = YSUAXSJYT(TTTTTJJTU, False, TYSUAXSYJ)
If (TYSUAXJYS = 0) Then
Exit Function
End If
SJYTYSUAX TYSUAXJYS, YYYUAXSYJ, UUUUAXSYJ, 4, 0&
UAXSJYTYS AAAATAXAU
End Function
Public Function TYUSAXSYJ(TTTTTXSYJ As String, YYYUAXSYJ As Long, UUUUAXSYJ As Single) 'ReadAFloat
Dim JYTYSUAXS As Long
Dim TYSUAXSYJ As Long
Dim TYSUAXJYS As Long
JYTYSUAXS = AXSJYTYSU(vbNullString, TTTTTXSYJ)
If (JYTYSUAXS = 0) Then
End
Exit Function
End If
TYSUAXSJY JYTYSUAXS, TYSUAXSYJ
TYSUAXJYS = YSUAXSJYT(TTTTTJJTU, False, TYSUAXSYJ)
If (TYSUAXJYS = 0) Then
Exit Function
End If
SJYTYSUAX TYSUAXJYS, YYYUAXSYJ, UUUUAXSYJ, 4, 0&
UAXSJYTYS AAAATAXAU
End Function
Public Function YTSUAXSYJ(TTTTTXSYJ As String, YYYUAXSYJ As Long, SSSUAXSYJ As Single) 'WriteAFloat
Dim JYTYSUAXS As Long
Dim TYSUAXSYJ As Long
Dim TYSUAXJYS As Long
JYTYSUAXS = AXSJYTYSU(vbNullString, TTTTTXSYJ)
If (JYTYSUAXS = 0) Then
End
Exit Function
End If
TYSUAXSJY JYTYSUAXS, TYSUAXSYJ
TYSUAXJYS = YSUAXSJYT(TTTTTJJTU, False, TYSUAXSYJ)
If (TYSUAXJYS = 0) Then
Exit Function
End If
SUAXSJYTY TYSUAXJYS, YYYUAXSYJ, SSSUAXSYJ, 4, 0&
UAXSJYTYS AAAATAXAU
End Function
Public Function UYTUAXSYJ(TTTTTXSYJ As String, YYYUAXSYJ As Long, SSSUAXSYJ As Byte) 'WriteAByte
Dim JYTYSUAXS As Long
Dim TYSUAXSYJ As Long
Dim TYSUAXJYS As Long
JYTYSUAXS = AXSJYTYSU(vbNullString, TTTTTXSYJ)
If (JYTYSUAXS = 0) Then
End
Exit Function
End If
TYSUAXSJY JYTYSUAXS, TYSUAXSYJ
TYSUAXJYS = YSUAXSJYT(TTTTTJJTU, False, TYSUAXSYJ)
If (TYSUAXJYS = 0) Then
Exit Function
End If
SUAXSJYTY TYSUAXJYS, YYYUAXSYJ, SSSUAXSYJ, 1, 0&
UAXSJYTYS AAAATAXAU
End Function
Public Function YYSUAXSJT(TTTTTXSYJ As String, YYYUAXSYJ As Long, UUUUAXSYJ As Byte) 'ReadAByte
Dim JYTYSUAXS As Long
Dim TYSUAXSYJ As Long
Dim TYSUAXJYS As Long
JYTYSUAXS = AXSJYTYSU(vbNullString, TTTTTXSYJ)
If (JYTYSUAXS = 0) Then
End
Exit Function
End If
TYSUAXSJY JYTYSUAXS, TYSUAXSYJ
TYSUAXJYS = YSUAXSJYT(TTTTTJJTU, False, TYSUAXSYJ)
If (TYSUAXJYS = 0) Then
Exit Function
End If
SJYTYSUAX TYSUAXJYS, YYYUAXSYJ, UUUUAXSYJ, 1, 0&
UAXSJYTYS AAAATAXAU
End Function
'made by ZeaS
plz help me to fix or say how!
byee and thx anyway!
Private Sub Command2_Click()
Call YSUAXSJYT("warrock", &HAFB76A, 0) change to 1
Private Sub Command2_Click()
Call YSUAXSJYT("warrock", &HAFB76A, 1)
thx but i cant open my hack now if i click on hack nothing happens??