Allow Only One Client

[Alerd]

Add this into modGameLogic:

```

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():

```

Call MultiClient
```

Add this sub into modGameLogic:

```

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
```

[DMF]

intresting,but it would have draw backs in the users view. some people enjoy loging more then 1 char.xD

nice code tho some one may use it. 

[abhi2011]

app.PrevInstance and Unload me or End

[Abyssrayel]

EDIT:```

Call MultiClient

```
on top of Sub Main(). You add it just under/ in it.

(as that's sort of confusing)

EDIT: I get the error saying my client is already running even if it isn't.

Could some one explain this tutorial better?

I've tried a few different things to make it work and I can't wrap my head around it I guess.

Has any one gotten it to work?

[abhi2011]

Add the call MutliClient in the sub Main() at the top. Also I am not sure but using the method provided by Microsoft rather than using API calls would be better.

[Punika]

Works for me fine. Thank you ! These little things are important for a good game !

EDIT:

> EDIT: I get the error saying my client is already running even if it isn't.

Copy&Paste as stated above, compile, close VB Project.

As long as your VB Project is opened it will tell you that you already have one client opened