📄 startmenu.frm

📁 软件虽然小但可以隐藏磁盘分区和格式化
💻 FRM
📖 第 1 页 / 共 2 页
字号:
上一页 12
End If
'隐藏查找
If NoFind.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, "NoFind", 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, "NoFind", 0, 4, 0, 4)
  SS = RegCloseKey(ID)
End If
'/////////////////////////////////////////////////////////////
If NoRecentDocsMenu.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, "NoRecentDocsMenu", 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, "NoRecentDocsMenu", 0, 4, 0, 4)
  SS = RegCloseKey(ID)
End If
'隐藏收藏夹
If NoFavoritesMenu.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, "NoFavoritesMenu", 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, "NoFavoritesMenu", 0, 4, 0, 4)
  SS = RegCloseKey(ID)
End If
'隐藏设置中的任务主开始菜单
If NoSetTaskbar.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, "NoSetTaskbar", 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, "NoSetTaskbar", 0, 4, 0, 4)
  SS = RegCloseKey(ID)
End If
'在开始菜单和任务栏上禁用鼠标右键
If NoRightKey.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, "NoTrayContextMenu", 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, "NoTrayContextMenu", 0, 4, 0, 4)
  SS = RegCloseKey(ID)
End If
'更改时间显示样式
If ChangeTimeMode.Value = 1 Then
  SS = RegOpenKeyEx(&H80000001, "Control Panel", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "International", 0, KEY_ALL_ACCESS, ID)
  If Opt12.Value = True Then
    SS = RegSetValueEx(ID, "locale", 0, 1, ByVal "00000409", 8)
    SS = RegSetValueEx(ID, "S1159", 0, 1, ByVal Txt12.Text, 8)
    SS = RegSetValueEx(ID, "S2359", 0, 1, ByVal Txt24.Text, 8)
    SS = RegCloseKey(ID)
  Else
    SS = RegSetValueEx(ID, "locale", 0, 1, ByVal "00000804", 8)
  End If
End If
'隐藏开始中设置
If NoSetFolders.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, "NoSetFolders", 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, "NoSetFolders", 0, 3, 0, 4)
  SS = RegCloseKey(ID)
End If
'删除运行记录
If NoRunMemory.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 = RegDeleteKey(ID, "RunMRU")
End If
MsgBox "您已设置成功", vbSystemModal, "StartMenu"
Unload Me
End Sub

Private Sub Form_Load()
'隐藏关机原值
Dim NumNoClose As Long
  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 = RegQueryValueEx(ID, "NoClose", 0, 4, NumNoClose, 4)
  SS = RegCloseKey(ID)
  If NumNoClose = 1 Then
    NoClose.Value = 1
  Else
    NoClose.Value = 0
  End If
'隐藏注销原值
Dim NumLogoff As Long
  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 = RegQueryValueEx(ID, "NoLogOff", 0, 4, NumLogoff, 4)
  SS = RegCloseKey(ID)
  If NumLogoff = 1 Then
    NoLogOff.Value = 1
  Else
    NoLogOff.Value = 0
  End If
'隐藏运行原值
Dim NumRun As Long
  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 = RegQueryValueEx(ID, "Norun", 0, 4, NumRun, 4)
  SS = RegCloseKey(ID)
  If NumRun = 1 Then
    NoRun.Value = 1
  Else
    NoRun.Value = 0
  End If
'隐藏收藏夹原值
Dim NumFavoritesMenu As Long
  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 = RegQueryValueEx(ID, "NoFavoritesMenu", 0, 4, NumFavoritesMenu, 4)
  SS = RegCloseKey(ID)
  If NumFavoritesMenu = 1 Then
    NoFavoritesMenu.Value = 1
  Else
    NoFavoritesMenu.Value = 0
  End If
'设置任务栏开始菜单原值
Dim NumSetTaskbar As Long
  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 = RegQueryValueEx(ID, "NoSetTaskbar", 0, 4, NumSetTaskbar, 4)
  SS = RegCloseKey(ID)
  If NumSetTaskbar = 1 Then
    NoSetTaskbar.Value = 1
  Else
    NoSetTaskbar.Value = 0
  End If
'查找原值
Dim NumNoFind As Long
  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 = RegQueryValueEx(ID, "NoFind", 0, 4, NumNoFind, 4)
  SS = RegCloseKey(ID)
  If NumNoFind = 1 Then
    NoFind.Value = 1
  Else
    NoFind.Value = 0
  End If
'文档原值
Dim NumRecentDocsMenu As Long
  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 = RegQueryValueEx(ID, "NoRecentDocsMenu", 0, 4, NumRecentDocsMenu, 4)
  SS = RegCloseKey(ID)
  If NumRecentDocsMenu = 1 Then
    NoRecentDocsMenu.Value = 1
  Else
    NoRecentDocsMenu.Value = 0
  End If
'设置原值
'鼠标右键
Dim NumRightKey As Long
  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 = RegQueryValueEx(ID, "NoTrayContextMenu", 0, 4, NumRightKey, 4)
  SS = RegCloseKey(ID)
  If NumRightKey = 1 Then
    NoRightKey.Value = 1
  Else
    NoRightKey.Value = 0
  End If
'运行记录原值
  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, "RunMRU", 0, KEY_ALL_ACCESS, ID)
  If SS = ERROR_SUCCESS Then
    NoRunMemory.Value = 0
  Else
    NoRunMemory.Value = 1
  End If
End Sub

Private Sub Opt12_Click()
Txt12.Enabled = True
Txt24.Enabled = True
End Sub


Private Sub Opt24_Click()
  Txt12.Enabled = False
  Txt24.Enabled = False
End Sub
上一页 12
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -