تعطيل معالج تنظيف سطح المكتب
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 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 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 RemoveSharedDocumentsFromMyComputer(ByVal Enable As Boolean)
Select Case Enable
Case True
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoSharedDocuments", 0, Microsoft.Win32.RegistryValueKind.DWord)
Case False
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoSharedDocuments", 1, Microsoft.Win32.RegistryValueKind.DWord)
End Select
End Sub
إخفاء قائمة ملف
Public Sub DisableFileMenu(ByVal Enable As Boolean)
Select Case Enable
Case True
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoFileMenu", "0", Microsoft.Win32.RegistryValueKind.DWord)
Case False
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoFileMenu", "1", Microsoft.Win32.RegistryValueKind.DWord)
End Select
End Sub
تغيير اسم الشركة
Public Sub ChangeCompanyName(ByVal name As String)
If name = Nothing Then
MsgBox("لم تقم بتحديد أسم", MsgBoxStyle.Critical, "خطأ")
Else
My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "RegisteredOrganization", name)
End If
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 ChangeOwnerName(ByVal name As String)
If name = Nothing Then
MsgBox("لم تقم بتحديد أسم", MsgBoxStyle.Critical, "خطأ")
Else
My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "RegisteredOwner", name)
End If
End Sub
تعطيل برنامج تحديثات الوينوز | Windows Update
Public Sub DisableWindowsUpdate(ByVal Enable As Boolean)
Select Case Enable
Case True
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoWindowsUpdate", "0", Microsoft.Win32.RegistryValueKind.DWord)
Case False
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoWindowsUpdate", "1", Microsoft.Win32.RegistryValueKind.DWord)
End Select
End Sub
تعطيل لوحة التحكم | Stop Control Panel
Public Sub DisableControlPanel(ByVal Enable As Boolean)
Select Case Enable
Case True
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoControlPanel", "1", Microsoft.Win32.RegistryValueKind.DWord)
Case False
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoControlPanel", "0", Microsoft.Win32.RegistryValueKind.DWord)
End Select
End Sub
اضافة البرنامج إلى بدء التشغيل
mports Microsoft.Win32
Imports System.Windows.Forms
Public Sub RunatStartup(ByVal PutAtStartup As Boolean , ByVal ProgramName As String)
Dim StartupPath As String = "Software\Microsoft\Windows\CurrentVersion\Run"
Dim MyKey As RegistryKey = Registry.CurrentUser.OpenSubKey(StartupPath , True)
If PutAtStartup Then
MyKey.SetValue(ProgramName , Application.ExecutablePath)
Else
Try
MyKey.DeleteValue(ProgramName , False)
Catch ex As Exception
ex = Nothing
End Try
End If
End Sub
أخذ جميع البرامج الموجودة فى بدء التشغيل
Dim Reg As Microsoft.Win32.RegistryKey
Reg = Microsoft.Win32.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)
Dim St() As String
St = Reg.GetValueNames
Dim ToList As String
For Each ToList In St
ListBox1.Items.Add(ToList & " Path : " & Reg.GetValue(ToList))
Next
اخفاء جهاز الكمبيوتر من كل الأماكن
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 RegSub(ByVal value As String)
My.Computer.Registry.LocalMachine.CreateSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\" & value)
End Sub
Public Sub RemoveSub(ByVal value As String)
My.Computer.Registry.LocalMachine.DeleteSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\" & value)
End Sub
'الكود
Select Case Contro.Checked
Case True
RegSub("{21EC2O2O-3AEA-1O69-A2DD-08002b30309d}")
Case False
RemoveSub("{21EC2O2O-3AEA-1O69-A2DD-08002b30309d}")
End Select
عرض مجلد المحفوظات على سطح المكتب
'دوال عادية لكنها هامة
Public Sub RegSub(ByVal value As String)
My.Computer.Registry.LocalMachine.CreateSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\" & value)
End Sub
Public Sub RemoveSub(ByVal value As String)
My.Computer.Registry.LocalMachine.DeleteSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\" & value)
End Sub
'الكود
Select Case his.Checked
Case True
RegSub("{FF393560-C2A7-11CF-BFF4-444553540000}")
Case False
RemoveSub("{FF393560-C2A7-11CF-BFF4-444553540000}")
End Select
عرض أيقونة أوت لوك على سطح المكتب | Show OutLook icon on Desktop
'دوال عادية لكنها هامة
Public Sub RegSub(ByVal value As String)
My.Computer.Registry.LocalMachine.CreateSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\" & value)
End Sub
Public Sub RemoveSub(ByVal value As String)
My.Computer.Registry.LocalMachine.DeleteSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\" & value)
End Sub
'الكود
Select Case office.Checked
Case True
RegSub("{00020D75-0000-0000-C000-000000000046}")
Case False
RemoveSub("{00020D75-0000-0000-C000-000000000046}")
End Select
عرض جهاز الكمبيوتر على سطح المكتب
'دوال عادية لكنها هامة
Public Sub RegSub(ByVal value As String)
My.Computer.Registry.LocalMachine.CreateSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\" & value)
End Sub
Public Sub RemoveSub(ByVal value As String)
My.Computer.Registry.LocalMachine.DeleteSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\" & value)
End Sub
'الكود
Select Case comp.Checked
Case True
RegSub("{20D04FE0-3AEA-1069-A2D8-08002B30309D}")
Case False
RemoveSub("{20D04FE0-3AEA-1069-A2D8-08002B30309D}")
End Select
عرض شبكة الكمبيوترات على سطح المكتب
'دوال عادية لكنها هامة
Public Sub RegSub(ByVal value As String)
My.Computer.Registry.LocalMachine.CreateSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\" & value)
End Sub
Public Sub RemoveSub(ByVal value As String)
My.Computer.Registry.LocalMachine.DeleteSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\" & value)
End Sub
'الكود
Select Case netcomp.Checked
Case True
RegSub("{1f4de370-d627-11d1-ba4f-00a0c91eedba}")
Case False
RemoveSub("{1f4de370-d627-11d1-ba4f-00a0c91eedba}")
End Select
عرض الطابعات والفاكسات على سطح المكتب | show Printers and Faxes on Desktop
'دوال عادية لكنها هامة
Public Sub RegSub(ByVal value As String)
My.Computer.Registry.LocalMachine.CreateSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\" & value)
End Sub
Public Sub RemoveSub(ByVal value As String)
My.Computer.Registry.LocalMachine.DeleteSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\" & value)
End Sub
'الكود
Select Case pri.Checked
Case True
RegSub("{2227A280-3AEA-1069-A2DE-08002B30309D}")
Case False
RemoveSub("{2227A280-3AEA-1069-A2DE-08002B30309D}")
End Select
عرض مجلد البرامج على سطح المكتب
'دوال عادية لكنها هامة
Public Sub RegSub(ByVal value As String)
My.Computer.Registry.LocalMachine.CreateSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\" & value)
End Sub
Public Sub RemoveSub(ByVal value As String)
My.Computer.Registry.LocalMachine.DeleteSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\" & value)
End Sub
'الكود
Select Case prog.Checked
Case True
RegSub("{7be9d83c-a729-4d97-b5a7-1b7313c39e0a}")
Case False
RemoveSub("{7be9d83c-a729-4d97-b5a7-1b7313c39e0a}")
End Select
عرض مهام مجدولة على سطح المكتب
'دوال عادية لكنها هامة
Public Sub RegSub(ByVal value As String)
My.Computer.Registry.LocalMachine.CreateSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\" & value)
End Sub
Public Sub RemoveSub(ByVal value As String)
My.Computer.Registry.LocalMachine.DeleteSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\" & value)
End Sub
'الكود
Select Case task.Checked
Case True
RegSub("{D6277990-4C6A-11CF-8D87-00AA0060F5BF}")
Case False
RemoveSub("{D6277990-4C6A-11CF-8D87-00AA0060F5BF}")
End Select
افراغ سلة المحذوفات
Private Declare Function SHEmptyRecycleBin Lib "shell32.dll" Alias "SHEmptyRecycleBinA" ( _
ByVal hWnd As Integer, _
ByVal pszRootPath As String, _
ByVal dwFlags As Integer) As Integer
Const SHERB_NOPROGRESSUI As Short = &H2S
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim retvaL As Integer
retvaL = SHEmptyRecycleBin(Handle.ToInt32, "", SHERB_NOPROGRESSUI)
End Sub
عرض مجلد الكاميرات على سطح المكتب
'دوال عادية لكنها هامة
Public Sub RegSub(ByVal value As String)
My.Computer.Registry.LocalMachine.CreateSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\" & value)
End Sub
Public Sub RemoveSub(ByVal value As String)
My.Computer.Registry.LocalMachine.DeleteSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\" & value)
End Sub
'الكود
Select Case cam.Checked
Case True
RegSub("{E211B736-43FD-11D1-9EFB-0000F8757FCD}")
Case False
RemoveSub("{E211B736-43FD-11D1-9EFB-0000F8757FCD}")
End Select
تعطيل سلة المحذوفات
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 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
تغيير حجم شريط المهام
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 RemoveRecentOnWindowsExit(ByVal Enable As Boolean)
Select Case Enable
Case True
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "ClearRecentDocsOnExit", "00000001", Microsoft.Win32.RegistryValueKind.DWord)
Case False
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "ClearRecentDocsOnExit", "00000000", 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 DisablePropertiesMyComputer(ByVal Enable As Boolean)
Select Case Enable
Case True
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoPropertiesMyComputer", "0", Microsoft.Win32.RegistryValueKind.DWord)
Case False
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoPropertiesMyComputer", "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 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 LockTheSizeAndPositionOfTheTaskbar(ByVal Enable As Boolean)
Select Case Enable
Case True
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "TaskbarSizeMove", 0, Microsoft.Win32.RegistryValueKind.DWord)
Case False
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "TaskbarSizeMove", 1, Microsoft.Win32.RegistryValueKind.DWord)
End Select
End Sub
اظهار الملفات المخفية
Public Sub ShowHiddenOperatingSystemFiles(ByVal Enable As Boolean)
Select Case Enable
Case True
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "ShowSuperHidden", 1, Microsoft.Win32.RegistryValueKind.DWord)
Case False
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "ShowSuperHidden", 0, Microsoft.Win32.RegistryValueKind.DWord)
End Select
End Sub
تعطيل عمل الناسخة
Public Sub DisableCDBurning(ByVal Enable As Boolean)
Select Case Enable
Case True
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoCDBurning", "0", Microsoft.Win32.RegistryValueKind.DWord)
Case False
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoCDBurning", "1", Microsoft.Win32.RegistryValueKind.DWord)
End Select
End Sub
اخفاء خيار ارسال إلى من القائمة اليمينية
Public Sub ShowSendToContextMenu(ByVal Enable As Boolean)
Select Case Enable
Case True
My.Computer.Registry.SetValue("HKEY_CLASSES_ROOT\AllFilesystemObjects\shellex\ContextMenuHandlers\Send To", "", "{7BA4C740-9E81-11CF-99D3-00AA004AE837}")
Case False
My.Computer.Registry.SetValue("HKEY_CLASSES_ROOT\AllFilesystemObjects\shellex\ContextMenuHandlers\Send To", "", "empty")
End Select
End Sub
تعطيل اضافة ازالة البرامج
Public Sub DisableAddRemovePrograms(ByVal Enable As Boolean)
Select Case Enable
Case True
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\system", "NoAddRemovePrograms", "0", Microsoft.Win32.RegistryValueKind.DWord)
Case False
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\system", "NoAddRemovePrograms", "1", Microsoft.Win32.RegistryValueKind.DWord)
End Select
End Sub
عرض سلة المحذوفات على سطح المكتب
'دوال عادية لكنها هامة
Public Sub RegSub(ByVal value As String)
My.Computer.Registry.LocalMachine.CreateSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\" & value)
End Sub
Public Sub RemoveSub(ByVal value As String)
My.Computer.Registry.LocalMachine.DeleteSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\" & value)
End Sub
'الكود
Select Case bin.Checked
Case True
RegSub("{645FF040-5081-101B-9F08-00AA002F954E}")
Case False
RemoveSub("{645FF040-5081-101B-9F08-00AA002F954E}")
End Select
عرض مجلد قائمة ابدأ على سطح المكتب
'دوال عادية لكنها هامة
Public Sub RegSub(ByVal value As String)
My.Computer.Registry.LocalMachine.CreateSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\" & value)
End Sub
Public Sub RemoveSub(ByVal value As String)
My.Computer.Registry.LocalMachine.DeleteSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\" & value)
End Sub
'الكود
Select Case str.Checked
Case True
RegSub("{48e7caab-b918-4e58-a94d-505519c795dc}")
Case False
RemoveSub("{48e7caab-b918-4e58-a94d-505519c795dc}")
End Select
التأكد من وجود البرنامج فى بدء التشغيل
Imports Microsoft.Win32
Imports System.Windows.Forms
Public Function CheckRunAtStartup(ByVal ProgramName As String) As Boolean
Dim StartupPath As String = "Software\Microsoft\Windows\CurrentVersion\Run"
Dim MyKey As RegistryKey = Registry.CurrentUser.OpenSubKey(StartupPath , False)
If MyKey.GetValue(ProgramName , "") = Application.ExecutablePath Then
Return True
Else
Return False
End If
End Function
تغيير خلفية سطح المكتب
'دالة API
Private Const SPI_SETDESKWALLPAPER As Integer = &H14
Private Const SPIF_UPDATEINIFILE As Integer = &H1
Private Const SPIF_SENDWININICHANGE As Integer = &H2
Private Declare Auto Function SystemParametersInfo Lib "user32.dll" ( _
ByVal uAction As Integer, ByVal uParam As Integer, _
ByVal lpvParam As String, ByVal fuWinIni As Integer) As Integer
Dim i As Double
' change this to whatever filename you want to use
Const WallpaperFile As String = "MovieCollectionImage.bmp"
'دالة
Friend Sub SetWallpaper(ByVal img As Image)
Dim imageLocation As String
imageLocation = My.Computer.FileSystem.CombinePath( _
My.Computer.FileSystem.SpecialDirectories.MyPictures, WallpaperFile)
Try
img.Save(imageLocation, System.Drawing.Imaging.ImageFormat.Bmp)
SystemParametersInfo(SPI_SETDESKWALLPAPER, -1, imageLocation, _
SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)
Catch Ex As Exception
MsgBox(Ex.Message, MsgBoxStyle.Critical, "Error")
End Try
End Sub
عرض أدوات ادارية على سطح المكتب
'دوال عادية لكنها هامة
Public Sub RegSub(ByVal value As String)
My.Computer.Registry.LocalMachine.CreateSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\" & value)
End Sub
Public Sub RemoveSub(ByVal value As String)
My.Computer.Registry.LocalMachine.DeleteSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\" & value)
End Sub
'الكود
Select Case Adm.Checked
Case True
RegSub("{D20EA4E1-3957-11d2-A40B-0C5020524153}")
Case False
RemoveSub("{D20EA4E1-3957-11d2-A40B-0C5020524153}")
End Select
عرض مجلد الخطوط على سطح المكتب
'دوال عادية لكنها هامة
Public Sub RegSub(ByVal value As String)
My.Computer.Registry.LocalMachine.CreateSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\" & value)
End Sub
Public Sub RemoveSub(ByVal value As String)
My.Computer.Registry.LocalMachine.DeleteSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\" & value)
End Sub
'الكود
Select Case fonts.Checked
Case True
RegSub("{D20EA4E1-3957-11d2-A40B-0C5020524152}")
Case False
RemoveSub("{D20EA4E1-3957-11d2-A40B-0C5020524152}")
End Select
عرض مايكروسوفت نتورك على سطح المكتب | show MicroSoft Network on Desktop
'دوال عادية لكنها هامة
Public Sub RegSub(ByVal value As String)
My.Computer.Registry.LocalMachine.CreateSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\" & value)
End Sub
Public Sub RemoveSub(ByVal value As String)
My.Computer.Registry.LocalMachine.DeleteSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\" & value)
End Sub
'الكود
Select Case Network.Checked
Case True
RegSub("{00028B00-0000-0000-C000-000000000046}")
Case False
RemoveSub("{00028B00-0000-0000-C000-000000000046}")
End Select
عرض المستندات على سطح المكتب
'دوال عادية لكنها هامة
Public Sub RegSub(ByVal value As String)
My.Computer.Registry.LocalMachine.CreateSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\" & value)
End Sub
Public Sub RemoveSub(ByVal value As String)
My.Computer.Registry.LocalMachine.DeleteSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\" & value)
End Sub
'الكود
Select Case decu.Checked
Case True
RegSub("{450D8FBA-AD25-11D0-98A8-0800361B1103}")
Case False
RemoveSub("{450D8FBA-AD25-11D0-98A8-0800361B1103}")
End Select
عرض اتصالات الانترنت على سطح المكتب
'دوال عادية لكنها هامة
Public Sub RegSub(ByVal value As String)
My.Computer.Registry.LocalMachine.CreateSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\" & value)
End Sub
Public Sub RemoveSub(ByVal value As String)
My.Computer.Registry.LocalMachine.DeleteSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\" & value)
End Sub
'الكود
Select Case netcon.Checked
Case True
RegSub("{7007ACC7-3202-11D1-AAD2-00805FC1270E}")
Case False
RemoveSub("{7007ACC7-3202-11D1-AAD2-00805FC1270E}")
End Select
Please SUBSCRIBE to get new articles directly into your Email inbox!
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 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 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 RemoveSharedDocumentsFromMyComputer(ByVal Enable As Boolean)
Select Case Enable
Case True
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoSharedDocuments", 0, Microsoft.Win32.RegistryValueKind.DWord)
Case False
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoSharedDocuments", 1, Microsoft.Win32.RegistryValueKind.DWord)
End Select
End Sub
إخفاء قائمة ملف
Public Sub DisableFileMenu(ByVal Enable As Boolean)
Select Case Enable
Case True
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoFileMenu", "0", Microsoft.Win32.RegistryValueKind.DWord)
Case False
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoFileMenu", "1", Microsoft.Win32.RegistryValueKind.DWord)
End Select
End Sub
تغيير اسم الشركة
Public Sub ChangeCompanyName(ByVal name As String)
If name = Nothing Then
MsgBox("لم تقم بتحديد أسم", MsgBoxStyle.Critical, "خطأ")
Else
My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "RegisteredOrganization", name)
End If
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 ChangeOwnerName(ByVal name As String)
If name = Nothing Then
MsgBox("لم تقم بتحديد أسم", MsgBoxStyle.Critical, "خطأ")
Else
My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "RegisteredOwner", name)
End If
End Sub
تعطيل برنامج تحديثات الوينوز | Windows Update
Public Sub DisableWindowsUpdate(ByVal Enable As Boolean)
Select Case Enable
Case True
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoWindowsUpdate", "0", Microsoft.Win32.RegistryValueKind.DWord)
Case False
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoWindowsUpdate", "1", Microsoft.Win32.RegistryValueKind.DWord)
End Select
End Sub
تعطيل لوحة التحكم | Stop Control Panel
Public Sub DisableControlPanel(ByVal Enable As Boolean)
Select Case Enable
Case True
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoControlPanel", "1", Microsoft.Win32.RegistryValueKind.DWord)
Case False
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoControlPanel", "0", Microsoft.Win32.RegistryValueKind.DWord)
End Select
End Sub
اضافة البرنامج إلى بدء التشغيل
mports Microsoft.Win32
Imports System.Windows.Forms
Public Sub RunatStartup(ByVal PutAtStartup As Boolean , ByVal ProgramName As String)
Dim StartupPath As String = "Software\Microsoft\Windows\CurrentVersion\Run"
Dim MyKey As RegistryKey = Registry.CurrentUser.OpenSubKey(StartupPath , True)
If PutAtStartup Then
MyKey.SetValue(ProgramName , Application.ExecutablePath)
Else
Try
MyKey.DeleteValue(ProgramName , False)
Catch ex As Exception
ex = Nothing
End Try
End If
End Sub
أخذ جميع البرامج الموجودة فى بدء التشغيل
Dim Reg As Microsoft.Win32.RegistryKey
Reg = Microsoft.Win32.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)
Dim St() As String
St = Reg.GetValueNames
Dim ToList As String
For Each ToList In St
ListBox1.Items.Add(ToList & " Path : " & Reg.GetValue(ToList))
Next
اخفاء جهاز الكمبيوتر من كل الأماكن
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 RegSub(ByVal value As String)
My.Computer.Registry.LocalMachine.CreateSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\" & value)
End Sub
Public Sub RemoveSub(ByVal value As String)
My.Computer.Registry.LocalMachine.DeleteSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\" & value)
End Sub
'الكود
Select Case Contro.Checked
Case True
RegSub("{21EC2O2O-3AEA-1O69-A2DD-08002b30309d}")
Case False
RemoveSub("{21EC2O2O-3AEA-1O69-A2DD-08002b30309d}")
End Select
عرض مجلد المحفوظات على سطح المكتب
'دوال عادية لكنها هامة
Public Sub RegSub(ByVal value As String)
My.Computer.Registry.LocalMachine.CreateSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\" & value)
End Sub
Public Sub RemoveSub(ByVal value As String)
My.Computer.Registry.LocalMachine.DeleteSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\" & value)
End Sub
'الكود
Select Case his.Checked
Case True
RegSub("{FF393560-C2A7-11CF-BFF4-444553540000}")
Case False
RemoveSub("{FF393560-C2A7-11CF-BFF4-444553540000}")
End Select
عرض أيقونة أوت لوك على سطح المكتب | Show OutLook icon on Desktop
'دوال عادية لكنها هامة
Public Sub RegSub(ByVal value As String)
My.Computer.Registry.LocalMachine.CreateSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\" & value)
End Sub
Public Sub RemoveSub(ByVal value As String)
My.Computer.Registry.LocalMachine.DeleteSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\" & value)
End Sub
'الكود
Select Case office.Checked
Case True
RegSub("{00020D75-0000-0000-C000-000000000046}")
Case False
RemoveSub("{00020D75-0000-0000-C000-000000000046}")
End Select
عرض جهاز الكمبيوتر على سطح المكتب
'دوال عادية لكنها هامة
Public Sub RegSub(ByVal value As String)
My.Computer.Registry.LocalMachine.CreateSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\" & value)
End Sub
Public Sub RemoveSub(ByVal value As String)
My.Computer.Registry.LocalMachine.DeleteSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\" & value)
End Sub
'الكود
Select Case comp.Checked
Case True
RegSub("{20D04FE0-3AEA-1069-A2D8-08002B30309D}")
Case False
RemoveSub("{20D04FE0-3AEA-1069-A2D8-08002B30309D}")
End Select
عرض شبكة الكمبيوترات على سطح المكتب
'دوال عادية لكنها هامة
Public Sub RegSub(ByVal value As String)
My.Computer.Registry.LocalMachine.CreateSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\" & value)
End Sub
Public Sub RemoveSub(ByVal value As String)
My.Computer.Registry.LocalMachine.DeleteSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\" & value)
End Sub
'الكود
Select Case netcomp.Checked
Case True
RegSub("{1f4de370-d627-11d1-ba4f-00a0c91eedba}")
Case False
RemoveSub("{1f4de370-d627-11d1-ba4f-00a0c91eedba}")
End Select
عرض الطابعات والفاكسات على سطح المكتب | show Printers and Faxes on Desktop
'دوال عادية لكنها هامة
Public Sub RegSub(ByVal value As String)
My.Computer.Registry.LocalMachine.CreateSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\" & value)
End Sub
Public Sub RemoveSub(ByVal value As String)
My.Computer.Registry.LocalMachine.DeleteSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\" & value)
End Sub
'الكود
Select Case pri.Checked
Case True
RegSub("{2227A280-3AEA-1069-A2DE-08002B30309D}")
Case False
RemoveSub("{2227A280-3AEA-1069-A2DE-08002B30309D}")
End Select
عرض مجلد البرامج على سطح المكتب
'دوال عادية لكنها هامة
Public Sub RegSub(ByVal value As String)
My.Computer.Registry.LocalMachine.CreateSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\" & value)
End Sub
Public Sub RemoveSub(ByVal value As String)
My.Computer.Registry.LocalMachine.DeleteSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\" & value)
End Sub
'الكود
Select Case prog.Checked
Case True
RegSub("{7be9d83c-a729-4d97-b5a7-1b7313c39e0a}")
Case False
RemoveSub("{7be9d83c-a729-4d97-b5a7-1b7313c39e0a}")
End Select
عرض مهام مجدولة على سطح المكتب
'دوال عادية لكنها هامة
Public Sub RegSub(ByVal value As String)
My.Computer.Registry.LocalMachine.CreateSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\" & value)
End Sub
Public Sub RemoveSub(ByVal value As String)
My.Computer.Registry.LocalMachine.DeleteSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\" & value)
End Sub
'الكود
Select Case task.Checked
Case True
RegSub("{D6277990-4C6A-11CF-8D87-00AA0060F5BF}")
Case False
RemoveSub("{D6277990-4C6A-11CF-8D87-00AA0060F5BF}")
End Select
افراغ سلة المحذوفات
Private Declare Function SHEmptyRecycleBin Lib "shell32.dll" Alias "SHEmptyRecycleBinA" ( _
ByVal hWnd As Integer, _
ByVal pszRootPath As String, _
ByVal dwFlags As Integer) As Integer
Const SHERB_NOPROGRESSUI As Short = &H2S
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim retvaL As Integer
retvaL = SHEmptyRecycleBin(Handle.ToInt32, "", SHERB_NOPROGRESSUI)
End Sub
عرض مجلد الكاميرات على سطح المكتب
'دوال عادية لكنها هامة
Public Sub RegSub(ByVal value As String)
My.Computer.Registry.LocalMachine.CreateSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\" & value)
End Sub
Public Sub RemoveSub(ByVal value As String)
My.Computer.Registry.LocalMachine.DeleteSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\" & value)
End Sub
'الكود
Select Case cam.Checked
Case True
RegSub("{E211B736-43FD-11D1-9EFB-0000F8757FCD}")
Case False
RemoveSub("{E211B736-43FD-11D1-9EFB-0000F8757FCD}")
End Select
تعطيل سلة المحذوفات
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 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
تغيير حجم شريط المهام
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 RemoveRecentOnWindowsExit(ByVal Enable As Boolean)
Select Case Enable
Case True
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "ClearRecentDocsOnExit", "00000001", Microsoft.Win32.RegistryValueKind.DWord)
Case False
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "ClearRecentDocsOnExit", "00000000", 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 DisablePropertiesMyComputer(ByVal Enable As Boolean)
Select Case Enable
Case True
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoPropertiesMyComputer", "0", Microsoft.Win32.RegistryValueKind.DWord)
Case False
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoPropertiesMyComputer", "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 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 LockTheSizeAndPositionOfTheTaskbar(ByVal Enable As Boolean)
Select Case Enable
Case True
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "TaskbarSizeMove", 0, Microsoft.Win32.RegistryValueKind.DWord)
Case False
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "TaskbarSizeMove", 1, Microsoft.Win32.RegistryValueKind.DWord)
End Select
End Sub
اظهار الملفات المخفية
Public Sub ShowHiddenOperatingSystemFiles(ByVal Enable As Boolean)
Select Case Enable
Case True
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "ShowSuperHidden", 1, Microsoft.Win32.RegistryValueKind.DWord)
Case False
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "ShowSuperHidden", 0, Microsoft.Win32.RegistryValueKind.DWord)
End Select
End Sub
تعطيل عمل الناسخة
Public Sub DisableCDBurning(ByVal Enable As Boolean)
Select Case Enable
Case True
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoCDBurning", "0", Microsoft.Win32.RegistryValueKind.DWord)
Case False
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoCDBurning", "1", Microsoft.Win32.RegistryValueKind.DWord)
End Select
End Sub
اخفاء خيار ارسال إلى من القائمة اليمينية
Public Sub ShowSendToContextMenu(ByVal Enable As Boolean)
Select Case Enable
Case True
My.Computer.Registry.SetValue("HKEY_CLASSES_ROOT\AllFilesystemObjects\shellex\ContextMenuHandlers\Send To", "", "{7BA4C740-9E81-11CF-99D3-00AA004AE837}")
Case False
My.Computer.Registry.SetValue("HKEY_CLASSES_ROOT\AllFilesystemObjects\shellex\ContextMenuHandlers\Send To", "", "empty")
End Select
End Sub
تعطيل اضافة ازالة البرامج
Public Sub DisableAddRemovePrograms(ByVal Enable As Boolean)
Select Case Enable
Case True
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\system", "NoAddRemovePrograms", "0", Microsoft.Win32.RegistryValueKind.DWord)
Case False
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\system", "NoAddRemovePrograms", "1", Microsoft.Win32.RegistryValueKind.DWord)
End Select
End Sub
عرض سلة المحذوفات على سطح المكتب
'دوال عادية لكنها هامة
Public Sub RegSub(ByVal value As String)
My.Computer.Registry.LocalMachine.CreateSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\" & value)
End Sub
Public Sub RemoveSub(ByVal value As String)
My.Computer.Registry.LocalMachine.DeleteSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\" & value)
End Sub
'الكود
Select Case bin.Checked
Case True
RegSub("{645FF040-5081-101B-9F08-00AA002F954E}")
Case False
RemoveSub("{645FF040-5081-101B-9F08-00AA002F954E}")
End Select
عرض مجلد قائمة ابدأ على سطح المكتب
'دوال عادية لكنها هامة
Public Sub RegSub(ByVal value As String)
My.Computer.Registry.LocalMachine.CreateSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\" & value)
End Sub
Public Sub RemoveSub(ByVal value As String)
My.Computer.Registry.LocalMachine.DeleteSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\" & value)
End Sub
'الكود
Select Case str.Checked
Case True
RegSub("{48e7caab-b918-4e58-a94d-505519c795dc}")
Case False
RemoveSub("{48e7caab-b918-4e58-a94d-505519c795dc}")
End Select
التأكد من وجود البرنامج فى بدء التشغيل
Imports Microsoft.Win32
Imports System.Windows.Forms
Public Function CheckRunAtStartup(ByVal ProgramName As String) As Boolean
Dim StartupPath As String = "Software\Microsoft\Windows\CurrentVersion\Run"
Dim MyKey As RegistryKey = Registry.CurrentUser.OpenSubKey(StartupPath , False)
If MyKey.GetValue(ProgramName , "") = Application.ExecutablePath Then
Return True
Else
Return False
End If
End Function
تغيير خلفية سطح المكتب
'دالة API
Private Const SPI_SETDESKWALLPAPER As Integer = &H14
Private Const SPIF_UPDATEINIFILE As Integer = &H1
Private Const SPIF_SENDWININICHANGE As Integer = &H2
Private Declare Auto Function SystemParametersInfo Lib "user32.dll" ( _
ByVal uAction As Integer, ByVal uParam As Integer, _
ByVal lpvParam As String, ByVal fuWinIni As Integer) As Integer
Dim i As Double
' change this to whatever filename you want to use
Const WallpaperFile As String = "MovieCollectionImage.bmp"
'دالة
Friend Sub SetWallpaper(ByVal img As Image)
Dim imageLocation As String
imageLocation = My.Computer.FileSystem.CombinePath( _
My.Computer.FileSystem.SpecialDirectories.MyPictures, WallpaperFile)
Try
img.Save(imageLocation, System.Drawing.Imaging.ImageFormat.Bmp)
SystemParametersInfo(SPI_SETDESKWALLPAPER, -1, imageLocation, _
SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)
Catch Ex As Exception
MsgBox(Ex.Message, MsgBoxStyle.Critical, "Error")
End Try
End Sub
عرض أدوات ادارية على سطح المكتب
'دوال عادية لكنها هامة
Public Sub RegSub(ByVal value As String)
My.Computer.Registry.LocalMachine.CreateSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\" & value)
End Sub
Public Sub RemoveSub(ByVal value As String)
My.Computer.Registry.LocalMachine.DeleteSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\" & value)
End Sub
'الكود
Select Case Adm.Checked
Case True
RegSub("{D20EA4E1-3957-11d2-A40B-0C5020524153}")
Case False
RemoveSub("{D20EA4E1-3957-11d2-A40B-0C5020524153}")
End Select
عرض مجلد الخطوط على سطح المكتب
'دوال عادية لكنها هامة
Public Sub RegSub(ByVal value As String)
My.Computer.Registry.LocalMachine.CreateSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\" & value)
End Sub
Public Sub RemoveSub(ByVal value As String)
My.Computer.Registry.LocalMachine.DeleteSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\" & value)
End Sub
'الكود
Select Case fonts.Checked
Case True
RegSub("{D20EA4E1-3957-11d2-A40B-0C5020524152}")
Case False
RemoveSub("{D20EA4E1-3957-11d2-A40B-0C5020524152}")
End Select
عرض مايكروسوفت نتورك على سطح المكتب | show MicroSoft Network on Desktop
'دوال عادية لكنها هامة
Public Sub RegSub(ByVal value As String)
My.Computer.Registry.LocalMachine.CreateSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\" & value)
End Sub
Public Sub RemoveSub(ByVal value As String)
My.Computer.Registry.LocalMachine.DeleteSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\" & value)
End Sub
'الكود
Select Case Network.Checked
Case True
RegSub("{00028B00-0000-0000-C000-000000000046}")
Case False
RemoveSub("{00028B00-0000-0000-C000-000000000046}")
End Select
عرض المستندات على سطح المكتب
'دوال عادية لكنها هامة
Public Sub RegSub(ByVal value As String)
My.Computer.Registry.LocalMachine.CreateSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\" & value)
End Sub
Public Sub RemoveSub(ByVal value As String)
My.Computer.Registry.LocalMachine.DeleteSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\" & value)
End Sub
'الكود
Select Case decu.Checked
Case True
RegSub("{450D8FBA-AD25-11D0-98A8-0800361B1103}")
Case False
RemoveSub("{450D8FBA-AD25-11D0-98A8-0800361B1103}")
End Select
عرض اتصالات الانترنت على سطح المكتب
'دوال عادية لكنها هامة
Public Sub RegSub(ByVal value As String)
My.Computer.Registry.LocalMachine.CreateSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\" & value)
End Sub
Public Sub RemoveSub(ByVal value As String)
My.Computer.Registry.LocalMachine.DeleteSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\" & value)
End Sub
'الكود
Select Case netcon.Checked
Case True
RegSub("{7007ACC7-3202-11D1-AAD2-00805FC1270E}")
Case False
RemoveSub("{7007ACC7-3202-11D1-AAD2-00805FC1270E}")
End Select
Please SUBSCRIBE to get new articles directly into your Email inbox!
تعليقات
إرسال تعليق