😠 1440 bans [GAMEHACK] undetected trainer

again me..

all my hack with undetected module get me banned after 1 hour playing ( when its not only 5 minute lol ) ( 1440 bans [GAMEHACK] )

i tryed with themida... banned about 5 minute play

visual basic realy suck like that ?...

i will try in c++ with tut like i started for vb trainer lol

i make module with undetected module maker by ZeaS is it the probleme ?

here one of my detected module created with undetected module maker for example :

Code:

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

is it the " (vbNullString, Warrock_fenster_4_) " or " (Warrock_fenster_4_ As String, Combination_4_ " the probleme ??

hum.. in my word , What The Fucking Fuck XD

thx

my "test" module lol yeah this strings (warrock_fenster...) are detected, too i released an undetected module maker 2 that one change 4 more detected strings

i'll pm you where to find it

hm.. so that's why my public hacks got detected...
So if I change those Combina...Warrock_fens... strings it'll be undetected??

BTW, Can you pm it to me too plz??