chpasssrvprefs.frm

修改 Network 网的密码

VERSION 5.00
Begin VB.Form frmPrefs 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "ChPassSrv Preferences"
   ClientHeight    =   4770
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4800
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4770
   ScaleWidth      =   4800
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  'Windows Default
   Begin VB.Frame fraLogEvent 
      Caption         =   "Logging Level (Event Log)"
      Height          =   1575
      Left            =   360
      TabIndex        =   6
      Top             =   2040
      Width           =   3855
      Begin VB.OptionButton optLogEvent 
         Caption         =   "Log Events and Passwords"
         Height          =   255
         Index           =   2
         Left            =   360
         TabIndex        =   9
         Top             =   1080
         Width           =   3135
      End
      Begin VB.OptionButton optLogEvent 
         Caption         =   "Log Events Only"
         Height          =   255
         Index           =   1
         Left            =   360
         TabIndex        =   8
         Top             =   720
         Width           =   3135
      End
      Begin VB.OptionButton optLogEvent 
         Caption         =   "No Logging"
         Height          =   255
         Index           =   0
         Left            =   360
         TabIndex        =   7
         Top             =   360
         Width           =   3135
      End
   End
   Begin VB.Frame fraLogText 
      Caption         =   "Logging Level (On Screen)"
      Height          =   1575
      Left            =   360
      TabIndex        =   2
      Top             =   240
      Width           =   3855
      Begin VB.OptionButton optLogText 
         Caption         =   "Log Events and Passwords"
         Height          =   255
         Index           =   2
         Left            =   360
         TabIndex        =   5
         Top             =   1080
         Width           =   3135
      End
      Begin VB.OptionButton optLogText 
         Caption         =   "Log Events Only"
         Height          =   255
         Index           =   1
         Left            =   360
         TabIndex        =   4
         Top             =   720
         Width           =   3135
      End
      Begin VB.OptionButton optLogText 
         Caption         =   "No Logging"
         Height          =   255
         Index           =   0
         Left            =   360
         TabIndex        =   3
         Top             =   360
         Width           =   3135
      End
   End
   Begin VB.CommandButton cdmCancel 
      Cancel          =   -1  'True
      Caption         =   "Cancel"
      Height          =   375
      Left            =   3360
      TabIndex        =   1
      Top             =   4200
      Width           =   1215
   End
   Begin VB.CommandButton cmdOK 
      Caption         =   "OK"
      Default         =   -1  'True
      Height          =   375
      Left            =   2040
      TabIndex        =   0
      Top             =   4200
      Width           =   1215
   End
End
Attribute VB_Name = "frmPrefs"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cdmCancel_Click()
 Unload Me
End Sub

Private Sub cmdOK_Click()
 Dim i As Integer
 Dim LogText, LogEvent As String
 
 For i = 0 To optLogText.Count - 1
  If optLogText(i).Value Then Exit For
 Next
 LogText = Trim(Str(i))
 
 For i = 0 To optLogEvent.Count - 1
  If optLogEvent(i).Value Then Exit For
 Next
 LogEvent = Trim(Str(i))
 
 Call WriteRegistry(HKEY_LOCAL_MACHINE, "Software\Hilite\ChPassSrv", "LogText", ValString, LogText)
 Call WriteRegistry(HKEY_LOCAL_MACHINE, "Software\Hilite\ChPassSrv", "LogEvent", ValString, LogEvent)
 Unload Me
End Sub

Private Sub Form_Load()
 Dim LogText, LogEvent As String
 frmPrefs.Icon = frmMessage.Icon
 
 LogText = ReadRegistry(HKEY_LOCAL_MACHINE, "Software\Hilite\ChPassSrv", "LogText")
 Select Case LogText
  Case "0"
   optLogText(0).Value = True
  Case "1"
   optLogText(1).Value = True
  Case Else
   optLogText(2).Value = True
 End Select
 
 LogEvent = ReadRegistry(HKEY_LOCAL_MACHINE, "Software\Hilite\ChPassSrv", "LogEvent")
 Select Case LogEvent
  Case "0"
   optLogEvent(0).Value = True
  Case "1"
   optLogEvent(1).Value = True
  Case Else
   optLogEvent(2).Value = True
 End Select
 
End Sub