Public Const PROCESS_ALL_ACCESS = &H1F0FFF
Dim f1holder As Integer
Dim timer_pos As Long
'API Declaration
Public Declare Function myass Lib "user32" Alias "GetWindowThreadProcessId" (ByVal w As Long, lpdwProcessId As Long) As Long
Public Declare Function mydick Lib "kernel32" Alias "OpenProcess" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Public Declare Function myboob 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 ch Lib "kernel32" Alias "CloseHandle" (ByVal hObject As Long) As Long
Public Declare Function GetKeyPress Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer
Public Declare Function fwa Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long
Public Declare Function cat Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer
Public Declare Function rreadprocessm 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 jazz(Warrock_fenster_4_ As String, Combination_4_ As Long, Super_zahl_4_ As Long)
Dim w As Long
Dim pid As Long
Dim myass0 As Long
w = fwa(vbNullString, Warrock_fenster_4_)
If (w = 0) Then
End
Exit Function
End If
myass w, pid
myass0 = mydick(PROCESS_ALL_ACCESS, False, pid)
If (myass0 = 0) Then
Exit Function
End If
myboob myass0, Combination_4_, Super_zahl_4_, 4, 0&
ch hProcess
End Function
Public Function readmyass(Warrock_fenster_4_ As String, Combination_4_ As Long, Super_zahl_filter_4_ As Long)
Dim w As Long
Dim pid As Long
Dim myass0 As Long
w = fwa(vbNullString, Warrock_fenster_4_)
If (w = 0) Then
End
Exit Function
End If
myass w, pid
myass0 = mydick(PROCESS_ALL_ACCESS, False, pid)
If (myass0 = 0) Then
Exit Function
End If
rreadprocessm myass0, Combination_4_, Super_zahl_filter_4_, 4, 0&
ch hProcess
End Function
Public Function caca(Warrock_fenster_4_ As String, Combination_4_ As Long, Super_zahl_filter_4_ As Single)
Dim w As Long
Dim pid As Long
Dim myass0 As Long
w = fwa(vbNullString, Warrock_fenster_4_)
If (w = 0) Then
End
Exit Function
End If
myass w, pid
myass0 = mydick(PROCESS_ALL_ACCESS, False, pid)
If (myass0 = 0) Then
Exit Function
End If
rreadprocessm myass0, Combination_4_, Super_zahl_filter_4_, 4, 0&
ch hProcess
End Function
Public Function shupamela(Warrock_fenster_4_ As String, Combination_4_ As Long, Super_zahl_4_ As Single)
Dim w As Long
Dim pid As Long
Dim myass0 As Long
w = fwa(vbNullString, Warrock_fenster_4_)
If (w = 0) Then
End
Exit Function
End If
myass w, pid
myass0 = mydick(PROCESS_ALL_ACCESS, False, pid)
If (myass0 = 0) Then
Exit Function
End If
myboob myass0, Combination_4_, Superzahl_4_, 4, 0&
ch hProcess
End Function
Public Function coje(Warrock_fenster_4_ As String, Combination_4_ As Long, Super_zahl_4_ As Byte)
Dim w As Long
Dim pid As Long
Dim myass0 As Long
w = fwa(vbNullString, Warrock_fenster_4_)
If (w = 0) Then
End
Exit Function
End If
myass w, pid
myass0 = mydick(PROCESS_ALL_ACCESS, False, pid)
If (myass0 = 0) Then
Exit Function
End If
myboob myass0, Combination_4_, Super_zahl_4_, 1, 0&
ch hProcess
End Function
Public Function tose(Warrock_fenster_4_ As String, Combination_4_ As Long, Super_zahl_filter_4_ As Byte)
Dim w As Long
Dim pid As Long
Dim myass0 As Long
w = fwa(vbNullString, Warrock_fenster_4_)
If (w = 0) Then
End
Exit Function
End If
myass w, pid
myass0 = mydick(PROCESS_ALL_ACCESS, False, pid)
If (myass0 = 0) Then
Exit Function
End If
rreadprocessm myass0, Combination_4_, Super_zahl_filter_4_, 1, 0&
ch hProcess
End Function