VERSION 5.00
Begin VB.Form frmConfigure 
   BorderStyle     =   4  'Fixed ToolWindow
   Caption         =   "Configure Profile"
   ClientHeight    =   6960
   ClientLeft      =   45
   ClientTop       =   420
   ClientWidth     =   9615
   BeginProperty Font 
      Name            =   "Tahoma"
      Size            =   9.75
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   Icon            =   "frmConfigure.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   6960
   ScaleWidth      =   9615
   StartUpPosition =   2  'CenterScreen
   Begin VB.TextBox txtTrigger 
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   315
      Left            =   1920
      MaxLength       =   1
      TabIndex        =   57
      ToolTipText     =   "Trigger for commands"
      Top             =   4680
      Width           =   615
   End
   Begin VB.ComboBox cboRealm 
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   315
      ItemData        =   "frmConfigure.frx":164A
      Left            =   1920
      List            =   "frmConfigure.frx":1663
      Style           =   2  'Dropdown List
      TabIndex        =   55
      ToolTipText     =   "Diablo II realm to connect to"
      Top             =   2520
      Width           =   2775
   End
   Begin VB.CommandButton cmdGrab 
      Caption         =   "grab"
      Height          =   315
      Left            =   2640
      TabIndex        =   54
      Top             =   4320
      Width           =   615
   End
   Begin VB.TextBox txtIdent 
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   315
      Left            =   6720
      TabIndex        =   52
      ToolTipText     =   "SOCKSv4 Identification ID"
      Top             =   2160
      Width           =   2775
   End
   Begin VB.CheckBox chkJoin 
      Alignment       =   1  'Right Justify
      Height          =   315
      Left            =   4485
      TabIndex        =   50
      ToolTipText     =   "Join this channel after joining starting channel?"
      Top             =   3960
      Width           =   215
   End
   Begin VB.CommandButton cmdRename 
      Caption         =   "Rename"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   8280
      TabIndex        =   49
      ToolTipText     =   "Rename this profile"
      Top             =   120
      Width           =   1215
   End
   Begin VB.CommandButton cmdDelete 
      Caption         =   "Delete"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   7080
      TabIndex        =   48
      ToolTipText     =   "Delete this profile"
      Top             =   120
      Width           =   1095
   End
   Begin VB.ComboBox cboRegister 
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   315
      ItemData        =   "frmConfigure.frx":169D
      Left            =   6720
      List            =   "frmConfigure.frx":16AD
      Style           =   2  'Dropdown List
      TabIndex        =   47
      ToolTipText     =   "Registration mode"
      Top             =   3360
      Width           =   2775
   End
   Begin VB.TextBox txtEmail 
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   315
      Left            =   6720
      TabIndex        =   46
      ToolTipText     =   "E-mail address (required for ""Register"", ""Change E-mail"", ""Request Password"")"
      Top             =   3720
      Width           =   2775
   End
   Begin VB.TextBox txtNewEmail 
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   315
      Left            =   6720
      TabIndex        =   45
      ToolTipText     =   "New E-mail address (required for ""Change E-mail"")"
      Top             =   4080
      Width           =   2775
   End
   Begin VB.CommandButton cmdCancel 
      Caption         =   "Cancel"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   7320
      TabIndex        =   40
      Top             =   6480
      Width           =   1095
   End
   Begin VB.CommandButton cmdSave 
      Caption         =   "Save"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   8520
      TabIndex        =   39
      Top             =   6480
      Width           =   975
   End
   Begin VB.PictureBox Picture3 
      BorderStyle     =   0  'None
      Height          =   255
      Left            =   6720
      ScaleHeight     =   255
      ScaleWidth      =   495
      TabIndex        =   36
      Top             =   2520
      Width           =   495
      Begin VB.OptionButton optSocks4 
         Caption         =   "4"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   9
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000C000&
         Height          =   240
         Left            =   0
         Style           =   1  'Graphical
         TabIndex        =   38
         Top             =   0
         Value           =   -1  'True
         Width           =   255
      End
      Begin VB.OptionButton optSocks5 
         Caption         =   "5"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   9
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000C000&
         Height          =   240
         Left            =   240
         Style           =   1  'Graphical
         TabIndex        =   37
         Top             =   0
         Width           =   255
      End
   End
   Begin VB.PictureBox Picture2 
      BorderStyle     =   0  'None
      Height          =   255
      Left            =   6720
      ScaleHeight     =   255
      ScaleWidth      =   495
      TabIndex        =   33
      Top             =   1080
      Width           =   495
      Begin VB.OptionButton optProxyYes 
         Caption         =   "Y"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   9
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000C000&
         Height          =   240
         Left            =   0
         Style           =   1  'Graphical
         TabIndex        =   35
         Top             =   0
         Width           =   255
      End
      Begin VB.OptionButton optProxyNo 
         Caption         =   "N"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   9
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000C000&
         Height          =   240
         Left            =   240
         Style           =   1  'Graphical
         TabIndex        =   34
         Top             =   0
         Value           =   -1  'True
         Width           =   255
      End
   End
   Begin VB.PictureBox Picture1 
      BorderStyle     =   0  'None
      Height          =   255
      Left            =   1920
      ScaleHeight     =   255
      ScaleWidth      =   495
      TabIndex        =   30
      Top             =   5520
      Width           =   495
      Begin VB.OptionButton optBnlsNo 
         Caption         =   "N"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   9
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000C000&
         Height          =   240
         Left            =   240
         Style           =   1  'Graphical
         TabIndex        =   32
         Top             =   0
         Value           =   -1  'True
         Width           =   255
      End
      Begin VB.OptionButton optBnlsYes 
         Caption         =   "Y"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   9
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000C000&
         Height          =   240
         Left            =   0
         Style           =   1  'Graphical
         TabIndex        =   31
         Top             =   0
         Width           =   255
      End
   End
   Begin VB.TextBox txtProxyPort 
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   315
      Left            =   6720
      MaxLength       =   5
      TabIndex        =   29
      ToolTipText     =   "Associated port"
      Top             =   1800
      Width           =   1095
   End
   Begin VB.TextBox txtProxyServer 
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   315
      Left            =   6720
      TabIndex        =   28
      ToolTipText     =   "Proxy IP address"
      Top             =   1440
      Width           =   2775
   End
   Begin VB.TextBox txtBnlsServer 
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   315
      Left            =   1920
      TabIndex        =   27
      ToolTipText     =   "BNLS or JBLS server to connect to"
      Top             =   5880
      Width           =   2775
   End
   Begin VB.ComboBox cboProduct 
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   315
      ItemData        =   "frmConfigure.frx":16F0
      Left            =   1920
      List            =   "frmConfigure.frx":1709
      Style           =   2  'Dropdown List
      TabIndex        =   26
      Top             =   2880
      Width           =   2775
   End
   Begin VB.TextBox txtVerbyte 
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   315
      Left            =   1920
      MaxLength       =   2
      TabIndex        =   25
      ToolTipText     =   "Version byte for product"
      Top             =   4320
      Width           =   615
   End
   Begin VB.TextBox txtChannel 
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   315
      Left            =   1920
      MaxLength       =   31
      TabIndex        =   24
      ToolTipText     =   "Home channel"
      Top             =   3960
      Width           =   2535
   End
   Begin VB.TextBox txtCdkeyEx 
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   315
      Left            =   1920
      MaxLength       =   26
      TabIndex        =   23
      ToolTipText     =   "Expansion cdkey associated with product"
      Top             =   3600
      Width           =   2775
   End
   Begin VB.TextBox txtCdkey 
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   315
      Left            =   1920
      MaxLength       =   26
      TabIndex        =   22
      ToolTipText     =   "Cdkey associated with product"
      Top             =   3240
      Width           =   2775
   End
   Begin VB.TextBox txtServer 
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   315
      Left            =   1920
      TabIndex        =   21
      ToolTipText     =   "Battle.Net server to connect to"
      Top             =   2160
      Width           =   2775
   End
   Begin VB.TextBox txtNewPassword 
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   315
      Left            =   1920
      TabIndex        =   20
      ToolTipText     =   "Leave blank if you don't want to change password"
      Top             =   1800
      Width           =   2775
   End
   Begin VB.TextBox txtPassword 
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   315
      Left            =   1920
      TabIndex        =   19
      ToolTipText     =   "Password to account"
      Top             =   1440
      Width           =   2775
   End
   Begin VB.TextBox txtUsername 
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   315
      Left            =   1920
      MaxLength       =   15
      TabIndex        =   18
      ToolTipText     =   "Account to logon with"
      Top             =   1080
      Width           =   2775
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "Trigger:"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   195
      Index           =   20
      Left            =   240
      TabIndex        =   58
      Top             =   4680
      Width           =   690
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "Realm:"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   195
      Index           =   19
      Left            =   240
      TabIndex        =   56
      Top             =   2520
      Width           =   615
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "SOCKS Ident:"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   195
      Index           =   18
      Left            =   5040
      TabIndex        =   53
      Top             =   2160
      Width           =   1215
   End
   Begin VB.Label lblProfile 
      AutoSize        =   -1  'True
      Caption         =   "Profile"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   14.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000C000&
      Height          =   345
      Left            =   120
      TabIndex        =   51
      Top             =   120
      Width           =   1065
   End
   Begin VB.Line Line2 
      X1              =   0
      X2              =   9600
      Y1              =   600
      Y2              =   600
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "Mode:"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   195
      Index           =   15
      Left            =   5040
      TabIndex        =   44
      Top             =   3360
      Width           =   525
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "E-mail:"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   195
      Index           =   17
      Left            =   5040
      TabIndex        =   43
      Top             =   3720
      Width           =   615
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "New E-mail:"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   195
      Index           =   16
      Left            =   5040
      TabIndex        =   42
      Top             =   4080
      Width           =   1035
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      Caption         =   "Registration:"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   240
      Index           =   3
      Left            =   4920
      TabIndex        =   41
      Top             =   3000
      Width           =   1395
   End
   Begin VB.Line Line1 
      X1              =   0
      X2              =   9600
      Y1              =   6360
      Y2              =   6360
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "New Password:"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   195
      Index           =   14
      Left            =   240
      TabIndex        =   17
      Top             =   1800
      Width           =   1305
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "Enabled:"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   195
      Index           =   13
      Left            =   5040
      TabIndex        =   16
      Top             =   1080
      Width           =   750
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "Port:"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   195
      Index           =   12
      Left            =   5040
      TabIndex        =   15
      Top             =   1800
      Width           =   420
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "Server:"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   195
      Index           =   11
      Left            =   5040
      TabIndex        =   14
      Top             =   1440
      Width           =   660
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "SOCKS Version:"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   195
      Index           =   10
      Left            =   5040
      TabIndex        =   13
      Top             =   2520
      Width           =   1410
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      Caption         =   "Proxy:"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   240
      Index           =   2
      Left            =   4920
      TabIndex        =   12
      Top             =   720
      Width           =   705
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "Server:"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   195
      Index           =   9
      Left            =   240
      TabIndex        =   11
      Top             =   5880
      Width           =   660
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "Enabled:"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   195
      Index           =   8
      Left            =   240
      TabIndex        =   10
      Top             =   5520
      Width           =   750
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      Caption         =   "BNLS/JBLS:"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   240
      Index           =   1
      Left            =   120
      TabIndex        =   9
      Top             =   5160
      Width           =   1275
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      Caption         =   "Main:"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   240
      Index           =   0
      Left            =   120
      TabIndex        =   8
      Top             =   720
      Width           =   585
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "Verbyte:"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   195
      Index           =   7
      Left            =   240
      TabIndex        =   7
      Top             =   4320
      Width           =   750
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "Channel:"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   195
      Index           =   6
      Left            =   240
      TabIndex        =   6
      Top             =   3960
      Width           =   780
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "Expansion Cdkey:"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   195
      Index           =   5
      Left            =   240
      TabIndex        =   5
      Top             =   3600
      Width           =   1560
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "Cdkey:"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   195
      Index           =   4
      Left            =   240
      TabIndex        =   4
      Top             =   3240
      Width           =   630
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "Product:"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   195
      Index           =   3
      Left            =   240
      TabIndex        =   3
      Top             =   2880
      Width           =   720
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "Server:"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   195
      Index           =   2
      Left            =   240
      TabIndex        =   2
      Top             =   2160
      Width           =   660
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "Password:"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   195
      Index           =   1
      Left            =   240
      TabIndex        =   1
      Top             =   1440
      Width           =   885
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "Username:"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   195
      Index           =   0
      Left            =   240
      TabIndex        =   0
      Top             =   1080
      Width           =   945
   End
End
Attribute VB_Name = "frmConfigure"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Public ProfileManager As Boolean

Public Sub ShowProfile(ByVal strProfileName As String)
    On Error GoTo hErr:
    If LenB(strProfileName) = 0 Then Unload Me: Exit Sub
    Dim F As String
    F = AppData & "Profiles\" & strProfileName & ".ini"
    lblProfile = strProfileName
    Caption = "Configure " & """" & strProfileName & """"
    txtUsername.text = ReadIni(F, "Main", "Username")
    txtPassword.text = ReadIni(F, "Main", "Password")
    txtNewPassword.text = ReadIni(F, "Main", "PasswordEx")
    txtServer.text = ReadIni(F, "Main", "Server")
    txtCdkey.text = UCase$(ReadIni(F, "Main", "Cdkey"))
    txtTrigger.text = ReadIni(F, "Main", "Trigger")
    txtCdkeyEx.text = UCase$(ReadIni(F, "Main", "CdkeyEx"))
    txtChannel.text = ReadIni(F, "Main", "Channel")
    chkJoin.Value = IIf(ReadIni(F, "Main", "Join") = "Y", vbChecked, vbUnchecked)
    txtVerbyte.text = ReadIni(F, "Main", "Verbyte")
    txtBnlsServer.text = ReadIni(F, "BNLS", "Server")
    optBnlsYes.Value = (ReadIni(F, "BNLS", "UseBNLS") = "Y")
    txtProxyServer.text = ReadIni(F, "Proxy", "Server")
    txtIdent.text = ReadIni(F, "Proxy", "Ident")
    txtProxyServer.text = ReadIni(F, "Proxy", "Proxy")
    txtProxyPort.text = ReadIni(F, "Proxy", "Port")
    optProxyYes.Value = (ReadIni(F, "Proxy", "UseProxy") = "Y")
    optSocks4.Value = (ReadIni(F, "Proxy", "SocksVer") = "4")
    txtEmail.text = ReadIni(F, "Register", "Email")
    txtNewEmail.text = ReadIni(F, "Register", "NewEmail")
    Select Case Val(ReadIni(F, "Main", "Realm"))
    Case 1, 2, 3, 4, 0: cboRealm.ListIndex = Val(ReadIni(F, "Main", "Realm"))
    Case Else: cboRealm.ListIndex = 0
    End Select
    Select Case UCase$(ReadIni(F, "Main", "ProductID"))
        Case "SEXP": cboProduct.ListIndex = 1
        Case "D2DV": cboProduct.ListIndex = 2
        Case "D2XP": cboProduct.ListIndex = 3
        Case "W2BN": cboProduct.ListIndex = 4
        Case "WAR3": cboProduct.ListIndex = 5
        Case "W3XP": cboProduct.ListIndex = 6
        Case Else:   cboProduct.ListIndex = 0
    End Select
    Select Case Val(ReadIni(F, "Register", "Mode"))
        Case 0, 1, 2, 3: cboRegister.ListIndex = Val(ReadIni(F, "Register", "Mode"))
        Case Else: cboRegister.ListIndex = 0
    End Select
    Exit Sub
hErr:
    MsgBox "An error occurred when trying to read this profile: " & vbNewLine & Err.Description, vbCritical, "Configure Profile"
End Sub

Private Sub cboProduct_Click()
    txtCdkeyEx.Enabled = False
    Select Case cboProduct.ListIndex
    Case 3, 6
        txtCdkeyEx.Enabled = True
    End Select
End Sub

Private Sub cboRegister_Click()
    txtEmail.Enabled = True
    txtNewEmail.Enabled = False
    Select Case cboRegister.ListIndex
    Case 0
        txtEmail.Enabled = False
    Case 2
        txtNewEmail.Enabled = True
    End Select
End Sub

Private Sub cmdCancel_Click()
    Unload Me
End Sub

Private Sub cmdDelete_Click()
    On Error GoTo hErr
    Kill AppData & "Profiles\" & lblProfile & ".ini"
    Dim I As Integer
    For I = 1 To frmBot.tbsProfile.Tabs.Count
        If frmBot.tbsProfile.Tabs(I).Caption = lblProfile Then
            UnloadProfile I
            Exit For
        End If
    Next I
    Unload Me
    Exit Sub
hErr:
    MsgBox "An error occurred when trying to delete this profile: " & vbNewLine & Err.Description, vbCritical, "Delete Profile"
    Unload Me
End Sub

Private Sub cmdGrab_Click()
    If cboProduct.ListIndex <> -1 Then
        Dim Game As String, Verbyte As Long
        Select Case cboProduct.ListIndex
        Case 0: Game = "STAR"
        Case 1: Game = "SEXP"
        Case 2: Game = "D2DV"
        Case 3: Game = "D2XP"
        Case 4: Game = "W2BN"
        Case 5: Game = "WAR3"
        Case 6: Game = "W3XP"
        End Select
        Verbyte = ReturnVerbyte(Game)
        
        If Verbyte = -1 Then
            MsgBox "Cannot dynamically grab version byte, hashes are not present in Binaries\" & Game & "\", vbExclamation
        ElseIf Verbyte = -2 Then
            MsgBox "Cannot dynamically grab version byte, game is not recognized by MirageBot or an error occurred!", vbExclamation
        Else
            txtVerbyte.text = Hex$(Verbyte)
        End If
    Else
        MsgBox "Cannot dynamically grab version byte, please select a game first!", vbExclamation
    End If
End Sub

Private Sub cmdRename_Click()
    On Error GoTo hErr
    Dim str As String
    str = InputBox("Enter what you want to call the profile:", "Rename Profile")
    str = FixFilename(str)
    If LenB(str) > 0 Then
        Dim I As Integer
        For I = 1 To frmBot.tbsProfile.Tabs.Count
            If frmBot.tbsProfile.Tabs(I).Caption = lblProfile Then
                frmBot.tbsProfile.Tabs(I).Caption = str
                Exit For
            End If
        Next I
        For I = 0 To frmBot.Bot.UBound
            If frmBot.Bot(I).Profile = lblProfile Then
                frmBot.Bot(I).Profile = str
                Exit For
            End If
        Next I
        If fso.FileExists(AppData & "Profiles\" & lblProfile & ".db") Then
            FileCopy AppData & "Profiles\" & lblProfile & ".db", AppData & "Profiles\" & str & ".db"
            Kill AppData & "Profiles\" & lblProfile & ".db"
        End If
        FileCopy AppData & "Profiles\" & lblProfile & ".ini", AppData & "Profiles\" & str & ".ini"
        Kill AppData & "Profiles\" & lblProfile & ".ini"
        lblProfile = str
        Caption = "Configure " & """" & lblProfile & """"
    End If
    Exit Sub
hErr:
    MsgBox "An error occurred when trying to rename this profile: " & vbNewLine & Err.Description, vbCritical, "Rename Profile"
End Sub

Private Sub cmdSave_Click()
    On Error GoTo hErr
    If LenB(lblProfile) = 0 Then Unload Me: Exit Sub
    Dim F As String
    F = AppData & "Profiles\" & lblProfile & ".ini"
    WriteIni F, "Main", "Username", txtUsername.text
    WriteIni F, "Main", "Password", txtPassword.text
    WriteIni F, "Main", "NewPassword", txtNewPassword.text
    WriteIni F, "Main", "Server", txtServer.text
    WriteIni F, "Main", "Cdkey", txtCdkey.text
    WriteIni F, "Main", "CdkeyEx", txtCdkeyEx.text
    WriteIni F, "Main", "Trigger", txtTrigger.text
    WriteIni F, "Main", "Channel", txtChannel.text
    WriteIni F, "Main", "Join", YesNo(chkJoin.Value = vbChecked)
    WriteIni F, "Main", "Verbyte", txtVerbyte.text
    WriteIni F, "Main", "Realm", cboRealm.ListIndex
    WriteIni F, "BNLS", "Server", txtBnlsServer.text
    WriteIni F, "BNLS", "UseBNLS", YesNo(optBnlsYes.Value)
    WriteIni F, "Proxy", "Proxy", txtProxyServer.text
    WriteIni F, "Proxy", "Ident", txtIdent.text
    WriteIni F, "Proxy", "Port", txtProxyPort.text
    WriteIni F, "Proxy", "UseProxy", YesNo(optProxyYes.Value)
    WriteIni F, "Proxy", "SocksVer", IIf(optSocks4.Value, "4", "5")
    WriteIni F, "Register", "Email", txtEmail.text
    WriteIni F, "Register", "NewEmail", txtNewEmail.text
    Select Case cboProduct.ListIndex
        Case 1: WriteIni F, "Main", "ProductID", "SEXP"
        Case 2: WriteIni F, "Main", "ProductID", "D2DV"
        Case 3: WriteIni F, "Main", "ProductID", "D2XP"
        Case 4: WriteIni F, "Main", "ProductID", "W2BN"
        Case 5: WriteIni F, "Main", "ProductID", "WAR3"
        Case 6: WriteIni F, "Main", "ProductID", "W3XP"
        Case Else: WriteIni F, "Main", "ProductID", "STAR"
    End Select
    Select Case cboRegister.ListIndex
        Case 0, 1, 2, 3: WriteIni F, "Register", "Mode", cboRegister.ListIndex
        Case Else: WriteIni F, "Register", "Mode", "0"
    End Select
    
    Dim b As BNCS
    For Each b In frmBot.Bot
        If (b.Profile = lblProfile) Then
            LoadProfileValues AppData & "Profiles\" & b.Profile & ".ini", b
            Dim intTab As Integer
            intTab = BotToTabIndex(b.BotIndex)
            If intTab <> -1 Then
                frmBot.tbsProfile.Tabs(intTab).Caption = b.Profile
            End If
            Exit For
        End If
    Next
    
    If ProfileManager Then
        frmProfileManagement.Reload
    End If
    
    Unload Me
    Exit Sub
hErr:
    MsgBox "An error occurred when trying to save this profile: " & vbNewLine & Err.Description, vbCritical, "Save Profile"
    Unload Me
End Sub

