[ALL]Proibir duas aplicações abertas

Convidado

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

Convidado

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 .

Administrador Mensagens : 711

Hum Muito bom Exclamation

Convidado

EhEh parabens Laughing