⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 internetexplorer.frm

📁 软件虽然小但可以隐藏磁盘分区和格式化
💻 FRM
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
  SS = RegSetValueEx(ID, "Colors", 0, 4, 1, 4)
  SS = RegCloseKey(ID)
Else
  SS = RegOpenKeyEx(&H80000001, "software", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "policies", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "Microsoft", 0, KEY_ALL_ACCESS, ID)
  SS = RegCreateKey(ID, "internet explorer", ID)
  SS = RegCreateKey(ID, "Control Panel", ID)
  SS = RegSetValueEx(ID, "Colors", 0, 4, 0, 4)
  SS = RegCloseKey(ID)
End If
'/语言
If NoLanguages.Value = 1 Then
  SS = RegOpenKeyEx(&H80000001, "software", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "policies", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "Microsoft", 0, KEY_ALL_ACCESS, ID)
  SS = RegCreateKey(ID, "internet explorer", ID)
  SS = RegCreateKey(ID, "Control Panel", ID)
  SS = RegSetValueEx(ID, "Languages", 0, 4, 1, 4)
  SS = RegCloseKey(ID)
Else
  SS = RegOpenKeyEx(&H80000001, "software", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "policies", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "Microsoft", 0, KEY_ALL_ACCESS, ID)
  SS = RegCreateKey(ID, "internet explorer", ID)
  SS = RegCreateKey(ID, "Control Panel", ID)
  SS = RegSetValueEx(ID, "Languages", 0, 4, 0, 4)
  SS = RegCloseKey(ID)
End If
'字体
If NoFonts.Value = 1 Then
  SS = RegOpenKeyEx(&H80000001, "software", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "policies", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "Microsoft", 0, KEY_ALL_ACCESS, ID)
  SS = RegCreateKey(ID, "internet explorer", ID)
  SS = RegCreateKey(ID, "Control Panel", ID)
  SS = RegSetValueEx(ID, "Fonts", 0, 4, 1, 4)
  SS = RegCloseKey(ID)
Else
  SS = RegOpenKeyEx(&H80000001, "software", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "policies", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "Microsoft", 0, KEY_ALL_ACCESS, ID)
  SS = RegCreateKey(ID, "internet explorer", ID)
  SS = RegCreateKey(ID, "Control Panel", ID)
  SS = RegSetValueEx(ID, "Fonts", 0, 4, 0, 4)
  SS = RegCloseKey(ID)
End If
'监时文件
If NoCache.Value = 1 Then
  SS = RegOpenKeyEx(&H80000001, "software", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "policies", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "Microsoft", 0, KEY_ALL_ACCESS, ID)
  SS = RegCreateKey(ID, "internet explorer", ID)
  SS = RegCreateKey(ID, "Control Panel", ID)
  SS = RegSetValueEx(ID, "Cache", 0, 4, 1, 4)
  SS = RegCloseKey(ID)
Else
  SS = RegOpenKeyEx(&H80000001, "software", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "policies", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "Microsoft", 0, KEY_ALL_ACCESS, ID)
  SS = RegCreateKey(ID, "internet explorer", ID)
  SS = RegCreateKey(ID, "Control Panel", ID)
  SS = RegSetValueEx(ID, "Cache", 0, 4, 0, 4)
  SS = RegCloseKey(ID)
End If
'辅助功能
If NoAccessibility.Value = 1 Then
  SS = RegOpenKeyEx(&H80000001, "software", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "policies", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "Microsoft", 0, KEY_ALL_ACCESS, ID)
  SS = RegCreateKey(ID, "internet explorer", ID)
  SS = RegCreateKey(ID, "Control Panel", ID)
  SS = RegSetValueEx(ID, "Accessibility", 0, 4, 1, 4)
  SS = RegCloseKey(ID)
Else
  SS = RegOpenKeyEx(&H80000001, "software", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "policies", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "Microsoft", 0, KEY_ALL_ACCESS, ID)
  SS = RegCreateKey(ID, "internet explorer", ID)
  SS = RegCreateKey(ID, "Control Panel", ID)
  SS = RegSetValueEx(ID, "Accessibility", 0, 4, 0, 4)
  SS = RegCloseKey(ID)
End If
'连接
If NoConnectionSettings.Value = 1 Then
  SS = RegOpenKeyEx(&H80000001, "software", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "policies", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "Microsoft", 0, KEY_ALL_ACCESS, ID)
  SS = RegCreateKey(ID, "internet explorer", ID)
  SS = RegCreateKey(ID, "Control Panel", ID)
  SS = RegSetValueEx(ID, "Connection settings", 0, 4, 1, 4)
  SS = RegCloseKey(ID)
Else
  SS = RegOpenKeyEx(&H80000001, "software", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "policies", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "Microsoft", 0, KEY_ALL_ACCESS, ID)
  SS = RegCreateKey(ID, "internet explorer", ID)
  SS = RegCreateKey(ID, "Control Panel", ID)
  SS = RegSetValueEx(ID, "Connection settings", 0, 4, 0, 4)
  SS = RegCloseKey(ID)
End If
'主页设置
If NoHomePage.Value = 1 Then
  SS = RegOpenKeyEx(&H80000001, "software", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "policies", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "Microsoft", 0, KEY_ALL_ACCESS, ID)
  SS = RegCreateKey(ID, "internet explorer", ID)
  SS = RegCreateKey(ID, "Control Panel", ID)
  SS = RegSetValueEx(ID, "HomePage", 0, 4, 1, 4)
  SS = RegCloseKey(ID)
Else
  SS = RegOpenKeyEx(&H80000001, "software", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "policies", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "Microsoft", 0, KEY_ALL_ACCESS, ID)
  SS = RegCreateKey(ID, "internet explorer", ID)
  SS = RegCreateKey(ID, "Control Panel", ID)
  SS = RegSetValueEx(ID, "HomePage", 0, 4, 0, 4)
  SS = RegCloseKey(ID)
End If
'重设Web
If NoResetWebSettings.Value = 1 Then
  SS = RegOpenKeyEx(&H80000001, "software", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "policies", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "Microsoft", 0, KEY_ALL_ACCESS, ID)
  SS = RegCreateKey(ID, "internet explorer", ID)
  SS = RegCreateKey(ID, "Control Panel", ID)
  SS = RegSetValueEx(ID, "ResetWebSettings", 0, 4, 1, 4)
  SS = RegCloseKey(ID)
Else
  SS = RegOpenKeyEx(&H80000001, "software", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "policies", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "Microsoft", 0, KEY_ALL_ACCESS, ID)
  SS = RegCreateKey(ID, "internet explorer", ID)
  SS = RegCreateKey(ID, "Control Panel", ID)
  SS = RegSetValueEx(ID, "ResetWebSettings", 0, 4, 0, 4)
  SS = RegCloseKey(ID)
End If
'内容中设置
If NoProfiles.Value = 1 Then
  SS = RegOpenKeyEx(&H80000001, "software", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "policies", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "Microsoft", 0, KEY_ALL_ACCESS, ID)
  SS = RegCreateKey(ID, "internet explorer", ID)
  SS = RegCreateKey(ID, "Control Panel", ID)
  SS = RegSetValueEx(ID, "Profiles", 0, 4, 1, 4)
  SS = RegCloseKey(ID)
Else
  SS = RegOpenKeyEx(&H80000001, "software", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "policies", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "Microsoft", 0, KEY_ALL_ACCESS, ID)
  SS = RegCreateKey(ID, "internet explorer", ID)
  SS = RegCreateKey(ID, "Control Panel", ID)
  SS = RegSetValueEx(ID, "Profiles", 0, 4, 0, 4)
  SS = RegCloseKey(ID)
End If
'内容中证书
If NoCertificates.Value = 1 Then
  SS = RegOpenKeyEx(&H80000001, "software", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "policies", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "Microsoft", 0, KEY_ALL_ACCESS, ID)
  SS = RegCreateKey(ID, "internet explorer", ID)
  SS = RegCreateKey(ID, "Control Panel", ID)
  SS = RegSetValueEx(ID, "Certificates", 0, 4, 1, 4)
  SS = RegCloseKey(ID)
Else
  SS = RegOpenKeyEx(&H80000001, "software", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "policies", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "Microsoft", 0, KEY_ALL_ACCESS, ID)
  SS = RegCreateKey(ID, "internet explorer", ID)
  SS = RegCreateKey(ID, "Control Panel", ID)
  SS = RegSetValueEx(ID, "Certificates", 0, 4, 0, 4)
  SS = RegCloseKey(ID)
End If
'检查浏览器
If NoCheckIfDefault.Value = 1 Then
  SS = RegOpenKeyEx(&H80000001, "software", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "policies", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "Microsoft", 0, KEY_ALL_ACCESS, ID)
  SS = RegCreateKey(ID, "internet explorer", ID)
  SS = RegCreateKey(ID, "Control Panel", ID)
  SS = RegSetValueEx(ID, "Check_If_Default", 0, 4, 1, 4)
  SS = RegCloseKey(ID)
Else
  SS = RegOpenKeyEx(&H80000001, "software", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "policies", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "Microsoft", 0, KEY_ALL_ACCESS, ID)
  SS = RegCreateKey(ID, "internet explorer", ID)
  SS = RegCreateKey(ID, "Control Panel", ID)
  SS = RegSetValueEx(ID, "Check_If_Default", 0, 4, 0, 4)
  SS = RegCloseKey(ID)
End If
'高级页面
If NoAdvanced.Value = 1 Then
  SS = RegOpenKeyEx(&H80000001, "software", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "policies", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "Microsoft", 0, KEY_ALL_ACCESS, ID)
  SS = RegCreateKey(ID, "internet explorer", ID)
  SS = RegCreateKey(ID, "Control Panel", ID)
  SS = RegSetValueEx(ID, "Advanced", 0, 4, 1, 4)
  SS = RegCloseKey(ID)
Else
  SS = RegOpenKeyEx(&H80000001, "software", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "policies", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "Microsoft", 0, KEY_ALL_ACCESS, ID)
  SS = RegCreateKey(ID, "internet explorer", ID)
  SS = RegCreateKey(ID, "Control Panel", ID)
  SS = RegSetValueEx(ID, "Advanced", 0, 4, 0, 4)
  SS = RegCloseKey(ID)
End If
'IE桌面图标
If NoInternetIcon.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, "NoInternetIcon", 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, "NoInternetIcon", 0, 4, 0, 4)
  SS = RegCloseKey(ID)
End If
MsgBox "您已设置成功", vbOKOnly, "InternetExplorer"
Unload Me
End Sub

Private Sub Form_Load()
'限制Internet工具栏项
'关闭功能
Dim NumNoClose As Long
  SS = RegOpenKeyEx(&H80000001, "software", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "policies", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "Microsoft", 0, KEY_ALL_ACCESS, ID)
  SS = RegCreateKey(ID, "internet explorer", ID)
  SS = RegCreateKey(ID, "Restrictions", ID)
  SS = RegQueryValueEx(ID, "NoBrowserClose", 0, 4, NumNoClose, 4)
  SS = RegCloseKey(ID)
  If NumNoClose = 1 Then
    NoClose.Value = 1
  Else
    NoClose.Value = 0
  End If
'另存
Dim NumNoSaveAs As Long
  SS = RegOpenKeyEx(&H80000001, "software", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "policies", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "Microsoft", 0, KEY_ALL_ACCESS, ID)
  SS = RegCreateKey(ID, "internet explorer", ID)
  SS = RegCreateKey(ID, "Restrictions", ID)
  SS = RegQueryValueEx(ID, "NoBrowserSaveAs", 0, 4, NumNoSaveAs, 4)
  SS = RegCloseKey(ID)
  If NumNoSaveAs = 1 Then
    NoSaveAs.Value = 1
  Else
    NoSaveAs.Value = 0
  End If
'新建
Dim NumFileNew As Long
  SS = RegOpenKeyEx(&H80000001, "software", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "policies", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "Microsoft", 0, KEY_ALL_ACCESS, ID)
  SS = RegCreateKey(ID, "internet explorer", ID)
  SS = RegCreateKey(ID, "Restrictions", ID)
  SS = RegQueryValueEx(ID, "NoFileNew", 0, 4, NumFileNew, 4)
  SS = RegCloseKey(ID)
  If NumFileNew = 1 Then
    NoFileNew.Value = 1
  Else
    NoFileNew.Value = 0
  End If
'打开
Dim NumFileOpen As Long
  SS = RegOpenKeyEx(&H80000001, "software", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "policies", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "Microsoft", 0, KEY_ALL_ACCESS, ID)
  SS = RegCreateKey(ID, "internet explorer", ID)
  SS = RegCreateKey(ID, "Restrictions", ID)
  SS = RegQueryValueEx(ID, "NoFileOpen", 0, 4, NumFileOpen, 4)
  SS = RegCloseKey(ID)
  If NumFileOpen = 1 Then
    NoFileOpen.Value = 1
  Else
    NoFileOpen.Value = 0
  End If
'右键
Dim NumNoBrowserContextMenu As Long
  SS = RegOpenKeyEx(&H80000001, "software", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "policies", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "Microsoft", 0, KEY_ALL_ACCESS, ID)
  SS = RegCreateKey(ID, "internet explorer", ID)
  SS = RegCreateKey(ID, "Restrictions", ID)
  SS = RegQueryValueEx(ID, "NoBrowserContextMenu", 0, 4, NumNoBrowserContextMenu, 4)
  SS = RegCloseKey(ID)
  If NumNoBrowserContextMenu = 1 Then
    NoBrowserContextMenu.Value = 1
  Else
    NoBrowserContextMenu.Value = 0
  End If
'Internet选项功能
Dim NumNoBrowserOptions As Long
  SS = RegOpenKeyEx(&H80000001, "software", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "policies", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "Microsoft", 0, KEY_ALL_ACCESS, ID)
  SS = RegCreateKey(ID, "internet explorer", ID)
  SS = RegCreateKey(ID, "Restrictions", ID)
  SS = RegQueryValueEx(ID, "NoBrowserOptions", 0, 4, NumNoBrowserOptions, 4)
  SS = RegCloseKey(ID)
  If NumNoBrowserOptions = 1 Then
    NoBrowserOptions.Value = 1
  Else
    NoBrowserOptions.Value = 0
  End If
'收藏夹
Dim NumNoFavorites As Long
  SS = RegOpenKeyEx(&H80000001, "software", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "policies", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "Microsoft", 0, KEY_ALL_ACCESS, ID)
  SS = RegCreateKey(ID, "internet explorer", ID)
1234

⌨️ 快捷键说明

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