Lucas Roberto Administrador
Mensagens : 711
| Assunto: Bloqueando WPE e hackers Ter 12 Jul 2011, 22:10 | |
| O que ele faz: Ele usa funçoes WIN32 API para verificar se existe um programa aberto com o titulo definida por você, no caso WPE. Se o WPE estiver aberto irá aparecer uma msg box: [Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]e o jogo será fechado automaticamente. Client SideAdicione as seguintes declaraçoes em qualquer module(eu usei o ModConstants) - Código:
-
' Procura as janelas abertas Declare Function FindWindow Lib "user32" Alias _ "FindWindowA" (ByVal lpClassName As String, _ ByVal lpWindowName As String) As Long Declare Function PostMessage Lib "user32" Alias _ "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _ ByVal wParam As Long, lParam As Any) As Long Agora crie 1 timer na sua frmMain e coloque o interval dele com o valor 2000(equivale a 2 segundos) ou pode colocar um valor q vc achar melhor. coloque isso dentro do timer: - Código:
-
Dim winHwnd As Long winHwnd = FindWindow(vbNullString, "WPE PRO") Debug.Print winHwnd If winHwnd <> 0 Then MsgBox "Cheat detectado, jogo finalizado." DestroyGame End If End Sub -------------------------------------------- E não, ao contrario do q muitos pensam mesmo mudando o nome do programa ele continua sendo detectado. Creditos Texak | |
|