Allow Only One Instance of Client

Allow Only One Instance of Client - Printable Version

+- Mirage Engine (https://mirage-engine.uk/forums)
+-- Forum: Mirage Source (Nostalgia) (https://mirage-engine.uk/forums/forumdisplay.php?fid=61)
+--- Forum: Archive (2006-2011) (https://mirage-engine.uk/forums/forumdisplay.php?fid=18)
+---- Forum: Resources (https://mirage-engine.uk/forums/forumdisplay.php?fid=49)
+---- Thread: Allow Only One Instance of Client (/showthread.php?tid=59)

Allow Only One Instance of Client - Tutorial Bot - 01-06-2006

Author: Dragoons Master
Difficulty: 1/5
See also: http://www.key2heaven.net/ms/forums/viewtopic.php?t=59

:: CLIENT SIDE ::
Add this into modGameLogic:

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

Add this on top of Sub Main():

Code:
Call MultiClient

Add this sub into modGameLogic:

Code:
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("Client already running!", vbExclamation, "Error")

        End

    End If

End Sub

That's all!