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

📄 internetexplorer.frm

📁 软件虽然小但可以隐藏磁盘分区和格式化
💻 FRM
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
         Caption         =   "另存功能"
         Height          =   300
         Left            =   120
         TabIndex        =   2
         Top             =   240
         Width           =   1095
      End
      Begin VB.CheckBox NoClose 
         Caption         =   "关闭功能"
         Height          =   255
         Left            =   120
         TabIndex        =   1
         Top             =   720
         Width           =   1095
      End
   End
End
Attribute VB_Name = "IE"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub CmdCancel_Click()
Unload Me
End Sub

Private Sub CmdOk_Click()
'限制Internet工具栏项
'关闭功能
If NoClose.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, "Restrictions", ID)
  SS = RegSetValueEx(ID, "NoBrowserClose", 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, "Restrictions", ID)
  SS = RegSetValueEx(ID, "NoBrowserClose", 0, 4, 0, 4)
  SS = RegCloseKey(ID)
End If
'另存
If NoSaveAs.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, "Restrictions", ID)
 SS = RegSetValueEx(ID, "NoBrowserSaveAs", 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, "Restrictions", ID)
 SS = RegSetValueEx(ID, "NoBrowserSaveAs", 0, 4, 0, 4)
 SS = RegCloseKey(ID)
End If
'新建
If NoFileNew.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, "Restrictions", ID)
 SS = RegSetValueEx(ID, "NoFileNew", 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, "Restrictions", ID)
 SS = RegSetValueEx(ID, "NoFileNew", 0, 4, 0, 4)
 SS = RegCloseKey(ID)
End If
'打开
If NoFileOpen.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, "Restrictions", ID)
 SS = RegSetValueEx(ID, "NoFileOpen", 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, "Restrictions", ID)
 SS = RegSetValueEx(ID, "NoFileOpen", 0, 4, 0, 4)
 SS = RegCloseKey(ID)
End If
'右键
If NoBrowserContextMenu.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, "Restrictions", ID)
  SS = RegSetValueEx(ID, "NoBrowserContextMenu", 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, "Restrictions", ID)
  SS = RegSetValueEx(ID, "NoBrowserContextMenu", 0, 4, 0, 4)
  SS = RegCloseKey(ID)
End If
'Internet选项功能
If NoBrowserOptions.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, "Restrictions", ID)
  SS = RegSetValueEx(ID, "NoBrowserOptions", 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, "Restrictions", ID)
  SS = RegSetValueEx(ID, "NoBrowserOptions", 0, 4, 0, 4)
  SS = RegCloseKey(ID)
End If
'收藏夹
If NoFavorites.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, "Restrictions", ID)
  SS = RegSetValueEx(ID, "NoFavorites", 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, "Restrictions", ID)
  SS = RegSetValueEx(ID, "NoFavorites", 0, 4, 0, 4)
  SS = RegCloseKey(ID)
End If
'看源文件
If NoViewSource.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, "Restrictions", ID)
  SS = RegSetValueEx(ID, "NoViewSource", 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, "Restrictions", ID)
  SS = RegSetValueEx(ID, "NoViewSource", 0, 4, 0, 4)
  SS = RegCloseKey(ID)
End If
'全屏
If NoTheaterMode.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, "Restrictions", ID)
  SS = RegSetValueEx(ID, "NoTheaterMode", 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, "Restrictions", ID)
  SS = RegSetValueEx(ID, "NoTheaterMode", 0, 4, 0, 4)
  SS = RegCloseKey(ID)
End If
'无法下载
If NoSelectDownLoadDir.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, "Restrictions", ID)
  SS = RegSetValueEx(ID, "NoSelectDownLoadDir", 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, "Restrictions", ID)
  SS = RegSetValueEx(ID, "NoSelectDownLoadDir", 0, 4, 0, 4)
  SS = RegCloseKey(ID)
End If
'限制Internet选项的页面
'常规
If NoGeneralTab.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, "GeneralTab", 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, "GeneralTab", 0, 4, 0, 4)
  SS = RegCloseKey(ID)
End If
'安全
If NoSecurityTab.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, "SecurityTab", 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, "SecurityTab", 0, 4, 0, 4)
  SS = RegCloseKey(ID)
End If
'内容
If NoContentTab.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, "ContentTab", 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, "ContentTab", 0, 4, 0, 4)
  SS = RegCloseKey(ID)
End If
'连接
If NoConnectionsTab.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, "ConnectionsTab", 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, "ConnectionsTab", 0, 4, 0, 4)
  SS = RegCloseKey(ID)
End If
'程序
If NoProgramsTab.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, "ProgramsTab", 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, "ProgramsTab", 0, 4, 0, 4)
  SS = RegCloseKey(ID)
End If
'高级
If NoAdvancedTab.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, "AdvancedTab", 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, "AdvancedTab", 0, 4, 0, 4)
  SS = RegCloseKey(ID)
End If
'限制Internet选项页面下的按钮
'颜色
If NoColors.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)
1234

⌨️ 快捷键说明

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