Universo Games
Ola , Convidado



Você ainda não e cadastrado então cadastre-se e veja todas as atualizações no mundo rpg!!!

[ALL]Proibir duas aplicações abertas

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Tutorial [ALL]Proibir duas aplicações abertas

Mensagem por xDirceu em Dom 29 Ago 2010, 16:47

Eu não elaborei sou vou passar olha ai:

Esse tutorial proibi de um player consiga abrir 2 ou mais clientes do seu jogo ao mesmo tempo ... Bora pro tuto!

Cliente Side

Adicione no começo do modGameLogic(Cliente ):

Código:
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA"
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Agora adicione no topo da Sub Main():

Código:
Sub MultiClient()

Dim GameClient As Long
Dim OldAppName As String
OldAppName = App.Title
App.Title = ""
GameClient = FindWindow(vbNullString, OldAppName)
App.Title = OldAppName
If App.PrevInstance = True Or GameClient <> 0 Then
Call MsgBox("Não é Permitido 2 Clientes ao mesmo tempo!", vbExclamation, "Error")
End
End If
End Sub

Facílimo. xDirceu (disponibilizando) ^^

Creditos: ADM Geração


Última edição por xDirceu em Qua 01 Set 2010, 16:41, editado 1 vez(es)
avatar
xDirceu

Mensagens : 19

Voltar ao Topo Ir em baixo

Tutorial Re: [ALL]Proibir duas aplicações abertas

Mensagem por Takezo Kenzei em Dom 29 Ago 2010, 18:30

xDirceu escreveu:Eu não elaborei sou vou passar olha ai:

Esse tutorial proibi de um player consiga abrir 2 ou mais clientes do seu jogo ao mesmo tempo ... Bora pro tuto!

Cliente Side

Adicione no começo do modGameLogic(Cliente ):

Código:
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA"
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Agora adicione no topo da Sub Main():

Código:
Sub MultiClient()
 
Dim GameClient As Long
Dim OldAppName As String
OldAppName = App.Title
App.Title = ""
GameClient = FindWindow(vbNullString, OldAppName)
App.Title = OldAppName
If App.PrevInstance = True Or GameClient <> 0 Then
Call MsgBox("Não é Permitido 2 Clientes ao mesmo tempo!", vbExclamation, "Error")
End
End If
End Sub

Facílimo. xDirceu (disponibilizando) ^^

Creditos: Flake

Creditos ADM Geração . Edite .
avatar
Takezo Kenzei

Mensagens : 22

Voltar ao Topo Ir em baixo

Tutorial Re: [ALL]Proibir duas aplicações abertas

Mensagem por Lucas Roberto em Seg 30 Ago 2010, 14:34

Hum Muito bom Exclamation Exclamation Exclamation
avatar
Lucas Roberto

Mensagens : 706

http://universogamesmmo.forumeiros.com

Voltar ao Topo Ir em baixo

Tutorial Re: [ALL]Proibir duas aplicações abertas

Mensagem por D'Black em Seg 30 Ago 2010, 19:52

EhEh parabens Laughing
avatar
D'Black

Mensagens : 30

http://www.uniononline.tk/

Voltar ao Topo Ir em baixo

Tutorial Re: [ALL]Proibir duas aplicações abertas

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

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