¿Quieres reaccionar a este mensaje? Regístrate en el foro con unos pocos clics o inicia sesión para continuar.



 
ÍndiceIndiceÚltimas imágenesBuscarRegistrarseConectarseReglamento
¿Quién está en línea?
En total hay 20 usuarios en línea: 0 Registrados, 0 Ocultos y 20 Invitados

Ninguno
[ Ver toda la lista ]

El record de usuarios en línea fue de 77 durante el Dom Oct 27, 2024 11:28 am
Mejores posteadores
Rango
AntiCheats Style BlosamAO 1.0 Vote_lcapAntiCheats Style BlosamAO 1.0 Voting_barAntiCheats Style BlosamAO 1.0 Vote_rcap 
Habauc
AntiCheats Style BlosamAO 1.0 Vote_lcapAntiCheats Style BlosamAO 1.0 Voting_barAntiCheats Style BlosamAO 1.0 Vote_rcap 
Trogclodita
AntiCheats Style BlosamAO 1.0 Vote_lcapAntiCheats Style BlosamAO 1.0 Voting_barAntiCheats Style BlosamAO 1.0 Vote_rcap 
WhoTeR
AntiCheats Style BlosamAO 1.0 Vote_lcapAntiCheats Style BlosamAO 1.0 Voting_barAntiCheats Style BlosamAO 1.0 Vote_rcap 
Tomm-
AntiCheats Style BlosamAO 1.0 Vote_lcapAntiCheats Style BlosamAO 1.0 Voting_barAntiCheats Style BlosamAO 1.0 Vote_rcap 
ZankuR
AntiCheats Style BlosamAO 1.0 Vote_lcapAntiCheats Style BlosamAO 1.0 Voting_barAntiCheats Style BlosamAO 1.0 Vote_rcap 
GM-PekeMixz
AntiCheats Style BlosamAO 1.0 Vote_lcapAntiCheats Style BlosamAO 1.0 Voting_barAntiCheats Style BlosamAO 1.0 Vote_rcap 
LuciMoyo
AntiCheats Style BlosamAO 1.0 Vote_lcapAntiCheats Style BlosamAO 1.0 Voting_barAntiCheats Style BlosamAO 1.0 Vote_rcap 
MwM
AntiCheats Style BlosamAO 1.0 Vote_lcapAntiCheats Style BlosamAO 1.0 Voting_barAntiCheats Style BlosamAO 1.0 Vote_rcap 
Diclut s2 Lalaa♥
AntiCheats Style BlosamAO 1.0 Vote_lcapAntiCheats Style BlosamAO 1.0 Voting_barAntiCheats Style BlosamAO 1.0 Vote_rcap 
Estadísticas
Tenemos 98 miembros registrados
El último usuario registrado es Stephelinmu

Nuestros miembros han publicado un total de 1289 mensajes en 264 argumentos.

 :: Argentum Online :: Talleres Taller Argentum :: Programación
 

 AntiCheats Style BlosamAO 1.0

Ir abajo 
+3
Trogclodita
Rango
KiZAME
7 participantes
AutorMensaje
KiZAME
Pre-Avanzado
Pre-Avanzado
KiZAME


Cantidad de envíos : 38
Fecha de inscripción : 18/07/2013

AntiCheats Style BlosamAO 1.0 Empty
MensajeTema: AntiCheats Style BlosamAO 1.0   AntiCheats Style BlosamAO 1.0 Icon_minitimeJue Jul 18, 2013 5:16 pm
Hola este es un anticheat parecido al blosam 1.0 que decia posible uso de cheat? este nomas es con form.

Al ser con form no te abre el posible uso de cheat sino que te abre el form con labeles y te dice POSIBLE USO DE CHEAT,CIERRE EL CHEAT, y pueden poner lo que quieren por ej anticheats waskidao v2.0 posible uso de cheat cierrelo por favor para seguir jugando etc.


Comenzamos:

creamos un timer en frmmain
nombre:antiexternos.
interval: 500
enabled:true.

doble click y adentro ponemos,les dejo la lista actualizada de cheats

Código:
 
Private Sub Antiexternos_Timer()
 
If FindWindow(vbNullString, UCase$("MACRO FOWL")) Then
    Call CheatExterno("MACRO FOWL")
 ElseIf FindWindow(vbNullString, UCase$("WPE PRO")) Then
   Call CheatExterno("WPE PRO")
ElseIf FindWindow(vbNullString, UCase$("Macro B C")) Then
   Call CheatExterno("Macro B C")
ElseIf FindWindow(vbNullString, UCase$("Macro BC")) Then
   Call CheatExterno("Macro BC")
ElseIf FindWindow(vbNullString, UCase$("MINI MACRO BY FOWL WWW.XTREME-ZONE.NET")) Then
    Call CheatExterno("MINI MACRO BY FOWL WWW.XTREME-ZONE.NET")
ElseIf FindWindow(vbNullString, UCase$("MACROSARAZA")) Then
    Call CheatExterno("MACROSARAZA")
ElseIf FindWindow(vbNullString, UCase$("Macroncmurd")) Then
    Call CheatExterno("Macroncmurd")
ElseIf FindWindow(vbNullString, UCase$("AUTOTRAINING")) Then
    Call CheatExterno("AUTOTRAINING")
ElseIf FindWindow(vbNullString, UCase$("0RK4M Version 1.5")) Then
    Call CheatExterno("0RK4M Version 1.5")
ElseIf FindWindow(vbNullString, UCase$("cmd")) Then
    Call CheatExterno("cmd")
ElseIf FindWindow(vbNullString, UCase$("X-Z MULTIMACRO VERSION II BY THEGABYX WWW.XTREME-ZONE.NET")) Then
    Call CheatExterno("X-Z MULTIMACRO VERSION II BY THEGABYX WWW.XTREME-ZONE.NET")
ElseIf FindWindow(vbNullString, UCase$("CHEAT ENGINE 5.1.1")) Then
    Call CheatExterno("CHEAT ENGINE 5.1.1")
ElseIf FindWindow(vbNullString, UCase$("CHEAT ENGINE 5.0")) Then
    Call CheatExterno("CHEAT ENGINE 5.0")
ElseIf FindWindow(vbNullString, UCase$("CHEAT ENGINE 6.0")) Then
    Call CheatExterno("CHEAT ENGINE 6.0")
ElseIf FindWindow(vbNullString, UCase$("CHEAT ENGINE 6.1")) Then
    Call CheatExterno("CHEAT ENGINE 6.1")
ElseIf FindWindow(vbNullString, UCase$("CHEAT ENGINE 5.4")) Then
    Call CheatExterno("CHEAT ENGINE 5.4")
ElseIf FindWindow(vbNullString, UCase$("CHEAT ENGINE 5.5")) Then
    Call CheatExterno("CHEAT ENGINE 5.5")
ElseIf FindWindow(vbNullString, UCase$("CHEAT ENGINE 5.6")) Then
    Call CheatExterno("CHEAT ENGINE 5.6")
ElseIf FindWindow(vbNullString, UCase$("CHEAT ENGINE 5.7")) Then
    Call CheatExterno("CHEAT ENGINE 5.7")
ElseIf FindWindow(vbNullString, UCase$("CHEAT ENGINE 5.9")) Then
    Call CheatExterno("CHEAT ENGINE 5.9")
ElseIf FindWindow(vbNullString, UCase$("CHEAT ENGINE 5.8")) Then
    Call CheatExterno("CHEAT ENGINE 5.8")
ElseIf FindWindow(vbNullString, UCase$("Pts")) Then
    Call CheatExterno("Auto Pots")
ElseIf FindWindow(vbNullString, UCase$("CHEAT ENGINE 5.2")) Then
    Call CheatExterno("CHEAT ENGINE 5.2")
ElseIf FindWindow(vbNullString, UCase$("SoLocoVo?")) Then
    Call CheatExterno("SOLOCOVO?")
ElseIf FindWindow(vbNullString, UCase$("-=[ANUBYS RADAR]=-")) Then
    Call CheatExterno("-=[ANUBYS RADAR]=-")
ElseIf FindWindow(vbNullString, UCase$("CRAZY SPEEDER 1.05")) Then
    Call CheatExterno("CRAZY SPEEDER 1.05")
ElseIf FindWindow(vbNullString, UCase$("SET !XSPEED.NET")) Then
    Call CheatExterno("SET !XSPEED.NET")
ElseIf FindWindow(vbNullString, UCase$("SPEEDERXP V1.80 - UNREGISTERED")) Then
    Call CheatExterno("SPEEDERXP V1.80 - UNREGISTERED")
ElseIf FindWindow(vbNullString, UCase$("CHEAT ENGINE 5.3")) Then
    Call CheatExterno("CHEAT ENGINE 5.3")
ElseIf FindWindow(vbNullString, UCase$("CHEAT ENGINE 5.1")) Then
    Call CheatExterno("CHEAT ENGINE 5.1")
ElseIf FindWindow(vbNullString, UCase$("A SPEEDER")) Then
    Call CheatExterno("A SPEEDER")
ElseIf FindWindow(vbNullString, UCase$("MEMO :P")) Then
    Call CheatExterno("MEMO :P")
ElseIf FindWindow(vbNullString, UCase$("ORK4M VERSION 1.5")) Then
    Call CheatExterno("ORK4M VERSION 1.5")
ElseIf FindWindow(vbNullString, UCase$("BY FEDEX")) Then
    Call CheatExterno("By Fedex")
ElseIf FindWindow(vbNullString, UCase$("!XSPEED.NET +4.59")) Then
    Call CheatExterno("!Xspeeder")
ElseIf FindWindow(vbNullString, UCase$("CAMBIA TITULOS DE CHEATS BY FEDEX")) Then
    Call CheatExterno("Cambia titulos")
ElseIf FindWindow(vbNullString, UCase$("NEWENG OCULTO")) Then
    Call CheatExterno("NEWENG OCULTO")
ElseIf FindWindow(vbNullString, UCase$("SERBIO ENGINE")) Then
    Call CheatExterno("SERBIO ENGINE")
ElseIf FindWindow(vbNullString, UCase$("REYMIX ENGINE 5.3 PUBLIC")) Then
    Call CheatExterno("REYMIX ENGINE 5.3 PUBLIC")
ElseIf FindWindow(vbNullString, UCase$("REY ENGINE 5.2")) Then
    Call CheatExterno("REY ENGINE 5.2")
ElseIf FindWindow(vbNullString, UCase$("AUTOCLICK - BY NIO_SHOOTER")) Then
    Call CheatExterno("AUTOCLICK - BY NIO_SHOOTER")
ElseIf FindWindow(vbNullString, UCase$("TONNER MINER!  [REG][SKLOV] 2.0")) Then
    Call CheatExterno("TONNER MINER!  [REG][SKLOV] 2.0")
ElseIf FindWindow(vbNullString, UCase$("Buffy The vamp Slayer")) Then
    Call CheatExterno("Buffy The vamp Slayer")
ElseIf FindWindow(vbNullString, UCase$("Blorb Slayer 1.12.552 (BETA)")) Then
    Call CheatExterno("Blorb Slayer 1.12.552 (BETA)")
ElseIf FindWindow(vbNullString, UCase$("PumaEngine3.0")) Then
    Call CheatExterno("PumaEngine3.0")
ElseIf FindWindow(vbNullString, UCase$("Vicious Engine 5.0")) Then
    Call CheatExterno("Vicious Engine 5.0")
ElseIf FindWindow(vbNullString, UCase$("AkumaEngine33")) Then
    Call CheatExterno("AkumaEngine33")
ElseIf FindWindow(vbNullString, UCase$("Spuc3ngine")) Then
    Call CheatExterno("Spuc3ngine")
ElseIf FindWindow(vbNullString, UCase$("Ultra Engine")) Then
    Call CheatExterno("Ultra Engine")
ElseIf FindWindow(vbNullString, UCase$("Engine")) Then
    Call CheatExterno("Engine")
ElseIf FindWindow(vbNullString, UCase$("Cheat Engine V5.6")) Then
    Call CheatExterno("Cheat Engine V5.6")
ElseIf FindWindow(vbNullString, UCase$("Cheat Engine V5.5")) Then
    Call CheatExterno("Cheat Engine V5.5")
ElseIf FindWindow(vbNullString, UCase$("Cheat Engine V4.4")) Then
    Call CheatExterno("Cheat Engine V4.4")
ElseIf FindWindow(vbNullString, UCase$("Cheat Engine V4.4 German Add-On")) Then
    Call CheatExterno("Cheat Engine V4.4 German Add-On")
ElseIf FindWindow(vbNullString, UCase$("Cheat Engine V4.3")) Then
    Call CheatExterno("Cheat Engine V4.3")
ElseIf FindWindow(vbNullString, UCase$("Cheat Engine V4.2")) Then
    Call CheatExterno("Cheat Engine V4.2")
ElseIf FindWindow(vbNullString, UCase$("Cheat Engine V4.1.1")) Then
    Call CheatExterno("Cheat Engine V4.1.1")
ElseIf FindWindow(vbNullString, UCase$("Cheat Engine V3.3")) Then
    Call CheatExterno("Cheat Engine V3.3")
ElseIf FindWindow(vbNullString, UCase$("Cheat Engine V3.2")) Then
    Call CheatExterno("Cheat Engine V3.2")
ElseIf FindWindow(vbNullString, UCase$("Cheat Engine V3.1")) Then
    Call CheatExterno("Cheat Engine V3.1")
ElseIf FindWindow(vbNullString, UCase$("Cheat Engine")) Then
    Call CheatExterno("Cheat Engine")
ElseIf FindWindow(vbNullString, UCase$("danza engine 5.2.150")) Then
    Call CheatExterno("danza engine 5.2.150")
ElseIf FindWindow(vbNullString, UCase$("zenx engine")) Then
    Call CheatExterno("zenx engine")
ElseIf FindWindow(vbNullString, UCase$("MACROMAKER")) Then
    Call CheatExterno("Macro Maker")
ElseIf FindWindow(vbNullString, UCase$("MACREOMAKER - EDIT MACRO")) Then
    Call CheatExterno("Macro Maker")
ElseIf FindWindow(vbNullString, UCase$("By Fedex")) Then
    Call CheatExterno("Macro Fedex")
ElseIf FindWindow(vbNullString, UCase$("Macro Mage 1.0")) Then
    Call CheatExterno("Macro Mage")
ElseIf FindWindow(vbNullString, UCase$("Auto* v0.4 (c) 2001 Pete Powa")) Then
    Call CheatExterno("Macro Fisher")
ElseIf FindWindow(vbNullString, UCase$("Kizsada")) Then
    Call CheatExterno("Macro K33")
ElseIf FindWindow(vbNullString, UCase$("Makro K33")) Then
    Call CheatExterno("Macro K33")
ElseIf FindWindow(vbNullString, UCase$("Super Saiyan")) Then
    Call CheatExterno("El Chit del Geri")
ElseIf FindWindow(vbNullString, UCase$("Makro-Piringulete")) Then
    Call CheatExterno("Piringulete")
ElseIf FindWindow(vbNullString, UCase$("Makro-Piringulete 2003")) Then
    Call CheatExterno("Piringulete 2003")
ElseIf FindWindow(vbNullString, UCase$("TUKY2005")) Then
    Call CheatExterno("Makro Tuky")
ElseIf FindWindow(vbNullString, UCase$("Volks")) Then
    Call CheatExterno("TURBINAS")
ElseIf FindWindow(vbNullString, UCase$("Turbinas")) Then
    Call CheatExterno("TURBINAS")
ElseIf FindWindow(vbNullString, UCase$("msn")) Then
    Call CheatExterno("msn")
ElseIf FindWindow(vbNullString, UCase$("Volks")) Then
    Call CheatExterno("TURBINAS")
ElseIf FindWindow(vbNullString, UCase$("MacroSaraza[BETA]")) Then
    Call CheatExterno("MacroSaraza[BETA]")
ElseIf FindWindow(vbNullString, UCase$("Shell_TrayWnd")) Then
    Call CheatExterno("Shell_TrayWnd")
ElseIf FindWindow(vbNullString, UCase$("mmen")) Then
    Call CheatExterno("Cheat")
ElseIf FindWindow(vbNullString, UCase$("heat Celtic AO By Fowl")) Then
    Call CheatExterno("Cheat Celtic AO By Fowl")
ElseIf FindWindow(vbNullString, UCase$("VB6")) Then
    Call CheatExterno("VB6")
ElseIf FindWindow(vbNullString, UCase$("Cheat_Celtic_AO_By_Fowl")) Then
    Call CheatExterno("Cheat_Celtic_AO_By_Fowl")
ElseIf FindWindow(vbNullString, UCase$("Auto Remo")) Then
    Call CheatExterno("Auto Remo")
ElseIf FindWindow(vbNullString, UCase$("Auto Remo")) Then
    Call CheatExterno("Auto Remo")
ElseIf FindWindow(vbNullString, UCase$("Auto Remo By Francohhh (www.neo-zone.activoforo.com)")) Then
    Call CheatExterno("Auto Remo By Francohhh (www.neo-zone.activoforo.com)")
ElseIf FindWindow(vbNullString, UCase$("Macro Configurable")) Then
    Call CheatExterno("Macro Configurable")
ElseIf FindWindow(vbNullString, UCase$("Mega Macro By Francohhh")) Then
    Call CheatExterno("Mega Macro By Francohhh")
ElseIf FindWindow(vbNullString, UCase$("MegaMacro By Francohhh (www.neo-zone.activoforo.com)")) Then
    Call CheatExterno("MegaMacro By Francohhh (www.neo-zone.activoforo.com)")
ElseIf FindWindow(vbNullString, UCase$("By FaKiTa!.-")) Then
    Call CheatExterno("By FaKiTa!.-")
ElseIf FindWindow(vbNullString, UCase$("Macro b53!")) Then
    Call CheatExterno("Macro b53!")
ElseIf FindWindow(vbNullString, UCase$("Borrar...")) Then
    Call CheatExterno("Borrar...")
ElseIf FindWindow(vbNullString, UCase$("Ares.exe")) Then
    Call CheatExterno("Ares.exe")
ElseIf FindWindow(vbNullString, UCase$("Crown Makro")) Then
    Call CheatExterno("Crown Makro")
ElseIf FindWindow(vbNullString, UCase$("AutoPots")) Then
    Call CheatExterno("AutoPots")
ElseIf FindWindow(vbNullString, UCase$("FaKiTa")) Then
    Call CheatExterno("AutoPots")
ElseIf FindWindow(vbNullString, UCase$("FaKiTa.-")) Then
    Call CheatExterno("AutoPots")
ElseIf FindWindow(vbNullString, UCase$("FaKiTa!.-")) Then
    Call CheatExterno("AutoPots")
ElseIf FindWindow(vbNullString, UCase$("msnmsgr")) Then
    Call CheatExterno("msnmsgr")
ElseIf FindWindow(vbNullString, UCase$("MacroSaraza1.3.3")) Then
    Call CheatExterno("MacroSaraza1.3.3")
ElseIf FindWindow(vbNullString, UCase$("MacroSaraza[BETA]")) Then
    Call CheatExterno("MacroSaraza[BETA]")
ElseIf FindWindow(vbNullString, UCase$("Macro-ilanchus")) Then
    Call CheatExterno("Macro-ilanchus")
ElseIf FindWindow(vbNullString, UCase$("MacroSaraza[BETA] ")) Then
    Call CheatExterno("MacroSaraza[BETA] ")
ElseIf FindWindow(vbNullString, UCase$("Autopotear")) Then
    Call CheatExterno("Autopotear")
ElseIf FindWindow(vbNullString, UCase$("MacroSaraza")) Then
    Call CheatExterno("MacroSaraza")
ElseIf FindWindow(vbNullString, UCase$("SpeederXP")) Then
    Call CheatExterno("SpeederXP")
ElseIf FindWindow(vbNullString, UCase$("MLEngine")) Then
    Call CheatExterno("MLEngine")
ElseIf FindWindow(vbNullString, UCase$("Makro-Piringulete")) Then
    Call CheatExterno("Makro-Piringulete")
ElseIf FindWindow(vbNullString, UCase$("MoonLight Engine 1129.1 by llvMoney A.K.A FaaF")) Then
    Call CheatExterno("MoonLight Engine 1129.1 by llvMoney A.K.A FaaF")
ElseIf FindWindow(vbNullString, UCase$("vb6")) Then
    Call CheatExterno("vb6")
ElseIf FindWindow(vbNullString, UCase$("VB6")) Then
    Call CheatExterno("VB6")
ElseIf FindWindow(vbNullString, UCase$("msmsgs")) Then
    Call CheatExterno("msmsgs")
ElseIf FindWindow(vbNullString, UCase$("Macro Magic")) Then
    Call CheatExterno("Macro Magic")
ElseIf FindWindow(vbNullString, UCase$("Iolo Macro Magic")) Then
    Call CheatExterno("Iolo Macro Magic")
ElseIf FindWindow(vbNullString, UCase$("AO Macro II 1.0.2")) Then
    Call CheatExterno("AO Macro II 1.0.2")
ElseIf FindWindow(vbNullString, UCase$("0rk4M")) Then
    Call CheatExterno("0rk4M")
ElseIf FindWindow(vbNullString, UCase$("AOFlechas")) Then
    Call CheatExterno("AOFlechas")
ElseIf FindWindow(vbNullString, UCase$("Auto remo By FaKiTa")) Then
    Call CheatExterno("Auto remo By FaKiTa")
ElseIf FindWindow(vbNullString, UCase$("AutoClick")) Then
    Call CheatExterno("AutoClick")
ElseIf FindWindow(vbNullString, UCase$("Borrar Cartel")) Then
    Call CheatExterno("Borrar Cartel")
ElseIf FindWindow(vbNullString, UCase$("Borrar Cartel 1.0 by BRASUkA!.-")) Then
    Call CheatExterno("Borrar Cartel 1.0 by BRASUkA!.-")
ElseIf FindWindow(vbNullString, UCase$("Cheat By The PePoH!")) Then
    Call CheatExterno("Cheat By The PePoH!")
ElseIf FindWindow(vbNullString, UCase$("Cheat By The PePoH!!!")) Then
    Call CheatExterno("Cheat By The PePoH!!!")
ElseIf FindWindow(vbNullString, UCase$("dddr")) Then
    Call CheatExterno("dddr")
ElseIf FindWindow(vbNullString, UCase$("Fedex")) Then
    Call CheatExterno("Fedex")
ElseIf FindWindow(vbNullString, UCase$("Flooder By FaKiTa")) Then
    Call CheatExterno("Flooder By FaKiTa")
ElseIf FindWindow(vbNullString, UCase$("Flooder")) Then
    Call CheatExterno("Flooder")
ElseIf FindWindow(vbNullString, UCase$("Full Cheat")) Then
    Call CheatExterno("Full Cheat")
ElseIf FindWindow(vbNullString, UCase$("Argentum-Pesca 0.2b Por Manchess")) Then
    Call CheatExterno("Argentum-Pesca 0.2b Por Manchess")
ElseIf FindWindow(vbNullString, UCase$("Macro_b53___By_Daaai")) Then
    Call CheatExterno("Macro_b53___By_Daaai")
ElseIf FindWindow(vbNullString, UCase$("MacroCrack")) Then
    Call CheatExterno("MacroCrack")
ElseIf FindWindow(vbNullString, UCase$("Macro-Resucitar")) Then
    Call CheatExterno("Macro-Resucitar")
ElseIf FindWindow(vbNullString, UCase$("Macro-Resucitar 1.0 | By Super Culd")) Then
    Call CheatExterno("Macro-Resucitar 1.0 | By Super Culd")
ElseIf FindWindow(vbNullString, UCase$("MakroK33")) Then
    Call CheatExterno("MakroK33")
ElseIf FindWindow(vbNullString, UCase$("Mega_Macro_By_Francohhh")) Then
    Call CheatExterno("Mega_Macro_By_Francohhh")
ElseIf FindWindow(vbNullString, UCase$("Contraseña")) Then
    Call CheatExterno("Contraseña")
ElseIf FindWindow(vbNullString, UCase$("MegaCheat")) Then
    Call CheatExterno("MegaCheat")
ElseIf FindWindow(vbNullString, UCase$("Eleji el cheat")) Then
    Call CheatExterno("Eleji el cheat")
ElseIf FindWindow(vbNullString, UCase$("Sacar letras hechiz By FaKiTa")) Then
    Call CheatExterno("Sacar letras hechiz By FaKiTa")
ElseIf FindWindow(vbNullString, UCase$("sh")) Then
    Call CheatExterno("sh")
ElseIf FindWindow(vbNullString, UCase$("Turbinas By Francohhh")) Then
    Call CheatExterno("Turbinas By Francohhh")
ElseIf FindWindow(vbNullString, UCase$("Auto Pots By Santeh")) Then
    Call CheatExterno("Auto Pots By Santeh")
ElseIf FindWindow(vbNullString, UCase$("ByAxeII")) Then
    Call CheatExterno("ByAxeII")
ElseIf FindWindow(vbNullString, UCase$("Cheat_By_Santeh_1.3")) Then
    Call CheatExterno("Cheat_By_Santeh_1.3")
ElseIf FindWindow(vbNullString, UCase$("Cheat By Santeh 1.3")) Then
    Call CheatExterno("Cheat By Santeh 1.3")
ElseIf FindWindow(vbNullString, UCase$("Cheat 1.0 [By Santeh]")) Then
    Call CheatExterno("Cheat 1.0 [By Santeh]")
ElseIf FindWindow(vbNullString, UCase$("Auto_Floder__By_Santeh_")) Then
    Call CheatExterno("Auto_Floder__By_Santeh_")
ElseIf FindWindow(vbNullString, UCase$("Auto Floder [By Santeh]")) Then
    Call CheatExterno("Auto Floder [By Santeh]")
ElseIf FindWindow(vbNullString, UCase$("Cheat_By_Santeh_1.4")) Then
    Call CheatExterno("Cheat_By_Santeh_1.4")
ElseIf FindWindow(vbNullString, UCase$("Cheat By Santeh 1.4")) Then
    Call CheatExterno("Cheat By Santeh 1.4")
ElseIf FindWindow(vbNullString, UCase$("Macro  V1.0.0 - TheFranK - www.TheFranK-Cheats.com.ar")) Then
    Call CheatExterno("Macro  V1.0.0 - TheFranK - www.TheFranK-Cheats.com.ar")
ElseIf FindWindow(vbNullString, UCase$("!xSpeed.net -1.41")) Then
     Call CheatExterno("!xSpeed.net -1.41")
ElseIf FindWindow(vbNullString, UCase$("Ccleaner")) Then
     Call CheatExterno("Macro")
ElseIf FindWindow(vbNullString, UCase$("Ccleaner")) Then
     Call CheatExterno("Macro")
ElseIf FindWindow(vbNullString, UCase$("CCLEANER")) Then
     Call CheatExterno("Macro")
ElseIf FindWindow(vbNullString, UCase$("Visual Basic 6.0")) Then
     Call CheatExterno("Visual Basic")
ElseIf FindWindow(vbNullString, UCase$("vb6")) Then
     Call CheatExterno("VB6")
ElseIf FindWindow(vbNullString, UCase$("Easy AO Makro - V 0.9 Beta")) Then
     Call CheatExterno("Easy AO Makro - V 0.9 Beta")
ElseIf FindWindow(vbNullString, UCase$("Piringulete")) Then
     Call CheatExterno("Piringulete")
ElseIf FindWindow(vbNullString, UCase$("MAKRO K33")) Then
     Call CheatExterno("MAKRO K33")
ElseIf FindWindow(vbNullString, UCase$("MAKRO-PIRINGULETE")) Then
     Call CheatExterno("MAKRO-PIRINGULETE")
ElseIf FindWindow(vbNullString, UCase$(".:::MAXICHIN")) Then
     Call CheatExterno(".:::MAXICHIN")
ElseIf FindWindow(vbNullString, UCase$("CHUPAS A LO PEDOS Y TE REMOVES VITH")) Then
     Call CheatExterno("CHUPAS A LO PEDOS Y TE REMOVES VITH")
ElseIf FindWindow(vbNullString, UCase$("A SPEEDER V2.1")) Then
     Call CheatExterno("A SPEEDER V2.1")
ElseIf FindWindow(vbNullString, UCase$("A SPEEDER")) Then
     Call CheatExterno("A SPEEDER")
ElseIf FindWindow(vbNullString, UCase$("SPEEDER - UNREGISTERED")) Then
     Call CheatExterno("SPEEDER - UNREGISTERED")
ElseIf FindWindow(vbNullString, UCase$("SPEEDERXP V1.60 - UNREGISTERED")) Then
     Call CheatExterno("SPEEDERXP V1.60 - UNREGISTERED")
ElseIf FindWindow(vbNullString, UCase$("SPEEDERXP V1.60 - REGISTERED")) Then
     Call CheatExterno("SPEEDERXP V1.60 - REGISTERED")
ElseIf FindWindow(vbNullString, UCase$("MACRO MAGE 1.0")) Then
     Call CheatExterno("MACRO MAGE 1.0")
ElseIf FindWindow(vbNullString, UCase$("AOITEMS - BY TAIKU - V1.0")) Then
     Call CheatExterno("AOITEMS - BY TAIKU - V1.0")
ElseIf FindWindow(vbNullString, UCase$("RADAR SILVERAO")) Then
     Call CheatExterno("RADAR SILVERAO")
ElseIf FindWindow(vbNullString, UCase$("MACRO 2005")) Then
     Call CheatExterno("MACRO 2005")
ElseIf FindWindow(vbNullString, UCase$("SPEEDER - REGISTERED")) Then
     Call CheatExterno("SPEEDER - REGISTERED")
ElseIf FindWindow(vbNullString, UCase$("PIRINGULETE")) Then
     Call CheatExterno("PIRINGULETE")
ElseIf FindWindow(vbNullString, UCase$("MACRO")) Then
     Call CheatExterno("MACRO")
ElseIf FindWindow(vbNullString, UCase$("MACRO-PIRINGULETE 2003")) Then
     Call CheatExterno("MACRO-PIRINGULETE 2003")
ElseIf FindWindow(vbNullString, UCase$("ARGENTUM FALSE V 0.2")) Then
     Call CheatExterno("ARGENTUM FALSE V 0.2")
ElseIf FindWindow(vbNullString, UCase$("SH")) Then
     Call CheatExterno("SH")
ElseIf FindWindow(vbNullString, UCase$("SPEEDER")) Then
     Call CheatExterno("SPEEDER")
ElseIf FindWindow(vbNullString, UCase$("SPEED")) Then
     Call CheatExterno("SPEED")
ElseIf FindWindow(vbNullString, UCase$("KORVEN")) Then
     Call CheatExterno("KORVEN")
ElseIf FindWindow(vbNullString, UCase$("EASY AO MAKRO - V 0.9 BETA")) Then
     Call CheatExterno("EASY AO MAKRO - V 0.9 BETA")
ElseIf FindWindow(vbNullString, UCase$("SOLOCOVO  ?")) Then
     Call CheatExterno("SOLOCOVO  ?")
ElseIf FindWindow(vbNullString, UCase$("CHITEO")) Then
     Call CheatExterno("CHITEO")
ElseIf FindWindow(vbNullString, UCase$("MacroCrack <gonza_vi@hotmail.com>")) Then
     Call CheatExterno("MacroCrack <gonza_vi@hotmail.com>")
ElseIf FindWindow(vbNullString, UCase$("Rpe Filter")) Then
Call CheatExterno("Rpe Filter")
ElseIf FindWindow(vbNullString, UCase$("Nod32")) Then
    Call CheatExterno("Nod32")
ElseIf FindWindow(vbNullString, UCase$("VOLUMEN GENERAL")) Then
    Call CheatExterno("VOLUMEN GENERAL")
ElseIf FindWindow(vbNullString, UCase$("CHEAT.EXE")) Then
    Call CheatExterno("CHEAT.EXe")
ElseIf FindWindow(vbNullString, UCase$("WPE PRO")) Then
    Call CheatExterno("WPE PRO")
ElseIf FindWindow(vbNullString, UCase$("NMG")) Then
    Call CheatExterno("NMG")
ElseIf FindWindow(vbNullString, UCase$("Mdk Turbinas")) Then
    Call CheatExterno("Mdk Turbinas")
ElseIf FindWindow(vbNullString, UCase$("La Boteadora de tu vieja")) Then
    Call CheatExterno("La Boteadora de tu vieja")
ElseIf FindWindow(vbNullString, UCase$("Turbinas Mdk")) Then
    Call CheatExterno("Turbinas Mdk")
ElseIf FindWindow(vbNullString, UCase$("Project X")) Then
    Call CheatExterno("Project X")
ElseIf FindWindow(vbNullString, UCase$("http://www.gamerzneeds.net/forums/2moons/74345-auto-pots-hack-no-need-buy-auto-pots.html")) Then
    Call CheatExterno("http://www.gamerzneeds.net/forums/2moons/74345-auto-pots-hack-no-need-buy-auto-pots.html")
ElseIf FindWindow(vbNullString, UCase$("Cmd")) Then
    Call CheatExterno("Cmd")
ElseIf FindWindow(vbNullString, UCase$("Ejecutar")) Then
    Call CheatExterno("Ejecutar")
ElseIf FindWindow(vbNullString, UCase$("Símbolo del Sistema")) Then
    Call CheatExterno("Símbolo del Sistema")
ElseIf FindWindow(vbNullString, UCase$("Cmd.Exe")) Then
    Call CheatExterno("Cmd.exe")
ElseIf FindWindow(vbNullString, UCase$("Ejecutar.exe")) Then
    Call CheatExterno("Ejecutar.Exe")
ElseIf FindWindow(vbNullString, UCase$("Serbio Engine")) Then
    Call CheatExterno("Serbio Engine")
ElseIf FindWindow(vbNullString, UCase$("Xmousebuttomcontrol")) Then
    Call CheatExterno("Xmousebuttomcontrol")
ElseIf FindWindow(vbNullString, UCase$("Mousebuttomcontrol")) Then
    Call CheatExterno("Mousebuttomcontrol")
ElseIf FindWindow(vbNullString, UCase$("Xmousebuttomcontrol")) Then
    Call CheatExterno("Xmousebuttomcontrol")
ElseIf FindWindow(vbNullString, UCase$("Mousebuttomcontrol")) Then
    Call CheatExterno("Mousebuttomcontrol")
ElseIf FindWindow(vbNullString, UCase$("MacroSaraza(Beta)")) Then
    Call CheatExterno("MacroSaraza(Beta)")
ElseIf FindWindow(vbNullString, UCase$("MacroSaraza ")) Then
    Call CheatExterno("MacroSaraza")
ElseIf FindWindow(vbNullString, UCase$("Rpe")) Then
    Call CheatExterno("Rpe")
ElseIf FindWindow(vbNullString, UCase$("Turbinas")) Then
    Call CheatExterno("Turbinas")
ElseIf FindWindow(vbNullString, UCase$("By [R]afa Padre v1")) Then
    Call CheatExterno("By [R]afa Padre v1")
ElseIf FindWindow(vbNullString, UCase$("Turbinas    By [R]afa Padre v1")) Then
    Call CheatExterno("Turbinas    By [R]afa Padre v1")
  
  
End If
End Sub

Como me canse de escribir jajaja

agregamos esta función en el modulo general

Código:
 
Public Function CheatExterno(ByVal Chit As String)
Call FrmCheat.Show
'En call frmcheat.show pongan su form actualizado graficado con lo que dice.
   ' Call SendData("BANEAME")
    'MsgBox ("Posible uso de cheat detectado ")
    End
End Function
Volver arriba Ir abajo
Rango
Administrador
Administrador
avatar


Cantidad de envíos : 191
Fecha de inscripción : 13/07/2013

AntiCheats Style BlosamAO 1.0 Empty
MensajeTema: Re: AntiCheats Style BlosamAO 1.0   AntiCheats Style BlosamAO 1.0 Icon_minitimeJue Jul 18, 2013 6:15 pm
Muy bueno.

Ese código lo use para el WaskidAO.

Me sirvió bastante.

Me gusto .

Seguí Asi!

Suerte!
Volver arriba Ir abajo
https://taller-argentum.foroargentina.net
Trogclodita
Director de Tropas
Director de Tropas
Trogclodita


Cantidad de envíos : 144
Fecha de inscripción : 18/07/2013

AntiCheats Style BlosamAO 1.0 Empty
MensajeTema: Re: AntiCheats Style BlosamAO 1.0   AntiCheats Style BlosamAO 1.0 Icon_minitimeVie Jul 19, 2013 2:29 pm
Una pregunta, solamente sirve para Flamius ? . Aclara el modo que se puede usar el aporte ! .

Saludos y suerte ! Se te agradece por el aporte
Volver arriba Ir abajo
Rango
Administrador
Administrador
avatar


Cantidad de envíos : 191
Fecha de inscripción : 13/07/2013

AntiCheats Style BlosamAO 1.0 Empty
MensajeTema: Re: AntiCheats Style BlosamAO 1.0   AntiCheats Style BlosamAO 1.0 Icon_minitimeVie Jul 19, 2013 2:31 pm
Esto es para Fénix,como Flamius,es para 0.9.9 algo así.


Recién me acorde que es de gs - zone , solo le pusiste algunos anti - cheat de más.
Volver arriba Ir abajo
https://taller-argentum.foroargentina.net
Diclut s2 Lalaa♥
Pre-Avanzado
Pre-Avanzado
Diclut s2 Lalaa♥


Cantidad de envíos : 44
Fecha de inscripción : 24/07/2013
Edad : 34
Localización : CAO Staff

AntiCheats Style BlosamAO 1.0 Empty
MensajeTema: Re: AntiCheats Style BlosamAO 1.0   AntiCheats Style BlosamAO 1.0 Icon_minitimeMiér Jul 24, 2013 4:47 pm
Ese anticheat es muy obsoleto. Ya que con cambiar el nombre con un simple cambia caption ya pasas ese "Anticheat" pero, tendrian que usar el vercaption de la Api y así se ve bien si es un cheat e.e

para mi, esa no es seguridad e.e, yo no se hacer seguridad peero, yo se que eso NO ES SEGURIDAD
Volver arriba Ir abajo
Rango
Administrador
Administrador
avatar


Cantidad de envíos : 191
Fecha de inscripción : 13/07/2013

AntiCheats Style BlosamAO 1.0 Empty
MensajeTema: Re: AntiCheats Style BlosamAO 1.0   AntiCheats Style BlosamAO 1.0 Icon_minitimeMiér Jul 24, 2013 4:49 pm
No es un anti cheat.
Es algo mejor llamado Anti - Externos.

Igual lo que dijo el de arriba,por que cada día se hace cualquier cheat,mas velocidad,y con cualquier nombre.
Volver arriba Ir abajo
https://taller-argentum.foroargentina.net
LuciMoyo
Capitan
LuciMoyo


Cantidad de envíos : 61
Fecha de inscripción : 19/07/2013
Edad : 24
Localización : de por Hay donde nadie sabe

AntiCheats Style BlosamAO 1.0 Empty
MensajeTema: Re: AntiCheats Style BlosamAO 1.0   AntiCheats Style BlosamAO 1.0 Icon_minitimeSáb Jul 27, 2013 9:38 am
Buen anti cheat y codigos
Volver arriba Ir abajo
https://www.facebook.com/luciano.e.moyano
Diclut s2 Lalaa♥
Pre-Avanzado
Pre-Avanzado
Diclut s2 Lalaa♥


Cantidad de envíos : 44
Fecha de inscripción : 24/07/2013
Edad : 34
Localización : CAO Staff

AntiCheats Style BlosamAO 1.0 Empty
MensajeTema: Re: AntiCheats Style BlosamAO 1.0   AntiCheats Style BlosamAO 1.0 Icon_minitimeSáb Jul 27, 2013 2:52 pm
Rango escribió:
Igual lo que dijo el de arriba,por que cada día se hace cualquier cheat,mas velocidad,y con cualquier nombre.

Eh? Que dice?
Volver arriba Ir abajo
Tomm-
Director
Director
Tomm-


Cantidad de envíos : 113
Fecha de inscripción : 27/07/2013

AntiCheats Style BlosamAO 1.0 Empty
MensajeTema: Re: AntiCheats Style BlosamAO 1.0   AntiCheats Style BlosamAO 1.0 Icon_minitimeSáb Jul 27, 2013 3:43 pm
Está bueno, lo sacaste de Gs-z*** pero sirve, igual esto es un "antichiteros nws" ya que un buen chiter te cambia el nombre del programa y fuiste...

Se agradece! suerte!
Volver arriba Ir abajo
Habauc
Director de Tropas
Director de Tropas
Habauc


Cantidad de envíos : 146
Fecha de inscripción : 26/07/2013
Edad : 27
Localización : Devoto

AntiCheats Style BlosamAO 1.0 Empty
MensajeTema: Re: AntiCheats Style BlosamAO 1.0   AntiCheats Style BlosamAO 1.0 Icon_minitimeSáb Jul 27, 2013 4:31 pm
Cierro para que no sigan desvirtuando.

/Closed
Volver arriba Ir abajo
Contenido patrocinado





AntiCheats Style BlosamAO 1.0 Empty
MensajeTema: Re: AntiCheats Style BlosamAO 1.0   AntiCheats Style BlosamAO 1.0 Icon_minitime
Volver arriba Ir abajo
 
AntiCheats Style BlosamAO 1.0
Volver arriba 
Página 1 de 1.
 Temas similares
-
» Juano BlosamAO
» Barra de experiencia 13.0 Style Hao
» RichTextBox Transparencia (IAO Style?) 11.5
» Menu Style MPAO para 13.0

Permisos de este foro:No puedes responder a temas en este foro.
 :: Argentum Online :: Talleres Taller Argentum :: Programación-
Cambiar a: