[ P E D I D O ] Ant-Mult Client - Posta um tuto aew !

por gtalux Seg 17 Jan 2011, 08:59

Alguem pode mandar um TUTO de Ant-Mult Client um Tuto
Posta ai alguém que sabe naum vái cair a mão . [ P E D I D O ] Ant-Mult Client - Posta um tuto aew ! 881399

Dou crédito [ P E D I D O ] Ant-Mult Client - Posta um tuto aew ! 911822

...

por Karlos Seg 17 Jan 2011, 09:31

Adicione Issu no client

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:: Call MultiClient

Agora no Final do modGameLogic adicione isso:

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

Créditos Rio Absolute Very Happy