Dim CheatEngine() As Process
Dim Game() As Process
CheatEngine = Process.GetProcessesByName("cheatengine-i386")'Cheat Engine Sürümleri değiştikçe buradaki processname
'değişebilir.
If CheatEngine .Count > 0 Then
Game= Process.GetProcessesByName("x")' x Yazan yere yapmış olduğunuz hile hangi oyun içine buraya ekleyin.
If Game.Count Then
Timer1.Stop() 'Timer 2 ise Timer2 yazmalısın
MsgBox("Cheat Engine Tespit Edildi!!" & vbCrLf & "Kapatılıyor..", MsgBoxStyle.Critical, ":=")
Application.Exit()
End if
End if