sysedit2.frm

软件虽然小但可以隐藏磁盘分区和格式化

VERSION 5.00
Begin VB.Form MainForm 
   Caption         =   "SysEdit2.0(试用版,试用范围Win98)"
   ClientHeight    =   4590
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   3645
   ControlBox      =   0   'False
   FillColor       =   &H00404040&
   Icon            =   "sysedit2.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   ScaleHeight     =   4590
   ScaleWidth      =   3645
   StartUpPosition =   2  '屏幕中心
   Begin VB.Frame Frame2 
      BackColor       =   &H8000000B&
      Height          =   975
      Left            =   0
      TabIndex        =   10
      Top             =   0
      Width           =   3615
      Begin VB.CommandButton CmdCancel 
         Caption         =   "退出"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   615
         Left            =   2760
         Picture         =   "sysedit2.frx":0442
         Style           =   1  'Graphical
         TabIndex        =   14
         Top             =   240
         Width           =   735
      End
      Begin VB.TextBox TxtPassWord 
         Height          =   270
         IMEMode         =   3  'DISABLE
         Left            =   120
         PasswordChar    =   "*"
         TabIndex        =   12
         Top             =   585
         Width           =   1575
      End
      Begin VB.CommandButton CmdOk 
         Caption         =   "确定"
         Height          =   615
         Left            =   1920
         Picture         =   "sysedit2.frx":0884
         Style           =   1  'Graphical
         TabIndex        =   11
         Top             =   240
         Width           =   735
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "请在此输入密码："
         Height          =   180
         Left            =   240
         TabIndex        =   13
         Top             =   240
         Width           =   1440
      End
   End
   Begin VB.Frame Frame1 
      BackColor       =   &H8000000B&
      Caption         =   "系统设置(部分设置要在注销后才能生效)"
      ForeColor       =   &H80000006&
      Height          =   3495
      Left            =   0
      TabIndex        =   0
      Top             =   1080
      Width           =   3615
      Begin VB.Timer Timer1 
         Interval        =   1000
         Left            =   2160
         Top             =   1080
      End
      Begin VB.CommandButton CmdAbout 
         Caption         =   "关于程序"
         Height          =   855
         Left            =   2520
         Picture         =   "sysedit2.frx":0CC6
         Style           =   1  'Graphical
         TabIndex        =   9
         Top             =   2520
         Width           =   975
      End
      Begin VB.CommandButton CmdPassword 
         Caption         =   "密码设置"
         Height          =   855
         Left            =   1320
         Picture         =   "sysedit2.frx":1108
         Style           =   1  'Graphical
         TabIndex        =   8
         Top             =   2520
         Width           =   975
      End
      Begin VB.CommandButton CmdElse 
         Caption         =   "其它设置"
         Height          =   855
         Left            =   120
         Picture         =   "sysedit2.frx":154A
         Style           =   1  'Graphical
         TabIndex        =   7
         Top             =   2520
         Width           =   975
      End
      Begin VB.CommandButton CmdMyComputer 
         Caption         =   "我的电脑"
         Height          =   855
         Left            =   2520
         Picture         =   "sysedit2.frx":198C
         Style           =   1  'Graphical
         TabIndex        =   6
         Top             =   1440
         Width           =   975
      End
      Begin VB.CommandButton CmdDeskTop 
         Caption         =   "桌面设置"
         Height          =   855
         Left            =   1320
         Picture         =   "sysedit2.frx":1C96
         Style           =   1  'Graphical
         TabIndex        =   5
         Top             =   1440
         Width           =   975
      End
      Begin VB.CommandButton CmdIE 
         Caption         =   "IE浏览器"
         Height          =   855
         Left            =   120
         Picture         =   "sysedit2.frx":1FA0
         Style           =   1  'Graphical
         TabIndex        =   4
         Top             =   1440
         Width           =   975
      End
      Begin VB.CommandButton CmdDisplay 
         Caption         =   "显示属性"
         Height          =   855
         Left            =   2520
         Picture         =   "sysedit2.frx":23E2
         Style           =   1  'Graphical
         TabIndex        =   3
         Top             =   360
         Width           =   975
      End
      Begin VB.CommandButton CmdHideDrive 
         Caption         =   "磁盘隐藏"
         Height          =   855
         Left            =   1320
         Picture         =   "sysedit2.frx":26EC
         Style           =   1  'Graphical
         TabIndex        =   2
         Top             =   360
         Width           =   975
      End
      Begin VB.CommandButton CmdStartMenu 
         Caption         =   "开始菜单"
         Height          =   855
         Left            =   120
         Picture         =   "sysedit2.frx":2B2E
         Style           =   1  'Graphical
         TabIndex        =   1
         Top             =   360
         Width           =   975
      End
   End
End
Attribute VB_Name = "MainForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Command1_Click()
StartMenu.Show
End Sub

Private Sub CmdAbout_Click()
AboutProgram.Show
End Sub

Private Sub CmdCancel_Click()
MainForm.Caption = "再见"
Flag = False
If MainForm.WindowState <> 1 Then
  Dim I As Long
  For I = 50 To MainForm.Height
    If MainForm.Height > 400 Then
      MainForm.Height = MainForm.Height - 1
    End If
  Next I
  For I = 50 To MainForm.Width
    If MainForm.Width > 500 Then
      MainForm.Width = MainForm.Width - 1
    End If
  Next I
End If
End
End Sub

Private Sub CmdDeskTop_Click()
DeskTopSet.Show
End Sub

Private Sub CmdDisplay_Click()
DisPlay.Show
End Sub

Private Sub CmdElse_Click()
ElseSet.Show
End Sub

Private Sub CmdHideDrive_Click()
HideDrive.Show
End Sub

Private Sub CmdIE_Click()
IE.Show
End Sub


Private Sub CmdMyComputer_Click()
MyComputer.Show
End Sub

Private Sub CmdOk_Click()
Dim PassWordGo As String
Dim Pass() As Byte
Dim PassLen As Integer
Dim LoadPassword As String
PassLen = Len(TxtPassWord.Text)
ReDim Pass(PassLen) As Byte
For I = 0 To PassLen - 1
  Pass(I) = Asc(Mid(TxtPassWord.Text, I + 1, 1))
  PassWordGo = PassWordGo + Str(Pass(I) Xor 100)
Next I
LoadPassword = GetSetting("Sysedit2", "Password", "Password")
If TxtPassWord.Text = "83251" Or PassWordGo = LoadPassword Then
  Frame1.Enabled = True
  Frame1.Caption = "系统设置_操作状态(部分设置注销后生效)"
Else
  MsgBox "密码错误,请重新输入", vbSystemModal, "警告"
  TxtPassWord.Text = ""
End If
End Sub

Private Sub CmdPassword_Click()
Password.Show
End Sub

Private Sub CmdStartMenu_Click()
StartMenu.Show
End Sub

Private Sub Command10_Click()





End Sub



Private Sub Command11_Click()

End Sub

Private Sub Form_Load()
Frame1.Enabled = False
Frame1.Caption = "系统设置_锁定状态"
End Sub

Private Sub Timer1_Timer()
If Frame1.ForeColor = &HFF& Then
  Frame1.ForeColor = &HFF0000
Else
  Frame1.ForeColor = &HFF&
End If
End Sub