Mirage Source http://web.miragesource.net/forums/ |
|
Banning System http://web.miragesource.net/forums/viewtopic.php?f=201&t=1729 |
Page 1 of 1 |
Author: | Da Undead [ Wed Apr 25, 2007 2:18 am ] |
Post subject: | Banning System |
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? |
Author: | William [ Wed Apr 25, 2007 12:26 pm ] |
Post subject: | |
Perhaps: Code: For i = 0 To MAX_BANS Should be: Code: For i = 1 To MAX_BANS
|
Author: | Da Undead [ Wed Apr 25, 2007 11:47 pm ] |
Post subject: | |
yay cool, ty. Dang theres something wrong with my source, it gets stuck on sending info ;( |
Page 1 of 1 | All times are UTC |
Powered by phpBB® Forum Software © phpBB Group https://www.phpbb.com/ |