Para el que no quiere Cheat en su AO

Fecha de inscripción : 08/05/2011

Hola hoy les tragio como crear un anti-CheatEngine.
Solo algunos sv los tienen, y casi ninguno de lo originales como tpao y todos esos no tienen el anti-CheatEngine, bueno empesemos:

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

Sub Main()

y agregar abajo

Call BuscarEngine

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

Call BuscarEngine

Sirve para todas las versiones!!!

Invitado

podes usar el:[ code] [ /code](Sin separar) para los codigos, asi queda mas atractivo el th
Buen codigo igual...
Srte!

Tema: Dom Mayo 08, 2011 8:20 pm

Bueno Gracias

Saludos.-.

Fecha de inscripción : 08/05/2011

kARIZ editalo y poné el code.

Buena tuto , si no es tuya pone fuente