أكواد جاهزة للتحكم فى خصائص النظام - فيجوال بيسك دوت نت

تعطيل معالج تنظيف سطح المكتب

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!