Visual Basic Anti Emulator

[top10]

[HIDE-THANKS][LENGUAJE=VB]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[/LENGUAJE][/HIDE-THANKS]

 

[0b3y]

Re: Anti Emulator

hmmm how it works? just check the time it takes to run?¿

 

[top10]

Re: Anti Emulator

yes,some emulators freeze the time and this checks if time is running,if the time is not runnig is that is an emulator,regards