09-10-19, 06:04 PM
10-10-19, 02:41 AM
لكود المعالج
لمعرفة اسم الجهاز
PHP كود :
Imports System.Management
Public Function getCPU_ID() As String
Dim cpuID As String = String.Empty
Dim mc As ManagementClass = New ManagementClass("Win32_Processor")
Dim moc As ManagementObjectCollection = mc.GetInstances()
For Each mo As ManagementObject In moc
If (cpuID = String.Empty) Then
cpuID = mo.Properties("ProcessorId").Value.ToString()
End If
Next
Return cpuID
End Function
لمعرفة اسم الجهاز
PHP كود :
My.Computer.Name
10-10-19, 04:10 AM
هذا كود يجلب لك معلومات الجهاز من سرعة معالج و الذاكرة المستخدمة و الذاكرة الكلية و اسم الكمبيوتر اسم نظام التشغيل اصدار نظام التشغيل اسم المستخدم رقم اصدار نظام التشغيل رقم البيلد الخاص بنظام التشغيل :
PHP كود :
Public Function ComputerInformation() As String
Dim CmIn As String = String.Empty
Dim Bit As Integer
Dim ProcessorSet As Object
Dim CPU As Object
ProcessorSet = GetObject("Winmgmts:").ExecQuery("SELECT * FROM Win32_Processor")
For Each CPU In ProcessorSet
Bit = CStr(CPU.AddressWidth)
Next
If Bit = 64 Then
CmIn = "Cpu Informaion : " & CreateObject("WScript.Shell").RegRead("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0\ProcessorNameString") & " 64 Bit" & Environment.NewLine
Else
CmIn = "Cpu Informaion : " & CreateObject("WScript.Shell").RegRead("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0\ProcessorNameString") & " 32 Bit" & Environment.NewLine
End If
'CmIn += "64 Bit Operating System : " & Environment.Is64BitOperatingSystem & Environment.NewLine'
CmIn += "Available Physical Memory : " & (((My.Computer.Info.AvailablePhysicalMemory / 1024) / 1024) / 1024).ToString("00.00") & " GB" & Environment.NewLine
CmIn += "Available Total Physical Memory : " & (((My.Computer.Info.TotalPhysicalMemory / 1024) / 1024) / 1024).ToString("00.00") & " GB" & Environment.NewLine
CmIn += "Machine Name : " & Environment.MachineName & Environment.NewLine
If Bit = 64 Then
CmIn += "Operating System Name : " & My.Computer.Info.OSFullName & " 64 Bit" & Environment.NewLine
Else
CmIn += "Operating System Name : " & My.Computer.Info.OSFullName & " 32 Bit" & Environment.NewLine
End If
CmIn += "OSVersion : " & Environment.OSVersion.VersionString & Environment.NewLine
CmIn += "User Name : " & Environment.UserName & Environment.NewLine
CmIn += "Operating System Version : " & Environment.Version.ToString & Environment.Version.Build & Environment.NewLine
CmIn += "Operating System Version Build : " & My.Computer.Info.AvailablePhysicalMemory & Environment.NewLine
Return CmIn
End Function
10-10-19, 04:19 AM
السلام عليكم و رحمة الله و بركاته
فعلا معلومات شاملة و كاملة و الكمال لله أخي و أستاذي " عاصم "
بارك الله فيك و لك و أحسن إليك مثلما تحسن للجميع بروائع أعمالك
تحياتي واحتراماتي
10-10-19, 04:22 AM
الله يسلمك .