Coder: ChainCoder(Delphi) > translated by Slayer616(vb6) > Translated by Ixeman(vb.net)
Source-Code:
Code:
'------------------------------------------------------------------
'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
MfG