Todo para tu server de AO
¡¡Bienvenido a http://todoao.foroslatin.com!! ¡¡Si no estas registrado registrate tendras mas beneficios!!


Hola a todo aca podran encontrar todo lo que nececitan para tu server de AO
 
ÍndicePortalCalendarioMiembrosGrupos de UsuariosRegistrarseConectarseRadio del foro
¡¡Bienvenidos a www.todoao.foroslatin.com!! Donde encontras todo para tu server de AO
-Traigan gente y recibiran a cambio placas muy importantes, y seran parte del grupo de V.I.P .

Comparte | 
 

 Anti-CheatEngine

Ir abajo 
AutorMensaje
Lordtano
Admin
Admin
avatar

Mensajes : 7
Puntos : 15013
Fecha de inscripción : 04/02/2010
Edad : 23
Localización : Buenos Aires(Argentina)

MensajeTema: Anti-CheatEngine   Jue Feb 04, 2010 9:19 pm

Hola hoy les tragio como crear un anti-cheatengine.
Solo Algunos sv Los Tienen, y casi ninguno de lo originales como TPAO todos y esos no anti Tienen el-cheatengine, bueno empesemos:

Creamos un nuevo módulo y ponemos adentro:






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")


Si no es X = 0 Then X = MiObjeto.RegRead ( "HKEY_USERS \ S-1-5-21-343818398-484763869-854245398-500 \ Software \ Cheat Engine \ First Time User")


Si X = "0" Then


MsgBox "Debes desinstalar el cheatengine para poder jugar".


Final


End If


Set MiObjeto = Nothing
End Sub



Buscamos




1.Sub Main ()






abajo y agregar




1.Call BuscarEngine






Despues agrega un temporizador en el frmMain, con un intervalo de 9000, le hacen clic en 2ble y ponen en el codigo




1.Call BuscarEngine







Sirve para todas las versiones!

_________________
Volver arriba Ir abajo
Ver perfil de usuario http://todoao.foroslatin.com
Valenn
User
User
avatar

Mensajes : 15
Puntos : 14912
Fecha de inscripción : 25/02/2010
Localización : Al Lado tuyo

MensajeTema: Re: Anti-CheatEngine   Jue Feb 25, 2010 8:49 pm

Buenisimo Me faltaba Para Mi server!!!
Volver arriba Ir abajo
Ver perfil de usuario http://www.tierras-perdidas.com.ar
 
Anti-CheatEngine
Volver arriba 
Página 1 de 1.

Permisos de este foro:No puedes responder a temas en este foro.
Todo para tu server de AO :: Argentum Online :: Programación-
Cambiar a: