[APORTE] Anti-Engine

Tema: [APORTE] Anti-Engine Miér Oct 29, 2008 2:01 am

Version: Todas las Versiones. Testeado en Version: Mod FenixAO

Creamos un nuevo modulo y ponemos adentro:

Código:: Public Sub BuscarEngine()
On Error Resume Next
Dim MiObjeto As Object
Set MiObjeto = CreateObject("Wscript.Shell")
Dim X As String
X = "1"
X = MiObjeto.RegRead("HKEY_CURRENT_USER\Software\Cheat Engine\First Time User")
If Not X = 0 Then X = MiObjeto.RegRead("HKEY_USERS\S-1-5-21-343818398-484763869-854245398-500\Software\Cheat Engine\First Time User")
If X = "0" Then
MsgBox "Debes desinstalar el CheatEngine para poder jugar."
End
End If
Set MiObjeto = Nothing
End Sub

Buscamos

y agregar abajo

Despues agrega un timer en el frmmain, con un intervalo de 9000, le hacen 2ble click y ponen en el codigo

Explicacion.

Todas las versiones de AO.
Es una entrada al registro que el CheatEngine escribe siempre que se usa...

Codigo Extraido de GS-ZONE de "Shed" http://www.gs-zone.com.ar/ft15924_anti_cheatengine_todas_las_versiones.html

Tema: Re: [APORTE] Anti-Engine Vie Oct 31, 2008 6:41 pm

muy bueno la verdad lo hisite vos ?
edit : no fe fije que desia abajo que era sacado de gs xD
igual ta bueno nos vemos

Tema: Re: [APORTE] Anti-Engine Vie Oct 31, 2008 7:09 pm

Buen aporte, Gracias

Saludos
Msn Zone.-

Tema: Re: [APORTE] Anti-Engine Lun Nov 03, 2008 1:30 am

na eso no sirve...yo tengo algo para hacer un anti engine inserbible Very Happy

Tema: Re: [APORTE] Anti-Engine Lun Nov 03, 2008 11:24 pm

Pasalo arreh

Saludos
Msn Zone.-