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!
