كلاس كامل للتحكم فى النظام | VB.NET Class to control system

Public Class WinSetting
Public Class Desktop
Public Sub ShowWindowsVersionOnDesktop(ByVal Enable As Boolean)
Select Case Enable
Case True
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Control Panel\Desktop", "PaintDesktopVersion", 1, Microsoft.Win32.RegistryValueKind.DWord)
Case False
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Control Panel\Desktop", "PaintDesktopVersion", 0, Microsoft.Win32.RegistryValueKind.DWord)
End Select
End Sub
Public Sub DisableDesktopCleanupWizard(ByVal Enable As Boolean)
Select Case Enable
Case True
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Desktop\CleanupWiz", "NoRun", 0, Microsoft.Win32.RegistryValueKind.DWord)
Case False
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Desktop\CleanupWiz", "NoRun", 1, Microsoft.Win32.RegistryValueKind.DWord)
End Select
End Sub
Public Sub HideTheInternetExplorerIcon(ByVal Enable As Boolean)
Select Case Enable
Case True
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoInternetIcon", 0, Microsoft.Win32.RegistryValueKind.DWord)

Case False
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoInternetIcon", 1, Microsoft.Win32.RegistryValueKind.DWord)
End Select
End Sub
Public Sub RemoveMyDocumentsFromTheDesktop(ByVal Enable As Boolean)
Select Case Enable
Case True
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\CLSID\{450D8FBA-AD25-11D0-98A8-0800361B1103}\ShellFolder", "Attributes", "0xf0400174 ", Microsoft.Win32.RegistryValueKind.DWord)

Case False
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\CLSID\{450D8FBA-AD25-11D0-98A8-0800361B1103}\ShellFolder", "Attributes", "0xf0500174 ", Microsoft.Win32.RegistryValueKind.DWord)
End Select
End Sub
Public Sub DisableTheRecycleBin(ByVal Enable As Boolean)
Select Case Enable
Case True
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\BitBucket", "NukeOnDelete", "0", Microsoft.Win32.RegistryValueKind.DWord)
Case False
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\BitBucket", "NukeOnDelete", "1", Microsoft.Win32.RegistryValueKind.DWord)
End Select
End Sub
Public Sub ChangeTheRecycleBinIcons(ByVal EmptyIconFileName As String, ByVal FullIconFileName As String)
If IO.File.Exists(EmptyIconFileName) = False Or IO.File.Exists(FullIconFileName) = False Then
Exit Sub
Else
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\CLSID\{645FF040-5081-101B-9F08-00AA002F954E}\DefaultIcon", "Empty", EmptyIconFileName, Microsoft.Win32.RegistryValueKind.String)
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\CLSID\{645FF040-5081-101B-9F08-00AA002F954E}\DefaultIcon", "Full", FullIconFileName, Microsoft.Win32.RegistryValueKind.String)
End If
End Sub
Public Sub ChangeDesktopIconSize(ByVal Size As Integer)
If Size = Nothing Then Exit Sub
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Control Panel\Desktop\WindowMetrics", "Shell Icon Size", Size, Microsoft.Win32.RegistryValueKind.String)
End Sub
Public Sub DisableContextMenuOfDesktop(ByVal enable As Boolean)
Select Case enable
Case True
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoViewContextMenu", "0", Microsoft.Win32.RegistryValueKind.DWord)
Case False
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoViewContextMenu", "1", Microsoft.Win32.RegistryValueKind.DWord)
End Select
End Sub
End Class
Public Class Direct
Public Sub DisableAGPSupport(ByVal Enable As Boolean)
Select Case Enable
Case True
My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\DirectDraw", "DisableAGPSupport", 0, Microsoft.Win32.RegistryValueKind.DWord)
Case False
My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\DirectDraw", "DisableAGPSupport", 1, Microsoft.Win32.RegistryValueKind.DWord)
End Select
End Sub
Public Sub DisableMMX(ByVal Enable As Boolean)
Select Case Enable
Case True
My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\DirectDraw", "DisableMMX", 0, Microsoft.Win32.RegistryValueKind.DWord)
Case False
My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\DirectDraw", "DisableMMX", 1, Microsoft.Win32.RegistryValueKind.DWord)
End Select
End Sub
Public Sub DisableWiderSurfaces(ByVal Enable As Boolean)
Select Case Enable
Case True
My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\DirectDraw", "DisableWiderSurfaces", 0, Microsoft.Win32.RegistryValueKind.DWord)
Case False
My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\DirectDraw", "DisableWiderSurfaces", 1, Microsoft.Win32.RegistryValueKind.DWord)
End Select
End Sub
Public Sub DisableInactivate(ByVal Enable As Boolean)
Select Case Enable
Case True
My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\DirectDraw", "DisableInactivate", 0, Microsoft.Win32.RegistryValueKind.DWord)
Case False
My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\DirectDraw", "DisableInactivate", 1, Microsoft.Win32.RegistryValueKind.DWord)
End Select
End Sub
Public Sub EnablePrintScreen(ByVal Enable As Boolean)
Select Case Enable
Case True
My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\DirectDraw", "EnablePrintScreen", 0, Microsoft.Win32.RegistryValueKind.DWord)
Case False
My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\DirectDraw", "EnablePrintScreen", 1, Microsoft.Win32.RegistryValueKind.DWord)
End Select
End Sub
Public Sub ModeXOnly(ByVal Enable As Boolean)
Select Case Enable
Case True
My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\DirectDraw", "ModeXOnly", 0, Microsoft.Win32.RegistryValueKind.DWord)
Case False
My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\DirectDraw", "ModeXOnly", 1, Microsoft.Win32.RegistryValueKind.DWord)
End Select
End Sub
Public Sub ShowFrameRate(ByVal Enable As Boolean)
Select Case Enable
Case True
My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\DirectDraw", "ShowFrameRate", 0, Microsoft.Win32.RegistryValueKind.DWord)
Case False
My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\DirectDraw", "ShowFrameRate", 1, Microsoft.Win32.RegistryValueKind.DWord)
End Select
End Sub
Public Sub DisableNoSysLock(ByVal Enable As Boolean)
Select Case Enable
Case True
My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\DirectDraw", "DisableNoSysLock", 0, Microsoft.Win32.RegistryValueKind.DWord)
Case False
My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\DirectDraw", "DisableNoSysLock", 1, Microsoft.Win32.RegistryValueKind.DWord)
End Select
End Sub
Public Sub ForceNoSysLock(ByVal Enable As Boolean)
Select Case Enable
Case True
My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\DirectDraw", "ForceNoSysLock", 0, Microsoft.Win32.RegistryValueKind.DWord)
Case False
My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\DirectDraw", "ForceNoSysLock", 1, Microsoft.Win32.RegistryValueKind.DWord)
End Select
End Sub
Public Sub EmulationOnly(ByVal Enable As Boolean)
Select Case Enable
Case True
My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\DirectDraw", "EmulationOnly", 0, Microsoft.Win32.RegistryValueKind.DWord)
Case False
My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\DirectDraw", "EmulationOnly", 1, Microsoft.Win32.RegistryValueKind.DWord)
End Select
End Sub
End Class
Public Class Drives
Public Sub SetIcon(ByVal Drivename As String, ByVal IconFileName As String)
If IO.File.Exists(IconFileName) = True And IO.Path.GetExtension(IconFileName) = ".ico" Then
My.Computer.Registry.SetValue("hKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DriveIcons\" & Drivename & "\Defaulticon", "", IconFileName)
Else
MsgBox("الملف غير موجود أو نوعه غير معروف", MsgBoxStyle.Critical, "خطأ")
End If
End Sub
Public Sub Setlabel(ByVal Drivename As String, ByVal label As String)
If Drivename = Nothing Or label = Nothing Then
MsgBox("لم تدخل أسم القرص أو القيمة ", MsgBoxStyle.Critical, "خطأ")
Else
My.Computer.Registry.SetValue("hKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DriveIcons\" & Drivename & "\Defaultlabel", "", label)
End If
End Sub
Public Sub SetDriveBackGround(ByVal Drive As String, ByVal FileName As String)
If IO.File.Exists(FileName) = True Then
Dim a As String
a = "[ExtShellFolderViews]" & vbCrLf
a = a & "{BE098140-A513-11D0-A3A4-00C04FD706EC}={BE098140-A513-11D0-A3A4-00C04FD706EC}" & vbCrLf
a = a & "[.ShellClassInfo]" & vbCrLf
a = a & "ConfirmFileOp=0" & vbCrLf
a = a & "[{BE098140-A513-11D0-A3A4-00C04FD706EC}]" & vbCrLf
a = a & "Attributes=1" & vbCrLf
IO.Directory.CreateDirectory(Drive & "WinFolderSetting")
Dim o As String
o = Drive & "WinFolderSetting\" & "BackGround" & IO.Path.GetExtension(FileName)
If IO.File.Exists(o) = True Then
IO.File.Delete(o)
End If
IO.File.Copy(FileName, o)
a = a & "IconArea_Image = " & o
If IO.File.Exists(Drive & "Desktop.ini") = True Then
IO.File.Delete(Drive & "Desktop.ini")
End If
Dim s As IO.StreamWriter = New IO.StreamWriter(Drive & "Desktop.ini")
SetAttr(Drive & "Desktop.ini", FileAttribute.System + FileAttribute.Hidden)
Dim i As IO.DirectoryInfo
i = My.Computer.FileSystem.GetDirectoryInfo(Drive & "WinFolderSetting\")
i.Attributes = IO.FileAttributes.System + IO.FileAttributes.Hidden
s.Write(a)
s.Close()
Else
MsgBox("The File Is Not Found ", MsgBoxStyle.Critical, "Error")
End If
End Sub
End Class
Public Class InterExplo
Public Sub SetSearchPage(ByVal URL As String)
If URL = Nothing Then
MsgBox("لم تقم بوضع مسار", MsgBoxStyle.Critical, "خطأ")
Else
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Search Page", URL)
End If
End Sub
Public Sub SetStartPage(ByVal URL As String)
If URL = Nothing Then
MsgBox("لم تقم بوضع مسار", MsgBoxStyle.Critical, "خطأ")
Else
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Start Page", URL)
End If
End Sub
Public Sub MaxNetSpeed()
My.Computer.Registry.SetValue("HKEY_USERS\. DEFAULT\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "MaxConnectionsPerServer", "00000020", Microsoft.Win32.RegistryValueKind.DWord)
My.Computer.Registry.SetValue("HKEY_USERS\. DEFAULT\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "MaxConnectionsPer1_0Server", "00000020", Microsoft.Win32.RegistryValueKind.DWord)
My.Computer.Registry.LocalMachine.DeleteSubKey("Software\Microsoft\Windows\CurrentVersion\Explorer\RemoteComputer\NameSpace\{D6277990-4C6A-11CF-8D87-00AA0060F5BF}")
End Sub
Public Sub AutoHide(ByVal Enable As Boolean)
Select Case Enable
Case True
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "AutoHide", "Yes")
Case False
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "AutoHide", "no")
End Select
End Sub
Public Sub DisableScriptDebugger(ByVal Enable As Boolean)
Select Case Enable
Case True
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Disable Script Debugger", "Yes")
Case False
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Disable Script Debugger", "no")
End Select
End Sub
Public Sub DisableScriptDebuggerIE(ByVal Enable As Boolean)
Select Case Enable
Case True
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "DisableScriptDebuggerIE", "Yes")
Case False
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "DisableScriptDebuggerIE", "no")
End Select
End Sub
Public Sub DisplayInlineImages(ByVal Enable As Boolean)
Select Case Enable
Case True
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Display Inline Images", "Yes")
Case False
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Display Inline Images", "no")
End Select
End Sub
Public Sub DisplayInlineVideos(ByVal Enable As Boolean)
Select Case Enable
Case True
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Display Inline Videos", "Yes")
Case False
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Display Inline Videos", "no")
End Select
End Sub
Public Sub EnableAutoImageResize(ByVal Enable As Boolean)
Select Case Enable
Case True
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Enable AutoImageResize", "Yes")
Case False
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Enable AutoImageResize", "no")
End Select
End Sub
Public Sub EnableBrowserExtensions(ByVal Enable As Boolean)
Select Case Enable
Case True
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Enable Browser Extensions", "Yes")
Case False
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Enable Browser Extensions", "no")
End Select
End Sub
Public Sub EnableMyPicsHoverbar(ByVal Enable As Boolean)
Select Case Enable
Case True
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Enable_MyPics_Hoverbar", "Yes")
Case False
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Enable_MyPics_Hoverbar", "no")
End Select
End Sub
Public Sub ErrorDlgDisplayedOnEveryError(ByVal Enable As Boolean)
Select Case Enable
Case True
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Error Dlg Displayed On Every Error", "Yes")
Case False
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Error Dlg Displayed On Every Error", "no")
End Select
End Sub
Public Sub ExpandAltText(ByVal Enable As Boolean)
Select Case Enable
Case True
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Expand Alt Text", "Yes")
Case False
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Expand Alt Text", "no")
End Select
End Sub
Public Sub FavIntelliMenus(ByVal Enable As Boolean)
Select Case Enable
Case True
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "FavIntelliMenus", "Yes")
Case False
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "FavIntelliMenus", "no")
End Select
End Sub
Public Sub FullScreen(ByVal Enable As Boolean)
If Enable = True Then
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "FullScreen", "Yes")
Else
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "FullScreen", "no")
End If
End Sub
Public Sub MoveSystemCaret(ByVal Enable As Boolean)
Select Case Enable
Case True
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Move System Caret", "Yes")
Case False
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Move System Caret", "no")
End Select
End Sub
Public Sub NotifyDownloadComplete(ByVal Enable As Boolean)
Select Case Enable
Case True
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "NotifyDownloadComplete", "Yes")
Case False
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "NotifyDownloadComplete", "no")
End Select
End Sub
Public Sub PlayBackgroundSounds(ByVal Enable As Boolean)
Select Case Enable
Case True
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Play_Background_Sounds", "Yes")
Case False
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Play_Background_Sounds", "no")
End Select
End Sub
Public Sub PrintBackground(ByVal Enable As Boolean)
Select Case Enable
Case True
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Print_Background", "Yes")
Case False
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Print_Background", "no")
End Select
End Sub
Public Sub ShowFullURL(ByVal Enable As Boolean)
Select Case Enable
Case True
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Show_FullURL", "Yes")
Case False
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Show_FullURL", "no")
End Select
End Sub
Public Sub ShowStatusBar(ByVal Enable As Boolean)
Select Case Enable
Case True
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Show_StatusBar", "Yes")
Case False
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Show_StatusBar", "no")
End Select
End Sub
Public Sub ShowToolBar(ByVal Enable As Boolean)
Select Case Enable
Case True
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Show_ToolBar", "Yes")
Case False
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Show_ToolBar", "no")
End Select
End Sub
Public Sub ShowURLinStatusBar(ByVal Enable As Boolean)
Select Case Enable
Case True
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Show_URLinStatusBar", "Yes")
Case False
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Show_URLinStatusBar", "no")
End Select
End Sub
Public Sub ShowURLToolBar(ByVal Enable As Boolean)
Select Case Enable
Case True
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Show_URLToolBar", "Yes")
Case False
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Show_URLToolBar", "no")
End Select
End Sub
Public Sub ShowGoButton(ByVal Enable As Boolean)
Select Case Enable
Case True
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "ShowGoButton", "Yes")
Case False
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "ShowGoButton", "no")
End Select
End Sub
Public Sub UseSearchAsst(ByVal Enable As Boolean)
Select Case Enable
Case True
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Use Search Asst", "Yes")
Case False
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Use Search Asst", "no")
End Select
End Sub
Public Sub DaysToRemoveHistory(ByVal days As Integer)
If days = Nothing Then
MsgBox("No Value ", MsgBoxStyle.Critical, "Error")
Else
My.Computer.Registry.SetValue("HKEY_USERS\S-1-5-21-1644491937-746137067-725345543-1003\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Url History", "DaysToKeep", days, Microsoft.Win32.RegistryValueKind.DWord)
End If
End Sub
End Class
Public Class TaskBarAndStartMenu
Public Sub RemoveMyComputerFromAllThing(ByVal Enable As Boolean)
Select Case Enable
Case True
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\NonEnum", "{20D04FE0-3AEA-1069-A2D8-08002B30309D}", "0", Microsoft.Win32.RegistryValueKind.DWord)
Case False
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\NonEnum", "{20D04FE0-3AEA-1069-A2D8-08002B30309D}", "1", Microsoft.Win32.RegistryValueKind.DWord)
End Select
End Sub
Public Sub EnableStartMenuScrolling(ByVal Enable As Boolean)
Select Case Enable
Case True
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "{20D04FE0-3AEA-1069-A2D8-08002B30309D}", "yes", Microsoft.Win32.RegistryValueKind.String)
Case False
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "{20D04FE0-3AEA-1069-A2D8-08002B30309D}", "no", Microsoft.Win32.RegistryValueKind.String)
End Select
End Sub
Public Sub HighlightNewProgramsOnStartMenu(ByVal Enable As Boolean)
Select Case Enable
Case True
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "Start_NotifyNewApps", "0", Microsoft.Win32.RegistryValueKind.DWord)
Case False
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "Start_NotifyNewApps", "1", Microsoft.Win32.RegistryValueKind.DWord)
End Select
End Sub
Public Sub RemoveSetProgramAccessAndDefaultsFromStartMenu(ByVal Enable As Boolean)
Select Case Enable
Case True
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoSMConfigurePrograms", "0", Microsoft.Win32.RegistryValueKind.DWord)
Case False
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoSMConfigurePrograms", "1", Microsoft.Win32.RegistryValueKind.DWord)
End Select
End Sub
Public Sub ShowLogOffOptionOnTheStartMenu(ByVal Enable As Boolean)
Select Case Enable
Case True
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "StartMenuLogoff", "0", Microsoft.Win32.RegistryValueKind.DWord)
Case False
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "StartMenuLogoff", "1", Microsoft.Win32.RegistryValueKind.DWord)
End Select
End Sub
Public Sub ShowFavoriteOnTheStartMenu(ByVal Enable As Boolean)
Select Case Enable
Case True
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "StartMenuFavorites", "0", Microsoft.Win32.RegistryValueKind.DWord)
Case False
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "StartMenuFavorites", "1", Microsoft.Win32.RegistryValueKind.DWord)
End Select
End Sub
Public Sub RemoveUsernameFromTheStartMenu(ByVal Enable As Boolean)
Select Case Enable
Case True
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoUserNameInStartMenu", "0", Microsoft.Win32.RegistryValueKind.DWord)
Case False
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoUserNameInStartMenu", "1", Microsoft.Win32.RegistryValueKind.DWord)
End Select
End Sub
Public Sub RemoveAllProgramsButtonFromTheStartMenu(ByVal Enable As Boolean)
Select Case Enable
Case True
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoStartMenuMorePrograms", "0", Microsoft.Win32.RegistryValueKind.DWord)
Case False
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoStartMenuMorePrograms", "1", Microsoft.Win32.RegistryValueKind.DWord)
End Select
End Sub
Public Sub ShowCascadingControlPanelItems(ByVal Enable As Boolean)
Select Case Enable
Case True
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "CascadeControlPanel", "yes", Microsoft.Win32.RegistryValueKind.String)
Case False
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "CascadeControlPanel", "no", Microsoft.Win32.RegistryValueKind.String)
End Select
End Sub
Public Sub CascadeNetworkConnections(ByVal Enable As Boolean)
Select Case Enable
Case True
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "CascadeNetworkConnections", "yes", Microsoft.Win32.RegistryValueKind.String)
Case False
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "CascadeNetworkConnections", "no", Microsoft.Win32.RegistryValueKind.String)
End Select
End Sub
Public Sub ShowCascadingMyDocumentsFolder(ByVal Enable As Boolean)
Select Case Enable
Case True
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "CascadeMyDocuments", "yes", Microsoft.Win32.RegistryValueKind.String)
Case False
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "CascadeMyDocuments", "no", Microsoft.Win32.RegistryValueKind.String)
End Select
End Sub
Public Sub TaskBarSize(ByVal Size As Short)
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "TaskbarGroupSize", Size, Microsoft.Win32.RegistryValueKind.DWord)
End Sub
Public Sub DisableBalloonTips(ByVal Enable As Boolean)
Select Case Enable
Case True
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\Curren..

Please SUBSCRIBE to get new articles directly into your Email inbox!

Dev Abanoub | Code Your Programming Career!

بحث هذه المدونة الإلكترونية

كلاس كامل للتحكم فى النظام | VB.NET Class to control system

التسميات

تعليقات

إرسال تعليق

المشاركات الشائعة من هذه المدونة

إنشاء فلاشة قادرة على سرقة جميع الباسووردات الموجودة على أي حاسوب تتصل به

كيفية تحميل قائمة تشغيل كاملة من اليوتيوب

كيف تصبح هكر ( Ethic Hacker )