Tutorial
Adicione um Timer (Timer1)
Enabled = False
Interval = 1
Adicione um outro Timer (Timer2)
Enabled = True
Interval = 3
Adicione mais outro Timer (Timer3)
Enabled = True
Interval = 100
De dois clicks no Timer1 e agora adicione o código
Refresh()
De dois clicks no Timer2 e agora adicione o código
Timer1.Enabled = True
Timer1.Start()
Timer1.Stop()
De dois clicks no Timer3 e agora adicione o código
Timer2.Start()
Refresh()
Timer2.Stop()
Agora adicione duas GroupBox's
Agora vá em Project depois em Add Module... e de Add
Apague tudo que estiver ali
Adicione o seguinte código
Imports Microsoft.VisualBasic
Module Trainer
Private Function GroupBox1() As Object
Throw New NotImplementedException
End Function
Private Function GroupBox2() As Object
Throw New NotImplementedException
End Function
Private Sub Refresh()
Throw New NotImplementedException
End Sub
Private Declare Function Proteção_do_Requentado Lib "kernel32" Alias "PdR" ()
Public Sub PdR()
Dim pb As Process() = Process.GetProcessesByName("PointBlank")
Dim xtrap As Process = Process.GetProcessById("xtrap.xt")
Dim NoDetect As Process = xtrap
If pb.Length > 0 Then
GroupBox1.Enabled = True
Refresh()
GroupBox2.Enabled = True
Application.Restart()
Else
GroupBox1.Enabled = False
Refresh()
GroupBox2.Enabled = False
Application.Restart()
End If
End Sub
End Module
Observações
Não usse os modulo ReadWritingMemory.vb
Usou um Timer com WhitePointerByte todo o Trainer volta a ficar Detectável
Não use o VB Anti Debugger e nem o Themida para a proteger a Source
Use o Protect Form ou outro que não mexa nos Modulo
CMP.
ABRAÇO