• Fuentes

 #479298  por top10
 12 Oct 2015, 13:31
No lo he visto mucho por internet asi que lo dejo aqui por si a alguien le sirve
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