📄 form1.frm
字号:
VERSION 5.00
Begin VB.Form Form1
BorderStyle = 1 'Fixed Single
Caption = "Windows Security Hacker - coded by Navarchy"
ClientHeight = 4350
ClientLeft = 45
ClientTop = 330
ClientWidth = 7500
Icon = "Form1.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4350
ScaleWidth = 7500
StartUpPosition = 3 'Windows Default
Begin VB.Timer Timer2
Interval = 500
Left = 1440
Top = 0
End
Begin VB.CommandButton focuser
Height = 195
Left = 2.40000e5
TabIndex = 45
Top = 120
Width = 135
End
Begin VB.CommandButton about
BackColor = &H00FF0000&
Caption = "About"
Height = 255
Left = 3360
MaskColor = &H8000000A&
Style = 1 'Graphical
TabIndex = 44
ToolTipText = "\/\/Information About This Program\/\/"
Top = 240
Width = 615
End
Begin VB.CommandButton openregedit
Caption = "RegEdit"
Height = 255
Left = 4080
TabIndex = 43
ToolTipText = "Open the Windows Registry Editing Tool"
Top = 240
Width = 855
End
Begin VB.CommandButton opendos
Caption = "DOS"
Height = 255
Left = 2520
TabIndex = 42
ToolTipText = "Open a Command Prompt"
Top = 240
Width = 735
End
Begin VB.Timer Timer1
Interval = 10000
Left = 480
Top = 4440
End
Begin VB.Frame Frame5
Caption = "Logon Message"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 855
Left = 5040
TabIndex = 40
Top = 3360
Width = 2415
Begin VB.TextBox logonmessage
Height = 285
Left = 120
TabIndex = 41
ToolTipText = "This is the Message That Will Appear When a User Logs Onto the System"
Top = 360
Width = 2175
End
End
Begin VB.Frame Frame4
Caption = "DOS"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 975
Left = 5040
TabIndex = 37
Top = 2280
Width = 2415
Begin VB.CheckBox winoldapp
Caption = "NoRealMode"
Height = 255
Index = 1
Left = 120
TabIndex = 39
ToolTipText = "Disable Single-Mode MS-DOS"
Top = 600
Width = 2175
End
Begin VB.CheckBox winoldapp
Caption = "Disabled"
Height = 255
Index = 0
Left = 120
TabIndex = 38
ToolTipText = "Disable MS-DOS Prompt"
Top = 360
Width = 2175
End
End
Begin VB.Frame Frame3
Caption = "Network"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1935
Left = 5040
TabIndex = 30
Top = 240
Width = 2415
Begin VB.CheckBox network
Caption = "NoPrintSharing"
Height = 255
Index = 5
Left = 120
TabIndex = 36
ToolTipText = "Disables Print Sharing Controls"
Top = 1560
Width = 2175
End
Begin VB.CheckBox network
Caption = "NoFileSharingControl"
Height = 255
Index = 4
Left = 120
TabIndex = 35
ToolTipText = "Disables File Sharing Controls"
Top = 1320
Width = 2175
End
Begin VB.CheckBox network
Caption = "NoNetSetupSecurityPage"
Height = 255
Index = 3
Left = 120
TabIndex = 34
ToolTipText = "Hides the Access Control Page"
Top = 1080
Width = 2175
End
Begin VB.CheckBox network
Caption = "NoNetSetupIDPage"
Height = 255
Index = 2
Left = 120
TabIndex = 33
ToolTipText = "Hides the Identification Page"
Top = 840
Width = 2175
End
Begin VB.CheckBox network
Caption = "NoNelSetup"
Height = 255
Index = 1
Left = 120
TabIndex = 32
ToolTipText = "Hides the Network Option in the Control Panel"
Top = 600
Width = 2175
End
Begin VB.CheckBox network
Caption = "NoNetSetupSecurityPage"
Height = 255
Index = 0
Left = 120
TabIndex = 31
ToolTipText = "Hides Network Security Page"
Top = 360
Width = 2175
End
End
Begin VB.Frame Frame2
Caption = "System"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 3615
Left = 2520
TabIndex = 16
Top = 600
Width = 2415
Begin VB.CheckBox system
Caption = "NoVirtMemPage"
Height = 255
Index = 12
Left = 120
TabIndex = 29
ToolTipText = "Hides Virtual Memory Button"
Top = 3240
Width = 2055
End
Begin VB.CheckBox system
Caption = "NoFileSysPage"
Height = 255
Index = 11
Left = 120
TabIndex = 28
ToolTipText = "Hides File System Button"
Top = 3000
Width = 2055
End
Begin VB.CheckBox system
Caption = "NoConfigPage"
Height = 255
Index = 10
Left = 120
TabIndex = 27
ToolTipText = "Hides Hardware Profiles Page"
Top = 2760
Width = 2055
End
Begin VB.CheckBox system
Caption = "NoDevMgrPage"
Height = 255
Index = 9
Left = 120
TabIndex = 26
ToolTipText = "Hides Device Manager Page"
Top = 2520
Width = 2055
End
Begin VB.CheckBox system
Caption = "NoProfilePage"
Height = 255
Index = 8
Left = 120
TabIndex = 25
ToolTipText = "Hides User Profiles Page"
Top = 2280
Width = 2055
End
Begin VB.CheckBox system
Caption = "NoAdminPage"
Height = 255
Index = 7
Left = 120
TabIndex = 24
ToolTipText = "Hides Remote Administration Page"
Top = 2040
Width = 2055
End
Begin VB.CheckBox system
Caption = "NoPwdPage"
Height = 255
Index = 6
Left = 120
TabIndex = 23
ToolTipText = "Hides Password Change Page"
Top = 1800
Width = 2055
End
Begin VB.CheckBox system
Caption = "NoSecCPL"
Height = 255
Index = 5
Left = 120
TabIndex = 22
ToolTipText = "Disables Password Control Panel"
Top = 1560
Width = 2055
End
Begin VB.CheckBox system
Caption = "NoDispSettingsPage"
Height = 255
Index = 4
Left = 120
TabIndex = 21
ToolTipText = "Hides Settings Page"
Top = 1320
Width = 2055
End
Begin VB.CheckBox system
Caption = "NoDispAppearancePage"
Height = 255
Index = 3
Left = 120
TabIndex = 20
ToolTipText = "Hides Appearance Page"
Top = 1080
Width = 2145
End
Begin VB.CheckBox system
Caption = "NoDispScrsavPage"
Height = 255
Index = 2
Left = 120
TabIndex = 19
ToolTipText = "Hides Screen Saver Page"
Top = 840
Width = 2055
End
Begin VB.CheckBox system
Caption = "NoDispBackgroundPage"
Height = 255
Index = 1
Left = 120
TabIndex = 18
ToolTipText = "Hides Background Page"
Top = 600
Width = 2175
End
Begin VB.CheckBox system
Caption = "NODispCPL"
Height = 255
Index = 0
Left = 120
TabIndex = 17
ToolTipText = "Hides Control Panel"
Top = 360
Width = 2055
End
End
Begin VB.Frame Frame1
Caption = "Explorer"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 4095
Left = 120
TabIndex = 0
Top = 120
Width = 2295
Begin VB.CheckBox explorer
Caption = "Nolnternetlcon"
Height = 255
Index = 14
Left = 120
TabIndex = 15
ToolTipText = "Removes the Internet (system folder) Icon From the Desktop"
Top = 3720
Width = 1935
End
Begin VB.CheckBox explorer
Caption = "ClearRecentDocsOnExit"
Height = 255
Index = 13
Left = 120
TabIndex = 14
ToolTipText = "Clears the Recent Documents System Folder on Shutdown"
Top = 3480
Width = 2055
End
Begin VB.CheckBox explorer
Caption = "NoRecentDocsHistory"
Height = 255
Index = 12
Left = 120
TabIndex = 13
ToolTipText = "Removes Recent Document System Folder From the Start Menu (IE 4 and above)"
Top = 3240
Width = 1935
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -