[Kamil]

السلام عليكم و رحمة الله و بركاته

قم بتجربة هذا الكود

PHP كود :

Imports System.Management

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ' 1. معرفة حجم الرام
        Dim ramSize As Long = My.Computer.Info.TotalPhysicalMemory
        Dim formattedRamSize As String = FormatSize(ramSize)
        MessageBox.Show($"حجم الرام: {formattedRamSize}", "معلومات النظام")

        ' 2. معرفة حجم الهارد ديسك بالكامل
        Dim hddSize As Long = GetTotalHDDSize("C:")
        Dim formattedHddSize As String = FormatSize(hddSize)
        MessageBox.Show($"حجم الهارد ديسك: {formattedHddSize}", "معلومات النظام")

        ' 3. معرفة المستخدم والمساحات الفراغة في الهارد ديسك
        Dim driveInfo As System.IO.DriveInfo = New System.IO.DriveInfo("C:")
        Dim availableSpace As Long = driveInfo.AvailableFreeSpace
        Dim formattedAvailableSpace As String = FormatSize(availableSpace)
        Dim totalSpace As Long = driveInfo.TotalSize
        Dim formattedTotalSpace As String = FormatSize(totalSpace)
        Dim usedSpace As Long = totalSpace - availableSpace
        Dim formattedUsedSpace As String = FormatSize(usedSpace)

        MessageBox.Show($"المستخدم: {Environment.UserName}{Environment.NewLine}" &
                        $"المساحة الفارغة: {formattedAvailableSpace}{Environment.NewLine}" &
                        $"المساحة المستخدمة: {formattedUsedSpace}{Environment.NewLine}" &
                        $"إجمالي المساحة: {formattedTotalSpace}",
                        "معلومات الهارد ديسك")
    End Sub

    ' تنسيق حجم الذاكرة
    Private Function FormatSize(ByVal size As Long) As String
        Dim sizes() As String = {"B", "KB", "MB", "GB", "TB"}
        Dim order As Integer = 0
        While size >= 1024 AndAlso order < sizes.Length - 1
            order += 1
            size = size \ 1024
        End While
        Return String.Format("{0:0.##} {1}", size, sizes(order))
    End Function

    ' الحصول على حجم الهارد ديسك بالكامل
    Private Function GetTotalHDDSize(ByVal driveLetter As String) As Long
        Dim searcher As New ManagementObjectSearcher($"SELECT Size FROM Win32_LogicalDisk WHERE DeviceID = '{driveLetter}'")
        For Each disk As ManagementObject In searcher.Get()
            Return Convert.ToInt64(disk("Size"))
        Next
        Return 0
    End Function
End Class