Convidado Convidado
| Assunto: [ALL]Proibir duas aplicações abertas Dom 29 Ago 2010, 17: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 SideAdicione 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, 17:41, editado 1 vez(es) |
|
Convidado Convidado
| Assunto: Re: [ALL]Proibir duas aplicações abertas Dom 29 Ago 2010, 19: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 . |
|
Lucas Roberto Administrador
Mensagens : 711
| Assunto: Re: [ALL]Proibir duas aplicações abertas Seg 30 Ago 2010, 15:34 | |
| | |
|
Convidado Convidado
| Assunto: Re: [ALL]Proibir duas aplicações abertas Seg 30 Ago 2010, 20:52 | |
| EhEh parabens |
|
Conteúdo patrocinado
| Assunto: Re: [ALL]Proibir duas aplicações abertas | |
| |
|