📄 mainform.frm
字号:
VERSION 5.00
Begin VB.Form MainForm
BorderStyle = 3 'Fixed Dialog
Caption = "SysEdit2.0(试用范围Win98)"
ClientHeight = 4575
ClientLeft = 45
ClientTop = 330
ClientWidth = 3615
FillColor = &H00404040&
Icon = "MainForm.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4575
ScaleWidth = 3615
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin VB.Frame Frame2
BackColor = &H80000004&
Height = 975
Left = 0
TabIndex = 10
Top = 0
Width = 3615
Begin VB.CommandButton CmdCancel
Caption = "退出"
Height = 615
Left = 2760
Picture = "MainForm.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 = "MainForm.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 = &H80000004&
Caption = "系统设置(部分设置要在注销后才能生效)"
ForeColor = &H80000006&
Height = 3495
Left = 0
TabIndex = 0
Top = 1080
Width = 3615
Begin VB.Timer Timer2
Enabled = 0 'False
Interval = 100
Left = 2160
Top = 1080
End
Begin VB.Timer Timer1
Enabled = 0 'False
Interval = 1000
Left = 960
Top = 1080
End
Begin VB.CommandButton CmdAbout
Caption = "关于程序"
Height = 855
Left = 2520
Picture = "MainForm.frx":0CC6
Style = 1 'Graphical
TabIndex = 9
Top = 2520
Width = 975
End
Begin VB.CommandButton CmdPassword
Caption = "密码设置"
Height = 855
Left = 1320
Picture = "MainForm.frx":1108
Style = 1 'Graphical
TabIndex = 8
Top = 2520
Width = 975
End
Begin VB.CommandButton CmdElse
Caption = "其它设置"
Height = 855
Left = 120
Picture = "MainForm.frx":154A
Style = 1 'Graphical
TabIndex = 7
Top = 2520
Width = 975
End
Begin VB.CommandButton CmdMyComputer
Caption = "我的电脑"
Height = 855
Left = 2520
Picture = "MainForm.frx":198C
Style = 1 'Graphical
TabIndex = 6
Top = 1440
Width = 975
End
Begin VB.CommandButton CmdDeskTop
Caption = "桌面设置"
Height = 855
Left = 1320
Picture = "MainForm.frx":1C96
Style = 1 'Graphical
TabIndex = 5
Top = 1440
Width = 975
End
Begin VB.CommandButton CmdIE
Caption = "IE浏览器"
Height = 855
Left = 120
Picture = "MainForm.frx":1FA0
Style = 1 'Graphical
TabIndex = 4
Top = 1440
Width = 975
End
Begin VB.CommandButton CmdDisplay
Caption = "显示属性"
Height = 855
Left = 2520
Picture = "MainForm.frx":23E2
Style = 1 'Graphical
TabIndex = 3
Top = 360
Width = 975
End
Begin VB.CommandButton CmdHideDrive
Caption = "磁盘信息"
Height = 855
Left = 1320
Picture = "MainForm.frx":26EC
Style = 1 'Graphical
TabIndex = 2
Top = 360
Width = 975
End
Begin VB.CommandButton CmdStartMenu
Caption = "开始菜单"
Height = 855
Left = 120
Picture = "MainForm.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
Dim Counter As Integer
Private Sub Command1_Click()
StartMenu.Show
End Sub
Private Sub CmdAbout_Click()
AboutProgram.Show
End Sub
Private Sub CmdCancel_Click()
Timer1.Enabled = False
Timer2.Enabled = False
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()
DriveInfo.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
Timer1.Enabled = True
Timer2.Enabled = True
Frame1.Caption = "系统设置_操作状态(部分设置注销后生效)"
TxtPassWord.Text = ""
Else
MsgBox "密码错误,请重新输入", vbSystemModal, "警告"
TxtPassWord.Text = ""
Frame1.Enabled = False
Timer1.Enabled = False
Timer2.Enabled = False
Frame1.Caption = "系统设置_锁定状态"
MainForm.Caption = "SysEdit2.0(试用范围Win98)"
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()
If App.PrevInstance = True Then
MsgBox "程序已经运行", vbSystemModal, "SysEdit2.0"
End
End If
Frame1.Enabled = False
Frame1.Caption = "系统设置_锁定状态"
End Sub
Private Sub Form_Unload(Cancel As Integer)
Timer1.Enabled = False
Timer2.Enabled = False
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 Timer1_Timer()
If Frame1.ForeColor = &HFF& Then
Frame1.ForeColor = &HFF0000
Frame1.Caption = "系统设置(部分设置要在注销后才能生效)"
Else
Frame1.ForeColor = &HFF&
Frame1.Caption = "感谢您的使用,MyEmail:None_six@163.com"
End If
End Sub
Private Sub Timer2_Timer()
Dim MainFormMess As String
Dim MainFormMessLen As Integer
MainFormMess = "SysEdit2.0(试用范围Win98)"
MainFormMessLen = Len(MainFormMess)
Counter = Counter + 1
If Counter > MainFormMessLen Then
Counter = 0
End If
MainForm.Caption = Left(MainFormMess, Counter)
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -