[تركي الحلواني]

PHP كود :

Imports System.Management
Imports System.Diagnostics

Public Class Form1

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    Dim searcher As New ManagementObjectSearcher("SELECT * FROM Win32_OperatingSystem")
    For Each queryObj As ManagementObject In searcher.Get()
        Dim totalRam As Double = CDbl(queryObj("TotalVisibleMemorySize"))
        Dim freeRam As Double = CDbl(queryObj("FreePhysicalMemory"))

        MessageBox.Show($"Total RAM: {totalRam / 1024} MB")
        MessageBox.Show($"Free RAM: {freeRam / 1024} MB")

    Next

    Dim searcher1 As New ManagementObjectSearcher("SELECT * FROM Win32_LogicalDisk WHERE DeviceID='C:'")
    For Each queryObj As ManagementObject In searcher1.Get()
        Dim totalDisk As Double = CDbl(queryObj("Size"))
        Dim freeDisk As Double = CDbl(queryObj("FreeSpace"))

        MessageBox.Show($"Total Disk Space: {totalDisk / 1024 / 1024 / 1024} GB")
        MessageBox.Show($"Free Disk Space: {freeDisk / 1024 / 1024 / 1024} GB")
    Next


    Dim driveInfo As New DriveInfo("C")
    Dim driveType As DriveType = driveInfo.DriveType

    If IsDriveSolidState("C") Then
        MessageBox.Show("Drive C: is an SSD")
    ElseIf driveType = DriveType.Fixed Then
        MessageBox.Show("Drive C: is an HDD")
    Else
        MessageBox.Show("Drive C: type is unknown")
    End If

End Sub

Function IsDriveSolidState(driveLetter As String) As Boolean
    Dim drive As DriveInfo = New DriveInfo(driveLetter)
    Return drive.DriveType = DriveType.Fixed AndAlso drive.DriveFormat.ToUpper() = "NTFS"
End Function

End Class