VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsConfig"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

Public file As String

Public Property Get Username() As String
    Username = ReadINI(file, "Login", "Username")
End Property

Public Property Let Username(ByVal v As String)
    WriteINI file, "Login", "Username", v
End Property

Public Property Get Password() As String
    Password = ReadINI(file, "Login", "Password")
End Property

Public Property Let Password(ByVal v As String)
    WriteINI file, "Login", "Password", v
End Property

Public Property Get NewPassword() As String
    NewPassword = LCase$(ReadINI(file, "Login", "NewPassword"))
End Property

Public Property Let NewPassword(ByVal v As String)
    WriteINI file, "Login", "NewPassword", v
End Property

Public Property Get Email() As String
    Email = ReadINI(file, "Login", "Email")
End Property

Public Property Let Email(ByVal v As String)
    WriteINI file, "Login", "Email", v
End Property

Public Property Get NewEmail() As String
    NewEmail = ReadINI(file, "Login", "NewEmail")
End Property

Public Property Let NewEmail(ByVal v As String)
    WriteINI file, "Login", "NewEmail", v
End Property

Public Property Get Server() As String
    Server = ReadINI(file, "Login", "Server")
End Property

Public Property Let Server(ByVal v As String)
    WriteINI file, "Login", "Server", v
End Property

Public Property Get Cdkey() As String
    Cdkey = ReadINI(file, "Login", "Cdkey")
End Property

Public Property Let Cdkey(ByVal v As String)
    WriteINI file, "Login", "Cdkey", v
End Property

Public Property Get CdkeyEx() As String
    CdkeyEx = ReadINI(file, "Login", "CdkeyEx")
End Property

Public Property Let CdkeyEx(ByVal v As String)
    WriteINI file, "Login", "CdkeyEx", v
End Property

Public Property Get Client() As String
    Client = UCase$(ReadINI(file, "Login", "Client"))
    Select Case Client
    Case "STAR", "SEXP", "W2BN", "D2DV", "D2XP", "WAR3", "W3XP"
    
    Case Else
        Client = "D2DV"
    End Select
End Property

Public Property Let Client(ByVal v As String)
    WriteINI file, "Login", "Client", v
End Property

Public Property Get Channel() As String
    Channel = ReadINI(file, "Login", "Channel")
End Property

Public Property Let Channel(ByVal v As String)
    WriteINI file, "Login", "Channel", v
End Property

Public Property Get Proxy() As String
    Proxy = ReadINI(file, "Login", "Proxy")
End Property

Public Property Let Proxy(ByVal v As String)
    WriteINI file, "Login", "Proxy", v
End Property

Public Property Get SocksVer() As Integer
    SocksVer = CInt(Val(ReadINI(file, "Login", "SocksVer")))
    If SocksVer <> 4 And SocksVer <> 5 Then SocksVer = 4
End Property

Public Property Let SocksVer(ByVal v As Integer)
    WriteINI file, "Login", "SocksVer", CStr(v)
End Property

Public Property Get Verbyte() As String
    Verbyte = ReadINI(file, "Login", "Verbyte")
End Property

Public Property Let Verbyte(ByVal v As String)
    WriteINI file, "Login", "Verbyte", v
End Property
