مكتبة الاكواد

طبعا أنا استخدم vb.net 2005

هذه مجموعة ضخمة من الأكواد :

أولا - الريجيستري :

إظهار إصدار الويندوز على سطح المكتب :

    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

الحجوم 16 - صغير و 32 - عادي - 64 كبير يمكنك التغيير حسب كيفك

تعطيل القائمة اليمينية في سطح الكتب

    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
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

---

الأقراص :

تغيير خلفية قرص :

    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

---

تغيير تسمية قرص :

تحذير يجب كتابة اسم القرص فقط يعني c فقط لا تكتب c:\

    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 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 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 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 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 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 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

أكسبلورير :

إخفاء جهاز الكمبيوتر من كل الاماكن:

    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 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 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 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 RestoreOpenedFolderWindowsAtStartup(ByVal Enable As Boolean)
        Select Case Enable
            Case True
                My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "PersistBrowsers", 1, Microsoft.Win32.RegistryValueKind.DWord)
            Case False
                My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "PersistBrowsers", 0, Microsoft.Win32.RegistryValueKind.DWord)
        End Select
    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 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 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 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 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 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

تغيير أسم الشركة

    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 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
تعطيل WindowsUpdate
    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

تعطيل إدارة المهام

    Public Sub DisableTaskMgr(ByVal Enable As Boolean)
        Select Case Enable
            Case True
                My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\system", "DisableTaskMgr", "0", Microsoft.Win32.RegistryValueKind.DWord)
            Case False
                My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\system", "DisableTaskMgr", "1", Microsoft.Win32.RegistryValueKind.DWord)
        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 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 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

طبعا أنا استخدم vb.net 2005

لفتح ملف من قبل البرنامج :

        Dim a As IO.StreamReader = New IO.StreamReader("FileName")
        MsgBox(a.ReadToEnd)
        a.Close()

للكتابة إلى ملف :

        Dim a As IO.StreamWriter = New IO.StreamWriter("FileName")
        a.Write("Hiiiiiiiiiiiiiiiiiiii" & vbCrLf)
        a.Close()

هام :

لقد وضعت الدالة vbcrlf في السطر الثاني لكي يقوم بكتابة النص ثم إذا أردت الكابة للملف يقوم بكتابة في سطر جديد

أخذ معلومات عن الملف : لأخذ حجم الملف :

FileLen("Filename")

طبعا :

سيقوم البرنامج بأعطاء حجم الملف بالبايت الأخذه بالكيلوبايت قسم الناتج على 1000 ولأخذ الحجم على القرص قسمه على 1024

الأخذ تاريخ أنشاء ملف :

    MsgBox(IO.File.GetCreationTime("Filename"))

لأخذ أخر تعديل على الملف :

   MsgBox(IO.File.GetLastWriteTime("Filename"))

لأخذ أخر وصول للملف :

  MsgBox(IO.File.GetLastAccessTime("Filename"))

لمعرفة إذا الملف للقراءة فقط :

        MsgBox(IO.File.GetAttributes(("Filename")) = IO.FileAttributes.ReadOnly)

إذا الملف مخفي :

        MsgBox(IO.File.GetAttributes(("Filename")) = IO.FileAttributes.Hidden)

إذا الملف مؤرشف :

         MsgBox(IO.File.GetAttributes(("Filename")) = IO.FileAttributes.Archive)

إذا الملف نظام :

        MsgBox(IO.File.GetAttributes(("Filename")) = IO.FileAttributes.System)

لأخذ نوع ملف:

IO.Path.GetExtension("filename")

لأخذ أسم ملف :

 IO.Path.GetFileName("filename")

الأخذ أسم ملف من دون النوع :

  IO.Path.GetFileNameWithoutExtension("filename")

---------------------

لحذف ملف :

بالفجوال بيزك 6

كنت استخدم

kill ("filename")

وهي تعمل على أي أصدار فيجوال

ولكن هناك دالتان جديدتان

IO.File.Delete("Filename")

وأنا أفضل الثانية :

        My.Computer.FileSystem.DeleteFile("Filename", FileIO.UIOption.AllDialogs, FileIO.RecycleOption.DeletePermanently, FileIO.UICancelOption.ThrowException)

لأنها تتيح لك خيارات كثيرة مثل إرساله إلى سلة المحذوفات وإظهار النوافذ الخاصة بحذف الملف وهكذا

لفتح ملف باستخدام الويندوز :

طريقتان الأولى :

Process.Start("Filename")

لكنني لا لاستخدمها لأنه إذا الملف لم يكون نوعه معروف من قبل النظام فسيظهر خطأ

الثانية وهي الأفضل :

عن طريق القائمة :

project > add referenace > browse

حدد الملف c:\windows\system32\shell32.dll

من ثم :

        Dim a As New Shell32.Shell
        a.Open("Filename")

نسخ ملف :

        My.Computer.FileSystem.CopyFile("FilenameFrom", "FileName To ", True, FileIO.UICancelOption.ThrowException)

قص ملف :

        My.Computer.FileSystem.MoveFile("FilenameFrom", "FileName To ", True, FileIO.UICancelOption.ThrowException)

إعادة تسمية ملف :

My.Computer.FileSystem.RenameFile("Filename", "NewName")

التأكد من أن الملف موجود :

My.Computer.FileSystem.FileExists("Filename")

صنع ملف :

IO.File.Create("Filename").Close()

أخذ أيقونة ملف :

Dim a As Icon

a = Icon.ExtractAssociatedIcon("filename")

Me.Icon = a

--------------------------------------

أخذ محتويات مجلد من ملفات

        Dim files As System.Collections.ObjectModel.ReadOnlyCollection(Of String)
        files = My.Computer.FileSystem.GetFiles("C:\", FileIO.SearchOption.SearchTopLevelOnly, "*.*")
        Dim i As Integer
        For i = 1 To files.Count
            MsgBox(IO.Path.GetFileName(files.Item(i)))
        Next

طبعا :

يمكن تغير searchOption.SearchTopLevelOnly إذا أردت أن البرنامج يقوم البرنامج بالتفرع في المجلدات الموجودة داخل المجلد الهدف إلى FileIO.SearchOption.SearchAllSubDirectories

--------------------------------------************************--------------------------------------

التعامل مع المجلدات :

طبعا شبه نفس دوال الملفات

مثل نسخ مجلد :

        My.Computer.FileSystem.CopyDirectory("FolderName", "DesFolderName", True, FileIO.UICancelOption.ThrowException)
    IO.Directory.GetCreationTime("FolderName")

أو أخذ معلومات عن مجلد :

    IO.Directory.GetCreationTime("FolderName")

لأخذ أسم مجلد :

IO.Path.GetFileName("FolderName")

أخذ محتويات مجلد من مجلدات :

        Dim files As System.Collections.ObjectModel.ReadOnlyCollection(Of String)
        files = My.Computer.FileSystem.GetDirectories("C:\", FileIO.SearchOption.SearchTopLevelOnly)
        Dim i As Integer
        For i = 1 To files.Count
            MsgBox(IO.Path.GetFileName(files.Item(i)))
        Next

وللتفرع غير الخاصية FileIO.SearchOption.SearchTopLevelOnly إلى FileIO.SearchOption.SearchAllSubDirectories

--------------------------------------************************--------------------------------------

التعامل مع المسارات :

لأخذ مسار النظام :

        MsgBox(System.Environment.GetFolderPath(Environment.SpecialFolder.System))

طبعا يمكنك تغيير كلمة system إلى قيمة أخرى لأخذ مسار مجلد أخر مثل :

        MsgBox(System.Environment.GetFolderPath(Environment.SpecialFolder.Programs))

--------------------------------------************************--------------------------------------

التحكم بالمنافذ ports

        Dim a As System.IO.Ports.SerialPort
        a = My.Computer.Ports.OpenSerialPort("Com3")
لإغلاق المنفذ : 
a.Close() 
لفتح المنفذ : 
a.open()
لمعرفة إذا كان مفتوح أم لا :
 MsgBox(a.IsOpen)

.............

--------------------------------------************************--------------------------------------

التعامل مع الأقراص :

لأخذ الأقراص الموجودة على الجهاز :

        Dim i As Integer
        i = My.Computer.FileSystem.Drives.Count
        For i = 1 To i
            MsgBox(My.Computer.FileSystem.Drives.Item(i - 1).Name)
        Next

لأخذ معلومات عن الأقراص :

        Dim dr As IO.DriveInfo
        dr = My.Computer.FileSystem.GetDriveInfo("c:\")

من ثم :

لأخذ المساحة الكلية :

  MsgBox(dr.TotalSize)

لأخذ المساحة الحرة :

  MsgBox(dr.TotalFreeSpace)

لأخذ النوع :

  MsgBox(dr.DriveType.ToString)

لأخذ نظام الملفات :

        MsgBox(dr.DriveFormat)

وهكذاا

لإدراج الأقراص في tree view مع معلوماته

 
        On Error Resume Next
        Dim dr As IO.DriveInfo
        Dim i As Integer
        Dim trnode As TreeNode
        i = My.Computer.FileSystem.Drives.Count
        For i = 1 To i
            dr = My.Computer.FileSystem.GetDriveInfo(My.Computer.FileSystem.Drives.Item(i - 1).ToString)
            trnode = treename.Nodes.Add(dr.ToString)
            trnode.Nodes.Add("DriveType : " & dr.DriveType.ToString)
            trnode.Nodes.Add("DriveFormat : " & dr.DriveFormat.ToString)
            trnode.Nodes.Add("TotalSize : " & dr.TotalSize)
            trnode.Nodes.Add("TotalFreeSpace : " & dr.TotalFreeSpace)
        Next

--------------------------------------************************--------------------------------------

الخطوط :

لعرض الخطوط في قائمة :

        Dim i As System.Collections.ObjectModel.ReadOnlyCollection(Of String)
        Dim a As String = IO.Path.GetDirectoryName(System.Environment.GetFolderPath(Environment.SpecialFolder.System)) & "\fonts"
        MsgBox(a)
        i = My.Computer.FileSystem.GetFiles(a)
        Dim o As Integer
        For o = 1 To i.Count
            ListBox1.Items.Add(IO.Path.GetFileName(i.Item(o - 1)))
        Next

--------------------------------------************************--------------------------------------

التعامل مع الفيديو :

لديك طريقتان الأولى عن طريق أضافة عنصر windowsmediaplayer

لأضافته في أي مكان من منطقة الأدوات عند الازرار والقوائم ... قم بالضغط على الزر الأيمن واختر الخيار choose items

ثم com componets واختر windows media player

برمجته :

لتشغيل ملف : mes.URL = FileName

لإغلاق الملف : mes.close()

للتحكم أكثر mes.setting.

والثانية بنفس طريقة أضافة الأداة السابقة لكن أختر :

ms tv video control

برمجته :

لتحديد ملف :

mes.View(a.FileName)

للتشغيل :

mes.run

لإيقاف مؤقت :

mes.pause

لإيقاف :

mes.stop

--------------------------------------************************--------------------------------------