home *** CD-ROM | disk | FTP | other *** search
/ The Mother of All Windows Books / CD-MOM.iso / cd_mom / newsletr / vbz / vbz1-3 / ssgetpw.frm < prev    next >
Text File  |  1993-06-24  |  3KB  |  103 lines
  1. VERSION 2.00
  2. Begin Form frmGetPW 
  3.    BorderStyle     =   3  'Fixed Double
  4.    Caption         =   "Screen Saver"
  5.    Height          =   3315
  6.    Left            =   1665
  7.    LinkTopic       =   "Form1"
  8.    MaxButton       =   0   'False
  9.    MinButton       =   0   'False
  10.    ScaleHeight     =   2910
  11.    ScaleWidth      =   4335
  12.    Top             =   1635
  13.    Width           =   4455
  14.    Begin CommandButton Command2 
  15.       Cancel          =   -1  'True
  16.       Caption         =   "Cancel"
  17.       Height          =   495
  18.       Left            =   2760
  19.       TabIndex        =   5
  20.       Top             =   2040
  21.       Width           =   1095
  22.    End
  23.    Begin CommandButton Command1 
  24.       Caption         =   "Ok"
  25.       Default         =   -1  'True
  26.       Height          =   495
  27.       Left            =   480
  28.       TabIndex        =   4
  29.       Top             =   2040
  30.       Width           =   1095
  31.    End
  32.    Begin TextBox txtPassWord 
  33.       Height          =   420
  34.       Left            =   1920
  35.       MaxLength       =   20
  36.       PasswordChar    =   "*"
  37.       TabIndex        =   3
  38.       Top             =   1275
  39.       Width           =   2055
  40.    End
  41.    Begin Label Label3 
  42.       Caption         =   "Password:"
  43.       Height          =   255
  44.       Left            =   720
  45.       TabIndex        =   2
  46.       Top             =   1395
  47.       Width           =   975
  48.    End
  49.    Begin Label Label2 
  50.       BackStyle       =   0  'Transparent
  51.       Caption         =   "!"
  52.       FontBold        =   -1  'True
  53.       FontItalic      =   0   'False
  54.       FontName        =   "Arial"
  55.       FontSize        =   27.75
  56.       FontStrikethru  =   0   'False
  57.       FontUnderline   =   0   'False
  58.       Height          =   615
  59.       Left            =   300
  60.       TabIndex        =   1
  61.       Top             =   120
  62.       Width           =   135
  63.    End
  64.    Begin Shape Shape1 
  65.       BackColor       =   &H0000FFFF&
  66.       BackStyle       =   1  'Opaque
  67.       Height          =   495
  68.       Left            =   120
  69.       Shape           =   3  'Circle
  70.       Top             =   195
  71.       Width           =   495
  72.    End
  73.    Begin Label Label1 
  74.       Caption         =   "The screen saver you are using is password protected. You must type in the screen save password to turn off the screen saver."
  75.       Height          =   975
  76.       Left            =   840
  77.       TabIndex        =   0
  78.       Top             =   195
  79.       Width           =   3255
  80.    End
  81. End
  82.  
  83. Sub Command1_Click ()
  84.     Text$ = txtPassWord.Text
  85.     EncryptString Text$
  86.     If Text$ = IniPassword$ Then
  87.         EnteredCorrectPassword = True
  88.     Else
  89.         Title$ = "Screen Saver"
  90.         Mess$ = "Incorrect password;" + Chr$(13) + Chr$(13) + "Check your screen saver password and try again."
  91.         MsgBox Mess$, 16, Title$
  92.         Ok = DoEvents()
  93.         EnteredCorrectPassword = False
  94.     End If
  95.     Unload Me
  96. End Sub
  97.  
  98. Sub Command2_Click ()
  99.     EnteredCorrectPassword = False
  100.     Unload Me
  101. End Sub
  102.  
  103.