Universo Games
Ola , Convidado

Bloqueando WPE e hackers Logo1110

Você ainda não e cadastrado então cadastre-se e veja todas as atualizações no Mundo RPG!!!
Universo Games
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
Universo Games

Suporte e Desenvolvimento só no Universo Games
 
InícioInício  PortalPortal  EventosEventos  PublicaçõesPublicações  Últimas imagensÚltimas imagens  RegistarRegistar  EntrarEntrar  
Ola Convidado, Seja Bem vindo a equipe lhe deseja boa sorte no seu projeto!

 

 Bloqueando WPE e hackers

Ir para baixo 
AutorMensagem
Lucas Roberto
Administrador
Administrador
Lucas Roberto


Mensagens : 711

Bloqueando WPE e hackers Empty
MensagemAssunto: Bloqueando WPE e hackers   Bloqueando WPE e hackers EmptyTer 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 Side


Adicione 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
Ir para o topo Ir para baixo
https://universogamesmmo.forumeiros.com
 
Bloqueando WPE e hackers
Ir para o topo 
Página 1 de 1

Permissões neste sub-fórumNão podes responder a tópicos
Universo Games :: Centro de Aprendizagem :: Programação :: Visual basic 6-
Ir para: