Dev Abanoub | Code Your Programming Career!

معرفة اصدار نظام التشغيل MessageBox.Show("OS Version: " + Environment.OSVersion.ToString, "Operating System", MessageBoxButtons.OK, MessageBoxIcon.Information) معرفة الزمن المستغرق منذ تشغيل الكمبيوتر أو اللابتوب MsgBox(My.Computer.Clock.TickCount) معرفة اسم الويندوز Public Function GetWinName() As String             Dim a As String             a = My.Computer.Info.OSFullName             GetWinName = a         End Function معرفة مسار النظام Public Function SystemDir() As String             Dim a As String             a = System.Environment.GetFolderPath(Environment.SpecialFolder.System)             SystemDir = a         End Function معرفة اسم المستخدم Public Function UserName() As String             Dim a As String             a = System.Environment.UserName             UserName = a         End Function معرفة المسار الحالى Public Function CurrentDirectory() As String             Dim a As String             a = System.Environment.

تعطيل معالج تنظيف سطح المكتب 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.R