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