Banning System - Printable Version

Banning System - 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: General (https://mirage-engine.uk/forums/forumdisplay.php?fid=17)
+---- Thread: Banning System (/showthread.php?tid=904)

Banning System - Da Undead - 25-04-2007

Ok on the banning system on the backup tuts, im having a problem server side. Rte 9, subscript out of range. when I try to login.

highlights:

Code:
If Ban(i).BannedIP  "" Then

Heres the whole sub:

Code:
Function IsBanned(ByVal IP As String) As Boolean

Dim FileName As String, fIP As String, fName As String

Dim f As Long

Dim b As Integer

Dim BIp As String

Dim i As Integer

IsBanned = False

FileName = App.Path & "\banlist.ini"

For i = 0 To MAX_BANS

If Ban(i).BannedIP  "" Then

BIp = Ban(i).BannedIP

If IP = BIp Then

IsBanned = True

Exit Function

Else: IsBanned = False

End If

End If

Next i

End Function

any idea?

- William - 25-04-2007

Perhaps:

Code:
For i = 0 To MAX_BANS

Should be:

Code:
For i = 1 To MAX_BANS

- Da Undead - 25-04-2007

yay cool, ty. Dang theres something wrong with my source, it gets stuck on sending info ;(