internetexplorer.frm

软件虽然小但可以隐藏磁盘分区和格式化

  SS = RegCreateKey(ID, "Restrictions", ID)
  SS = RegQueryValueEx(ID, "NoFavorites", 0, 4, NumNoFavorites, 4)
  SS = RegCloseKey(ID)
  If NumNoFavorites = 1 Then
    NoFavorites.Value = 1
  Else
    NoFavorites.Value = 0
  End If
'看源文件
Dim NumNoViewSource 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, "NoViewSource", 0, 4, NumNoViewSource, 4)
  SS = RegCloseKey(ID)
  If NumNoFavorites = 1 Then
    NoViewSource.Value = 1
  Else
    NoViewSource.Value = 0
  End If
'全屏
Dim NumNoTheaterMode 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, "NoTheaterMode", 0, 4, NumNoTheaterMode, 4)
  SS = RegCloseKey(ID)
  If NumNoTheaterMode = 1 Then
    NoTheaterMode.Value = 1
  Else
    NoTheaterMode.Value = 0
  End If
'无法下载
Dim NumNoSelectDownLoadDir 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, "NoSelectDownLoadDir", 0, 4, NumNoSelectDownLoadDir, 4)
  SS = RegCloseKey(ID)
  If NumNoSelectDownLoadDir = 1 Then
    NoSelectDownLoadDir.Value = 1
  Else
    NoSelectDownLoadDir.Value = 0
  End If
'///////////////////////限制Internet选项的页面
'常规
Dim NumGeneralTab 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, "Control Panel", ID)
  SS = RegQueryValueEx(ID, "GeneralTab", 0, 4, NumGeneralTab, 4)
  SS = RegCloseKey(ID)
  If NumGeneralTab = 1 Then
    NoGeneralTab.Value = 1
  Else
    NoGeneralTab.Value = 0
  End If
'安全
Dim NumSecurityTab 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, "Control Panel", ID)
  SS = RegQueryValueEx(ID, "SecurityTab", 0, 4, NumSecurityTab, 4)
  SS = RegCloseKey(ID)
  If NumSecurityTab = 1 Then
    NoSecurityTab.Value = 1
  Else
    NoSecurityTab.Value = 0
  End If
'内容
Dim NumContentTab 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, "Control Panel", ID)
  SS = RegQueryValueEx(ID, "ContentTab", 0, 4, NumContentTab, 4)
  SS = RegCloseKey(ID)
  If NumContentTab = 1 Then
    NoContentTab.Value = 1
  Else
    NoContentTab.Value = 0
  End If
'连接
Dim NumConnectionsTab 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, "Control Panel", ID)
  SS = RegQueryValueEx(ID, "ConnectionsTab", 0, 4, NumConnectionsTab, 4)
  SS = RegCloseKey(ID)
  If NumConnectionsTab = 1 Then
    NoConnectionsTab.Value = 1
  Else
    NoConnectionsTab.Value = 0
  End If
'程序
Dim NumProgramsTab 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, "Control Panel", ID)
  SS = RegQueryValueEx(ID, "ProgramsTab", 0, 4, NumProgramsTab, 4)
  SS = RegCloseKey(ID)
  If NumProgramsTab = 1 Then
    NoProgramsTab.Value = 1
  Else
    NoProgramsTab.Value = 0
  End If
'高级
Dim NumAdvancedTab 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, "Control Panel", ID)
  SS = RegQueryValueEx(ID, "AdvancedTab", 0, 4, NumAdvancedTab, 4)
  SS = RegCloseKey(ID)
  If NumAdvancedTab = 1 Then
    NoAdvancedTab.Value = 1
  Else
    NoAdvancedTab.Value = 0
  End If
'限制Internet选项页面下的按钮
'颜色
Dim NumColors 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, "Control Panel", ID)
  SS = RegQueryValueEx(ID, "Colors", 0, 4, NumColors, 4)
  SS = RegCloseKey(ID)
  If NumColors = 1 Then
    NoColors.Value = 1
  Else
    NoColors.Value = 0
  End If
'/语言
Dim NumLanguages 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, "Control Panel", ID)
  SS = RegQueryValueEx(ID, "Languages", 0, 4, NumLanguages, 4)
  SS = RegCloseKey(ID)
  If NumLanguages = 1 Then
    NoLanguages.Value = 1
  Else
    NoLanguages.Value = 0
  End If
'字体
Dim NumFonts 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, "Control Panel", ID)
  SS = RegQueryValueEx(ID, "Fonts", 0, 4, NumFonts, 4)
  SS = RegCloseKey(ID)
  If NumFonts = 1 Then
    NoFonts.Value = 1
  Else
    NoFonts.Value = 0
  End If
  
'监时文件
Dim NumCache 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, "Control Panel", ID)
  SS = RegQueryValueEx(ID, "Cache", 0, 4, NumCache, 4)
  SS = RegCloseKey(ID)
  If NumCache = 1 Then
    NoCache.Value = 1
  Else
    NoCache.Value = 0
  End If
'辅助功能
Dim NumAccessibility 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, "Control Panel", ID)
  SS = RegQueryValueEx(ID, "Accessibility", 0, 4, NumAccessibility, 4)
  SS = RegCloseKey(ID)
  If NumAccessibility = 1 Then
    NoAccessibility.Value = 1
  Else
    NoAccessibility.Value = 0
  End If
'连接
Dim NumConnectionSettings 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, "Control Panel", ID)
  SS = RegQueryValueEx(ID, "Connection settings", 0, 4, NumConnectionSettings, 4)
  SS = RegCloseKey(ID)
  If NumConnectionSettings = 1 Then
    NoConnectionSettings.Value = 1
  Else
    NoConnectionSettings.Value = 0
  End If
  
'主页设置
Dim NumHomePage 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, "Control Panel", ID)
  SS = RegQueryValueEx(ID, "HomePage", 0, 4, NumHomePage, 4)
  SS = RegCloseKey(ID)
  If NumHomePage = 1 Then
    NoHomePage.Value = 1
  Else
    NoHomePage.Value = 0
  End If
'内容中设置
Dim NumProfiles 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, "Control Panel", ID)
  SS = RegQueryValueEx(ID, "Profiles", 0, 4, NumProfiles, 4)
  SS = RegCloseKey(ID)
  If NumProfiles = 1 Then
    NoProfiles.Value = 1
  Else
    NoProfiles.Value = 0
  End If
'内容中证书
Dim NumCertificates 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, "Control Panel", ID)
  SS = RegQueryValueEx(ID, "Certificates", 0, 4, NumCertificates, 4)
  SS = RegCloseKey(ID)
  If NumCertificates = 1 Then
    NoCertificates.Value = 1
  Else
    NoCertificates.Value = 0
  End If
'检查浏览器
Dim NumCheckIfDefault 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, "Control Panel", ID)
  SS = RegQueryValueEx(ID, "Check_If_Default", 0, 4, NumCheckIfDefault, 4)
  SS = RegCloseKey(ID)
  If NumCheckIfDefault = 1 Then
    NoCheckIfDefault.Value = 1
  Else
    NoCheckIfDefault.Value = 0
  End If
 '高级页面
 Dim NumAdvanced 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, "Control Panel", ID)
  SS = RegQueryValueEx(ID, "Advanced", 0, 4, NumAdvanced, 4)
  SS = RegCloseKey(ID)
  If NumAdvanced = 1 Then
    NoAdvanced.Value = 1
  Else
    NoAdvanced.Value = 0
  End If
'重设Web
 Dim NumResetWebSettings 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, "Control Panel", ID)
  SS = RegQueryValueEx(ID, "ResetWebSettings", 0, 4, NumResetWebSettings, 4)
  SS = RegCloseKey(ID)
  If NumResetWebSettings = 1 Then
    NoResetWebSettings.Value = 1
  Else
    NoResetWebSettings.Value = 0
  End If
 'IE桌面图标
  Dim NumNoInternetIcon 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, "NoInternetIcon", 0, 4, NumNoInternetIcon, 4)
  SS = RegCloseKey(ID)
  If NumNoInternetIcon = 1 Then
    NoInternetIcon.Value = 1
  Else
    NoInternetIcon.Value = 0
  End If
End Sub