wincit/enterpas.frm

   1 VERSION 4.00
   2 Begin VB.Form EnterPassword
   3    Appearance      =   0  'Flat
   4    BackColor       =   &H00C0C0C0&
   5    BorderStyle     =   3  'Fixed Dialog
   6    ClientHeight    =   2625
   7    ClientLeft      =   960
   8    ClientTop       =   2820
   9    ClientWidth     =   6345
  10    ControlBox      =   0   'False
  11    BeginProperty Font
  12       name            =   "MS Sans Serif"
  13       charset         =   0
  14       weight          =   700
  15       size            =   8.25
  16       underline       =   0   'False
  17       italic          =   0   'False
  18       strikethrough   =   0   'False
  19    EndProperty
  20    ForeColor       =   &H80000008&
  21    Height          =   3030
  22    Left            =   900
  23    LinkTopic       =   "Form1"
  24    MaxButton       =   0   'False
  25    MDIChild        =   -1  'True
  26    MinButton       =   0   'False
  27    ScaleHeight     =   2625
  28    ScaleWidth      =   6345
  29    Top             =   2475
  30    Width           =   6465
  31    Begin VB.CommandButton CancelButton
  32       Appearance      =   0  'Flat
  33       BackColor       =   &H80000005&
  34       Caption         =   "Cancel"
  35       Height          =   492
  36       Left            =   3840
  37       TabIndex        =   5
  38       Top             =   2040
  39       Width           =   1692
  40    End
  41    Begin VB.CommandButton SetPass
  42       Appearance      =   0  'Flat
  43       BackColor       =   &H80000005&
  44       Caption         =   "Change Password"
  45       Height          =   492
  46       Left            =   840
  47       TabIndex        =   4
  48       Top             =   2040
  49       Width           =   1692
  50    End
  51    Begin VB.TextBox ConfPass
  52       Alignment       =   2  'Center
  53       Appearance      =   0  'Flat
  54       BackColor       =   &H00C0C0C0&
  55       BorderStyle     =   0  'None
  56       BeginProperty Font
  57          name            =   "Wingdings"
  58          charset         =   2
  59          weight          =   700
  60          size            =   13.5
  61          underline       =   0   'False
  62          italic          =   0   'False
  63          strikethrough   =   0   'False
  64       EndProperty
  65       Height          =   492
  66       Left            =   240
  67       TabIndex        =   3
  68       Top             =   1320
  69       Width           =   5892
  70    End
  71    Begin VB.TextBox NewPass
  72       Alignment       =   2  'Center
  73       Appearance      =   0  'Flat
  74       BackColor       =   &H00C0C0C0&
  75       BorderStyle     =   0  'None
  76       BeginProperty Font
  77          name            =   "Wingdings"
  78          charset         =   2
  79          weight          =   700
  80          size            =   13.5
  81          underline       =   0   'False
  82          italic          =   0   'False
  83          strikethrough   =   0   'False
  84       EndProperty
  85       Height          =   528
  86       Left            =   240
  87       TabIndex        =   2
  88       Top             =   360
  89       Width           =   5892
  90    End
  91    Begin Threed.SSFrame Frame3D1
  92       Height          =   855
  93       Left            =   120
  94       TabIndex        =   1
  95       Top             =   120
  96       Width           =   6135
  97       _Version        =   65536
  98       _ExtentX        =   10821
  99       _ExtentY        =   1508
 100       _StockProps     =   14
 101       Caption         =   "Enter new password:"
 102    End
 103    Begin Threed.SSFrame Frame3D2
 104       Height          =   855
 105       Left            =   120
 106       TabIndex        =   0
 107       Top             =   1080
 108       Width           =   6135
 109       _Version        =   65536
 110       _ExtentX        =   10821
 111       _ExtentY        =   1508
 112       _StockProps     =   14
 113       Caption         =   "Enter it again to verify:"
 114    End
 115 End
 116 Attribute VB_Name = "EnterPassword"
 117 Attribute VB_Creatable = False
 118 Attribute VB_Exposed = False
 119
 120 Private Sub CancelButton_Click()
 121     Unload EnterPassword
 122     Load RoomPrompt
 123 End Sub
 124
 125 Private Sub ConfPass_Change()
 126     If NewPass.Text <> "" And NewPass.Text = confpass.Text Then
 127         SetPass.Enabled = True
 128     Else
 129         SetPass.Enabled = False
 130         End If
 131
 132 End Sub
 133
 134 Private Sub Form_Load()
 135
 136     Show
 137     EnterPassword.WindowState = 0
 138     EnterPassword.Top = Int((MainWin.Height - EnterPassword.Height) / 3)
 139     EnterPassword.Left = Int((MainWin.Width - EnterPassword.Width) / 2)
 140     DoEvents
 141     SetPass.Enabled = False
 142     NewPass.Text = ""
 143     confpass.Text = ""
 144
 145 End Sub
 146
 147 Private Sub NewPass_Change()
 148     If NewPass.Text <> "" And NewPass.Text = confpass.Text Then
 149         SetPass.Enabled = True
 150     Else
 151         SetPass.Enabled = False
 152         End If
 153 End Sub
 154
 155 Private Sub SetPass_Click()
 156     If begin_trans() = True Then
 157         serv_puts ("SETP " + NewPass.Text)
 158         buf$ = serv_gets()
 159         If Left$(buf$, 1) <> "2" Then
 160             MsgBox Right$(buf$, Len(buf$) - 4), 48
 161             End If
 162         Unload EnterPassword
 163         Load RoomPrompt
 164         Call end_trans
 165         End If
 166 End Sub
 167