Bem vindo visitante.
Caso ainda não tenha uma conta,pedimos para que crie uma,assim você terá acesso a todos os links e imagens disponíveis no fórum.

Você não está conectado. Conecte-se ou registre-se

Bloqueando WPE e hackers

Ir em baixo  Mensagem [Página 1 de 1]

1Normal Bloqueando WPE e hackers em Sex Fev 17, 2012 4:31 pm

mrfly

avatar
Colaborador
Colaborador
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:
[Você precisa estar registrado e conectado para ver esta imagem.]


e o jogo será fechado automaticamente.

Client Side

Adicione as seguintes declaraçoes em qualquer module(eu usei o ModConstants)


' 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:


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.


Se Der ERRO no : DestroyGame !

Dim winHwnd As Long
winHwnd = FindWindow(vbNullString, "Cheat Engine 5.1")
Debug.Print winHwnd
If winHwnd <> 0 Then
MsgBox "Usa hack aki filho da puta se n guenta bebe leite"
GameDestroy
End If

Ver perfil do usuário

Voltar ao Topo  Mensagem [Página 1 de 1]

Permissão deste fórum:
Você não pode responder aos tópicos neste fórum