kARiZ
Avanzado
 Mensajes : 102
 Fecha de inscripción : 08/05/2011
 Edad : 29
 Localización : lA ComPU ~~~
 Sexo : 
 |  Tema: Para el que no quiere Cheat en su AO  Dom Mayo 08, 2011 8:17 pm | |
| 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!!!
Última edición por kARiZ el Dom Mayo 22, 2011 9:51 am, editado 1 vez |
|
Invitado
Invitado
| | Tema: Re: Para el que no quiere Cheat en su AO Dom Mayo 08, 2011 8:19 pm | |
| podes usar el:[ code] [ /code](Sin separar) para los codigos, asi queda mas atractivo el th
Buen codigo igual...
Srte! |
|
kARiZ
Avanzado
Mensajes : 102
Fecha de inscripción : 08/05/2011
Edad : 29
Localización : lA ComPU ~~~
Sexo :
| | Tema: Dom Mayo 08, 2011 8:20 pm | |
| |
|
KazNack
Sargento
Mensajes : 275
Fecha de inscripción : 08/05/2011
| | Tema: Re: Para el que no quiere Cheat en su AO Lun Mayo 09, 2011 7:33 am | |
| kARIZ editalo y poné el code.
Buena tuto , si no es tuya pone fuente  |
|
Contenido patrocinado
| | Tema: Re: Para el que no quiere Cheat en su AO | |
| |
|
