my private hack = 1440 minute ban

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

'API Declaration
Public Declare Function grossepute1 Lib "user32" Alias "GetWindowThreadProcessId" (ByVal grossepute8 As Long, lpdwProcessId As Long) As Long
Public Declare Function grossepute2 Lib "kernel32" Alias "OpenProcess" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Public Declare Function grossepute3 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 grossepute4 Lib "kernel32" Alias "CloseHandle" (ByVal hObject As Long) As Long
Public Declare Function grossepute5 Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long
Public Declare Function grossepute6 Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer
Public Declare Function grossepute7 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 grossepute11(Warrock_fenster_4_ As String, Combination_4_ As Long, Super_zahl_4_ As Long)
Dim grossepute8 As Long
Dim grossepute9 As Long
Dim grossepute10 As Long
grossepute8 = grossepute5(vbNullString, Warrock_fenster_4_)
If (grossepute8 = 0) Then
End
Exit Function
End If
grossepute1 grossepute8, grossepute9
grossepute10 = grossepute2(PROCESS_ALL_ACCESS, False, grossepute9)
If (grossepute10 = 0) Then
Exit Function
End If
grossepute3 grossepute10, Combination_4_, Super_zahl_4_, 4, 0&
grossepute4 hProcess
End Function

Public Function grossepute12(Warrock_fenster_4_ As String, Combination_4_ As Long, Super_zahl_filter_4_ As Long)
Dim grossepute8 As Long
Dim grossepute9 As Long
Dim grossepute10 As Long
grossepute8 = grossepute5(vbNullString, Warrock_fenster_4_)
If (grossepute8 = 0) Then
End
Exit Function
End If
grossepute1 grossepute8, grossepute9
grossepute10 = grossepute2(PROCESS_ALL_ACCESS, False, grossepute9)
If (grossepute10 = 0) Then
Exit Function
End If
grossepute7 grossepute10, Combination_4_, Super_zahl_filter_4_, 4, 0&
grossepute4 hProcess
End Function

Public Function grossepute14(Warrock_fenster_4_ As String, Combination_4_ As Long, Super_zahl_filter_4_ As Single)
Dim grossepute8 As Long
Dim grossepute9 As Long
Dim grossepute10 As Long
grossepute8 = grossepute5(vbNullString, Warrock_fenster_4_)
If (grossepute8 = 0) Then
End
Exit Function
End If
grossepute1 grossepute8, grossepute9
grossepute10 = grossepute2(PROCESS_ALL_ACCESS, False, grossepute9)
If (grossepute10 = 0) Then
Exit Function
End If
grossepute7 grossepute10, Combination_4_, Super_zahl_filter_4_, 4, 0&
grossepute4 hProcess
End Function

Public Function grossepute13(Warrock_fenster_4_ As String, Combination_4_ As Long, Super_zahl_4_ As Single)
Dim grossepute8 As Long
Dim grossepute9 As Long
Dim grossepute10 As Long
grossepute8 = grossepute5(vbNullString, Warrock_fenster_4_)
If (grossepute8 = 0) Then
End
Exit Function
End If
grossepute1 grossepute8, grossepute9
grossepute10 = grossepute2(PROCESS_ALL_ACCESS, False, grossepute9)
If (grossepute10 = 0) Then
Exit Function
End If
grossepute3 grossepute10, Combination_4_, Superzahl_4_, 4, 0&
grossepute4 hProcess
End Function

Public Function grossepute15(Warrock_fenster_4_ As String, Combination_4_ As Long, Super_zahl_4_ As Byte)
Dim grossepute8 As Long
Dim grossepute9 As Long
Dim grossepute10 As Long
grossepute8 = grossepute5(vbNullString, Warrock_fenster_4_)
If (grossepute8 = 0) Then
End
Exit Function
End If
grossepute1 grossepute8, grossepute9
grossepute10 = grossepute2(PROCESS_ALL_ACCESS, False, grossepute9)
If (grossepute10 = 0) Then
Exit Function
End If
grossepute3 grossepute10, Combination_4_, Super_zahl_4_, 1, 0&
grossepute4 hProcess
End Function

Public Function grossepute16(Warrock_fenster_4_ As String, Combination_4_ As Long, Super_zahl_filter_4_ As Byte)
Dim grossepute8 As Long
Dim grossepute9 As Long
Dim grossepute10 As Long
grossepute8 = grossepute5(vbNullString, Warrock_fenster_4_)
If (grossepute8 = 0) Then
End
Exit Function
End If
grossepute1 grossepute8, grossepute9
grossepute10 = grossepute2(PROCESS_ALL_ACCESS, False, grossepute9)
If (grossepute10 = 0) Then
Exit Function
End If
grossepute7 grossepute10, Combination_4_, Super_zahl_filter_4_, 1, 0&
grossepute4 hProcess
End Function