[VB|Source] Anti-Emulator

[Bozok]

Ich habe mir die Delphi Sektion auf HH angeschaut und bin auf einen "Anti-Emulator-Code" von chaincoder gestoßen! Nun habe ich es auf VB übersetzt damit auch VB Coder sich das zu nutze machen können. Mit dem Code könnt ihr KAV/FPROT und weiter bypassen!

'------------------------------------------------------------------
'Name: Anti-Emulator
'Coder: ChainCoder / translated by Slayer616
'Usage: If AntiEmulator = True Then End
'Give Credits if you use this code!
'------------------------------------------------------------------
Private Declare Sub Sleep Lib "kernel32" (ByVal lngMilliseconds As Long)
Private Declare Function GetTickCount Lib "kernel32" () As Long
Public Function AntiEmulator() As Boolean
Dim TimeNow As Long
Dim TimeAfterSleep As Long
TimeNow = GetTickCount
Sleep 500
TimeAfterSleep = GetTickCount
If TimeAfterSleep - TimeNow < 500 Then
AntiEmulator = True
Else
AntiEmulator = False
End If
End Function

[sp33dwalker]

du kannst delphi? o.O

[Bozok]

Auch... Aber es ist keine Kunst das zu übersetzen