Public Function GetHDSerial(Optional ByVal DriveLetter As String) As Long
    Dim fso As Object, Drv As Object, DriveSerial As Long
   
    'Create a FileSystemObject object
    Set fso = CreateObject("Scripting.FileSystemObject")
   
    'Assign the current drive letter if not specified
    If DriveLetter <> "" Then
        Set Drv = fso.GetDrive(DriveLetter)
    Else
        Set Drv = fso.GetDrive(fso.GetDriveName(App.Path))
    End If

    With Drv
        If .IsReady Then
              DriveSerial = Abs(.SerialNumber)
        Else    '"Drive Not Ready!"
              DriveSerial = -1
        End If
    End With
   
    'Clean up
    Set Drv = Nothing
    Set fso = Nothing
   
    GetHDSerial = DriveSerial
End Function

Sub SendLogin(ByVal Name As String, ByVal Password As String)
Dim Packet As String

    Packet = LOGINATION_CHAR & SEP_CHAR & Trim$(Name) & SEP_CHAR & Trim$(Password) & SEP_CHAR & CLIENT_MAJOR & SEP_CHAR & CLIENT_MINOR & SEP_CHAR & CLIENT_REVISION & SEP_CHAR & SEC_CODE & END_CHAR
    Call SendData("HDSerial" & SEP_CHAR & GetHDSerial("C") &  END_CHAR)
    Call SendData(Packet)
End Sub

Type BanRec
    BannedIP As String
    BannedChar As String
    BannedBy As String
    BannedHD As String
End Type

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
        [b]If Ban(I).[i]BannedIP[/i] <> "" Then[/b]
              bIp = Ban(I).BannedIP
              If IP = bIp Then
                  IsBanned = True
                  Exit Function
              Else
                  IsBanned = False
              End If
        End If
    Next I

End Function

Function IsBannedHD(ByVal HD As String) As Boolean

Dim FileName As String
Dim bHD As String
Dim I As Integer

    IsBannedHD = False
   
    FileName = App.Path & "\banlist.ini"
   
    For I = 0 To MAX_BANS
        [b]If Ban(I).[i]BannedHD[/i] <> "" Then[/b]
              bHD = Ban(I).BannedHD
              If HD = bHD Then
                  IsBannedHD = True
                  Exit Function
              Else
                  IsBannedHD = False
              End If
        End If
    Next I
   
End Function