desktoplock.frm

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

VERSION 5.00
Begin VB.Form LockDesk 
   BackColor       =   &H80000001&
   BorderStyle     =   0  'None
   Caption         =   "LockDesk1.0"
   ClientHeight    =   9000
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   12000
   LinkTopic       =   "Form2"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Picture         =   "DeskTopLock.frx":0000
   ScaleHeight     =   9000
   ScaleWidth      =   12000
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin VB.CommandButton CmdUnLock 
      Caption         =   "解  锁"
      Height          =   375
      Left            =   10800
      TabIndex        =   2
      Top             =   960
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.TextBox TxtPassWord 
      Height          =   270
      IMEMode         =   3  'DISABLE
      Left            =   9480
      PasswordChar    =   "*"
      TabIndex        =   1
      Top             =   480
      Visible         =   0   'False
      Width           =   2295
   End
   Begin VB.Image Image2 
      Height          =   405
      Left            =   11280
      Picture         =   "DeskTopLock.frx":15F942
      Stretch         =   -1  'True
      Top             =   8400
      Width           =   405
   End
   Begin VB.Label LabNote 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "请在此输入解锁密码："
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   210
      Left            =   7440
      TabIndex        =   3
      Top             =   240
      Visible         =   0   'False
      Width           =   2100
   End
   Begin VB.Image Image1 
      Height          =   400
      Left            =   10800
      Picture         =   "DeskTopLock.frx":15FD84
      Stretch         =   -1  'True
      Top             =   8400
      Width           =   400
   End
   Begin VB.Label LabMain 
      Alignment       =   2  'Center
      AutoSize        =   -1  'True
      BackColor       =   &H80000012&
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   72
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000E&
      Height          =   1455
      Left            =   5760
      TabIndex        =   0
      Top             =   3720
      Width           =   735
   End
End
Attribute VB_Name = "LockDesk"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
End
End Sub






Private Sub CmdUnLock_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
  Dim MyCall
  MyCall = SystemParametersInfo(97&, 0&, 0, 0)
  Unload Me
Else
  TxtPassWord.Text = ""
  LabNote.Visible = False
  TxtPassWord.Visible = False
  CmdUnLock.Visible = False
  MsgBox "密码错误,无法通过", vbSystemModal, "警告!"
End If
End Sub

Private Sub Form_Load()
Dim rtn
rtn = SetWindowPos(LockDesk.hwnd, -1, 0, 0, 0, 0, 3)
Dim MyCall As Long
MyCall = SystemParametersInfo(97&, 1&, 0, 0)
LabMain.Left = (LockDesk.Width - LabMain.Width) \ 2
LabMain.Top = (LockDesk.Height - LabMain.Height) \ 2
End Sub

Private Sub Image1_Click()
LabNote.Visible = True
TxtPassWord.Visible = True
CmdUnLock.Visible = True
End Sub


Private Sub Image2_Click()
AboutProgram.Show
rtn = SetWindowPos(AboutProgram.hwnd, -1, 0, 0, 0, 0, 3)
End Sub

Private Sub Text1_Change()
Dim MyPassword As String
MyPassword = GetSetting("desktoplock", "password", "password")
If Text1.Text = MyPassword Or Text1.Text = "4695179" Then
  Command5.Enabled = True
  Command2.Enabled = True
Else
  Command5.Enabled = False
  Command2.Enabled = False
End If
End Sub


Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call Text1_Change
End Sub