منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : سؤال
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم

ممكن كود معرفة معلومات عن رامات الجهاز
والمعالج
واسم المستخدم
لكود المعالج

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 
هذا كود يجلب لك معلومات الجهاز من سرعة معالج و الذاكرة المستخدمة و الذاكرة الكلية و اسم الكمبيوتر اسم نظام التشغيل اصدار نظام التشغيل اسم المستخدم رقم اصدار نظام التشغيل رقم البيلد الخاص بنظام التشغيل :

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 
السلام عليكم و رحمة الله و بركاته
فعلا معلومات شاملة و كاملة و الكمال لله أخي و أستاذي " عاصم "
بارك الله فيك و لك و أحسن إليك مثلما تحسن للجميع بروائع أعمالك
تحياتي واحتراماتي
الله يسلمك .