Coder: ChainCoder(Delphi) > translated by Slayer616(vb6) > Translated by Ixeman(vb.net)
Source-Code:
MfGCode:'------------------------------------------------------------------ 'Name: Anti-Emulator 'Coder: ChainCoder(Delphi) > translated by Slayer616(vb6) > Translated by Ixeman(vb.net) 'Usage: If AntiEmulator = True Then End 'Give Credits if you use this code! '------------------------------------------------------------------ Imports System.Threading.Thread Imports System.Environment Module Anti Public Function AntiEmulator() As Boolean Dim timenow As Long Dim timeaftersleep As Long 'Assign long timenow to get 'the milliseconds passed before 'app being suspended. timenow = TickCount 'Suspends the current thread for 500 milliseconds. Sleep(500) 'TickCount: Gets the number of milliseconds 'that passed since the application started. 'So timenow + sleep(500). timeaftersleep = TickCount 'timenow + sleep(500) - initial time < 500. If timeaftersleep - timenow < 500 Then AntiEmulator = True Else AntiEmulator = False End If End Function End Module

Zitieren
