home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / RM_Secure20301611112006.psc / frmPassword.frm < prev    next >
Text File  |  2006-11-11  |  4KB  |  143 lines
  1. VERSION 5.00
  2. Begin VB.Form frmPassword 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "Change your password"
  5.    ClientHeight    =   2205
  6.    ClientLeft      =   6690
  7.    ClientTop       =   2535
  8.    ClientWidth     =   4965
  9.    BeginProperty Font 
  10.       Name            =   "Arial Unicode MS"
  11.       Size            =   8.25
  12.       Charset         =   0
  13.       Weight          =   400
  14.       Underline       =   0   'False
  15.       Italic          =   0   'False
  16.       Strikethrough   =   0   'False
  17.    EndProperty
  18.    Icon            =   "frmPassword.frx":0000
  19.    MaxButton       =   0   'False
  20.    MinButton       =   0   'False
  21.    ScaleHeight     =   2205
  22.    ScaleWidth      =   4965
  23.    ShowInTaskbar   =   0   'False
  24.    StartUpPosition =   1  'CenterOwner
  25.    Begin VB.TextBox txtNPass 
  26.       Appearance      =   0  'Flat
  27.       BorderStyle     =   0  'None
  28.       BeginProperty Font 
  29.          Name            =   "Wingdings"
  30.          Size            =   8.25
  31.          Charset         =   2
  32.          Weight          =   400
  33.          Underline       =   0   'False
  34.          Italic          =   0   'False
  35.          Strikethrough   =   0   'False
  36.       EndProperty
  37.       Height          =   180
  38.       IMEMode         =   3  'DISABLE
  39.       Left            =   315
  40.       PasswordChar    =   "l"
  41.       TabIndex        =   1
  42.       Top             =   1185
  43.       Width           =   3945
  44.    End
  45.    Begin VB.Frame frControls 
  46.       Caption         =   "Key Secure"
  47.       ForeColor       =   &H80000011&
  48.       Height          =   675
  49.       Left            =   -30
  50.       TabIndex        =   7
  51.       Top             =   1575
  52.       Width           =   5115
  53.       Begin VB.CommandButton cmdOK 
  54.          Caption         =   "&OK"
  55.          Default         =   -1  'True
  56.          Height          =   300
  57.          Left            =   4125
  58.          TabIndex        =   2
  59.          Top             =   240
  60.          Width           =   750
  61.       End
  62.       Begin VB.CommandButton cmdCancel 
  63.          Caption         =   "Cancel"
  64.          Height          =   300
  65.          Left            =   3390
  66.          TabIndex        =   3
  67.          Top             =   240
  68.          Width           =   750
  69.       End
  70.    End
  71.    Begin VB.Frame frLine 
  72.       Height          =   30
  73.       Left            =   -60
  74.       TabIndex        =   6
  75.       Top             =   750
  76.       Width           =   5490
  77.    End
  78.    Begin VB.TextBox txtOPass 
  79.       Appearance      =   0  'Flat
  80.       BorderStyle     =   0  'None
  81.       BeginProperty Font 
  82.          Name            =   "Wingdings"
  83.          Size            =   8.25
  84.          Charset         =   2
  85.          Weight          =   400
  86.          Underline       =   0   'False
  87.          Italic          =   0   'False
  88.          Strikethrough   =   0   'False
  89.       EndProperty
  90.       Height          =   180
  91.       IMEMode         =   3  'DISABLE
  92.       Left            =   315
  93.       PasswordChar    =   "l"
  94.       TabIndex        =   0
  95.       Top             =   435
  96.       Width           =   3945
  97.    End
  98.    Begin VB.Label lbl2 
  99.       Caption         =   "New password:"
  100.       Height          =   255
  101.       Left            =   150
  102.       TabIndex        =   5
  103.       Top             =   900
  104.       Width           =   4500
  105.    End
  106.    Begin VB.Label lbl1 
  107.       Caption         =   "Old password:"
  108.       Height          =   255
  109.       Left            =   150
  110.       TabIndex        =   4
  111.       Top             =   150
  112.       Width           =   4500
  113.    End
  114. End
  115. Attribute VB_Name = "frmPassword"
  116. Attribute VB_GlobalNameSpace = False
  117. Attribute VB_Creatable = False
  118. Attribute VB_PredeclaredId = True
  119. Attribute VB_Exposed = False
  120. Private Sub cmdCancel_Click()
  121.  
  122.     Unload Me
  123.  
  124. End Sub
  125.  
  126. '// Check if old password is correct and change password
  127. Private Sub cmdOK_Click()
  128.  
  129.     If txtOPass.Text = Password Then
  130.         Password = txtNPass.Text
  131.         Call GSSettings(SetS, False)
  132.         DoEvents
  133.         Unload Me
  134.     Else
  135.         MsgBox ("Invalid Password"), vbExclamation, "Key Security"
  136.         txtOPass.Text = ""
  137.         txtNPass.Text = ""
  138.         txtOPass.SetFocus
  139.     End If
  140.  
  141. End Sub
  142.  
  143.