📄 mycomputer.frm
字号:
End
Begin VB.TextBox TxtSysNumber
BackColor = &H80000000&
Height = 270
Left = 120
Locked = -1 'True
TabIndex = 13
Top = 1080
Width = 2655
End
Begin VB.TextBox TxtSysName
BackColor = &H80000000&
Height = 270
Left = 120
Locked = -1 'True
TabIndex = 11
Top = 480
Width = 2655
End
Begin VB.TextBox TxtVerNumber
BackColor = &H80000000&
Height = 270
Left = 120
Locked = -1 'True
TabIndex = 9
Top = 2880
Width = 2655
End
Begin VB.TextBox TxtVerName
BackColor = &H80000000&
Height = 270
Left = 120
Locked = -1 'True
TabIndex = 6
Top = 2280
Width = 2655
End
Begin VB.Label LabUserName
AutoSize = -1 'True
Caption = "用户名："
Height = 180
Left = 120
TabIndex = 22
Top = 3840
Width = 720
End
Begin VB.Label LabCompany
AutoSize = -1 'True
Caption = "用户单位："
Height = 180
Left = 120
TabIndex = 21
Top = 4440
Width = 900
End
Begin VB.Label LabIEVer
AutoSize = -1 'True
Caption = "IE版本号："
Height = 180
Left = 120
TabIndex = 16
Top = 3240
Width = 900
End
Begin VB.Label LabSysPassword
AutoSize = -1 'True
Caption = "产品密码："
Height = 180
Left = 120
TabIndex = 14
Top = 1440
Width = 900
End
Begin VB.Label LabSysNumber
AutoSize = -1 'True
Caption = "产品号码："
Height = 180
Left = 120
TabIndex = 12
Top = 840
Width = 900
End
Begin VB.Label LabSysName
AutoSize = -1 'True
Caption = "产品名称："
Height = 180
Left = 120
TabIndex = 10
Top = 240
Width = 900
End
Begin VB.Label LabVerNumber
AutoSize = -1 'True
Caption = "产品版本号："
Height = 180
Left = 120
TabIndex = 8
Top = 2640
Width = 1080
End
Begin VB.Label LabVerName
AutoSize = -1 'True
Caption = "产品版本名称："
Height = 180
Left = 120
TabIndex = 7
Top = 2040
Width = 1260
End
End
Begin VB.Frame Frame1
Height = 1695
Left = 3120
TabIndex = 0
Top = 2160
Width = 3135
Begin VB.CheckBox NoAutoRun
Caption = "禁止CD-ROM的自动运行功能"
Height = 255
Left = 120
TabIndex = 4
Top = 1320
Width = 2535
End
Begin VB.CheckBox ShowAttrib
Caption = "在我的电脑中直接显示文件属性"
Height = 255
Left = 120
TabIndex = 3
Top = 960
Width = 2895
End
Begin VB.CheckBox NoFile
Caption = "禁用我的电脑中的文件菜单"
Height = 255
Left = 120
TabIndex = 2
Top = 600
Width = 2535
End
Begin VB.CheckBox NoFolderOptions
Caption = "禁用我的电脑中文件夹选项功能"
Height = 255
Left = 120
TabIndex = 1
Top = 240
Width = 2895
End
End
Begin VB.Shape Shape3
BackColor = &H0080FFFF&
BackStyle = 1 'Opaque
Height = 1095
Left = 3600
Shape = 4 'Rounded Rectangle
Top = 4080
Width = 2655
End
Begin VB.Shape Shape2
BackColor = &H0080FFFF&
BackStyle = 1 'Opaque
Height = 255
Left = 3195
Shape = 3 'Circle
Top = 3975
Width = 375
End
Begin VB.Shape Shape1
BackColor = &H0080FFFF&
BackStyle = 1 'Opaque
Height = 255
Left = 3120
Shape = 3 'Circle
Top = 3840
Width = 135
End
End
Attribute VB_Name = "MyComputer"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub ChkDelLogoNote_Click()
If ChkDelLogoNote.Value = 1 Then
ChkLogoNote.Value = 0
TxtTitle.Text = ""
TxtTitle.Enabled = False
TxtContent.Text = ""
TxtContent.Enabled = False
End If
End Sub
Private Sub ChkLogoNote_Click()
If ChkLogoNote.Value = 1 Then
ChkDelLogoNote.Value = 0
TxtTitle.Enabled = True
TxtContent.Enabled = True
TxtTitle.BackColor = &H80000005
TxtContent.BackColor = &H80000005
Else
TxtTitle.Enabled = False
TxtContent.Enabled = False
TxtTitle.BackColor = &H8000000F
TxtContent.BackColor = &H8000000F
End If
End Sub
Private Sub CmdBrush_Click()
Dim m As MEMORYSTATUS
m.dwLength = Len(m)
GlobalMemoryStatus m
TxtPerCent = Str(m.dwMemoryLoad)
End Sub
Private Sub CmdCancel_Click()
Unload Me
End Sub
Private Sub CmdOk_Click()
'禁用文件夹选项功能
If NoFolderOptions.Value = 1 Then
Ss = RegOpenKeyEx(&H80000001, "software", 0, KEY_ALL_ACCESS, id)
Ss = RegOpenKeyEx(id, "microsoft", 0, KEY_ALL_ACCESS, id)
Ss = RegOpenKeyEx(id, "windows", 0, KEY_ALL_ACCESS, id)
Ss = RegOpenKeyEx(id, "currentversion", 0, KEY_ALL_ACCESS, id)
Ss = RegOpenKeyEx(id, "policies", 0, KEY_ALL_ACCESS, id)
Ss = RegOpenKeyEx(id, "explorer", 0, KEY_ALL_ACCESS, id)
Ss = RegSetValueEx(id, "NoFolderOptions", 0, 3, 1, 4)
Ss = RegCloseKey(id)
Else
Ss = RegOpenKeyEx(&H80000001, "software", 0, KEY_ALL_ACCESS, id)
Ss = RegOpenKeyEx(id, "microsoft", 0, KEY_ALL_ACCESS, id)
Ss = RegOpenKeyEx(id, "windows", 0, KEY_ALL_ACCESS, id)
Ss = RegOpenKeyEx(id, "currentversion", 0, KEY_ALL_ACCESS, id)
Ss = RegOpenKeyEx(id, "policies", 0, KEY_ALL_ACCESS, id)
Ss = RegOpenKeyEx(id, "explorer", 0, KEY_ALL_ACCESS, id)
Ss = RegSetValueEx(id, "NoFolderOptions", 0, 3, 0, 4)
Ss = RegCloseKey(id)
End If
'禁用我的电脑中的文件菜单
If NoFile.Value = 1 Then
Ss = RegOpenKeyEx(&H80000001, "software", 0, KEY_ALL_ACCESS, id)
Ss = RegOpenKeyEx(id, "microsoft", 0, KEY_ALL_ACCESS, id)
Ss = RegOpenKeyEx(id, "windows", 0, KEY_ALL_ACCESS, id)
Ss = RegOpenKeyEx(id, "currentversion", 0, KEY_ALL_ACCESS, id)
Ss = RegOpenKeyEx(id, "policies", 0, KEY_ALL_ACCESS, id)
Ss = RegOpenKeyEx(id, "explorer", 0, KEY_ALL_ACCESS, id)
Ss = RegSetValueEx(id, "NoFileMenu", 0, 4, 1, 4)
Ss = RegCloseKey(id)
Else
Ss = RegOpenKeyEx(&H80000001, "software", 0, KEY_ALL_ACCESS, id)
Ss = RegOpenKeyEx(id, "microsoft", 0, KEY_ALL_ACCESS, id)
Ss = RegOpenKeyEx(id, "windows", 0, KEY_ALL_ACCESS, id)
Ss = RegOpenKeyEx(id, "currentversion", 0, KEY_ALL_ACCESS, id)
Ss = RegOpenKeyEx(id, "policies", 0, KEY_ALL_ACCESS, id)
Ss = RegOpenKeyEx(id, "explorer", 0, KEY_ALL_ACCESS, id)
Ss = RegSetValueEx(id, "NoFileMenu", 0, 4, 0, 4)
Ss = RegCloseKey(id)
End If
'在我的电脑中直接显示文件属性
If ShowAttrib.Value = 1 Then
Ss = RegOpenKeyEx(&H80000001, "software", 0, KEY_ALL_ACCESS, id)
Ss = RegOpenKeyEx(id, "microsoft", 0, KEY_ALL_ACCESS, id)
Ss = RegOpenKeyEx(id, "windows", 0, KEY_ALL_ACCESS, id)
Ss = RegOpenKeyEx(id, "currentversion", 0, KEY_ALL_ACCESS, id)
Ss = RegOpenKeyEx(id, "explorer", 0, KEY_ALL_ACCESS, id)
Ss = RegOpenKeyEx(id, "advanced", 0, KEY_ALL_ACCESS, id)
Ss = RegSetValueEx(id, "ShowAttribCol", 0, 4, 1, 4)
Ss = RegCloseKey(id)
Else
Ss = RegOpenKeyEx(&H80000001, "software", 0, KEY_ALL_ACCESS, id)
Ss = RegOpenKeyEx(id, "microsoft", 0, KEY_ALL_ACCESS, id)
Ss = RegOpenKeyEx(id, "windows", 0, KEY_ALL_ACCESS, id)
Ss = RegOpenKeyEx(id, "currentversion", 0, KEY_ALL_ACCESS, id)
Ss = RegOpenKeyEx(id, "explorer", 0, KEY_ALL_ACCESS, id)
Ss = RegOpenKeyEx(id, "advanced", 0, KEY_ALL_ACCESS, id)
Ss = RegSetValueEx(id, "ShowAttribCol", 0, 4, 0, 4)
Ss = RegCloseKey(id)
End If
'禁止CD-ROM的自动运行功能
If NoAutoRun.Value = 1 Then
Ss = RegOpenKeyEx(&H80000001, "software", 0, KEY_ALL_ACCESS, id)
Ss = RegOpenKeyEx(id, "microsoft", 0, KEY_ALL_ACCESS, id)
Ss = RegOpenKeyEx(id, "windows", 0, KEY_ALL_ACCESS, id)
Ss = RegOpenKeyEx(id, "currentversion", 0, KEY_ALL_ACCESS, id)
Ss = RegOpenKeyEx(id, "policies", 0, KEY_ALL_ACCESS, id)
Ss = RegOpenKeyEx(id, "explorer", 0, KEY_ALL_ACCESS, id)
Ss = RegSetValueEx(id, "NoDriveTypeAutoRun", 0, 3, 181, 4)
Ss = RegCloseKey(id)
Else
Ss = RegOpenKeyEx(&H80000001, "software", 0, KEY_ALL_ACCESS, id)
Ss = RegOpenKeyEx(id, "microsoft", 0, KEY_ALL_ACCESS, id)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -