Universo Games
Ola , Convidado



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

Suporte e Desenvolvimento só no Universo Games

Ola Convidado, Seja Bem vindo a equipe lhe deseja boa sorte no seu projeto!

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

[ALL]Proibir duas aplicações abertas

Ver o tópico anterior Ver o tópico seguinte Ir em baixo  Mensagem [Página 1 de 1]

1Tutorial [ALL]Proibir duas aplicações abertas em Dom 29 Ago 2010, 16:47

xDirceu


Membro
Membro
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)

2Tutorial Re: [ALL]Proibir duas aplicações abertas em Dom 29 Ago 2010, 18:30

Takezo Kenzei


Membro
Membro
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 .

3Tutorial Re: [ALL]Proibir duas aplicações abertas em Seg 30 Ago 2010, 14:34

Luucas Robeerto


Fundador
Fundador
Hum Muito bom Exclamation Exclamation Exclamation

http://universogamesmmo.forumeiros.com

4Tutorial Re: [ALL]Proibir duas aplicações abertas em Seg 30 Ago 2010, 19:52

D'Black


Membro
Membro
EhEh parabens Laughing

http://www.uniononline.tk/

Conteúdo patrocinado


Ver o tópico anterior Ver o tópico seguinte 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