تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] اريد كود بالفيجوال بيسك 2008 يقراء سريال المازربورد
#1
اريد كود بالفيجوال بيسك 2008 يقراء سريال المازربورد و شكرا على المساعدة
الرد }}}
تم الشكر بواسطة:
#2
للتمييز بين الحواسيب المختلفة
يمكنك الاستفادة من معرف المعالج CPU id


PHP كود :
Public Function CPU_ID() As String

        Dim wmi 
As Object GetObject("winmgmts:" _
            
"{impersonationLevel=impersonate}!\\.\root\cimv2")
        
Dim processors As Object wmi.ExecQuery("Select * from " _
            
"Win32_Processor")

        
Dim cpu_ids As String ""
        
For Each cpu As Object In processors
            cpu_ids 
cpu_ids ", " cpu.ProcessorId
        Next
        
If cpu_ids.Length 0 Then cpu_ids cpu_ids.Substring(2)

        Return 
cpu_ids
    End 
Function 
الرد }}}
#3
(11-02-16, 12:34 AM)Fantastico كتب : للتمييز بين الحواسيب المختلفة
يمكنك الاستفادة من معرف المعالج  CPU id


PHP كود :
   Public Function CPU_ID() As String

        Dim wmi 
As Object GetObject("winmgmts:" _
            
"{impersonationLevel=impersonate}!\\.\root\cimv2")
 
       Dim processors As Object wmi.ExecQuery("Select * from " _
            
"Win32_Processor")

 
       Dim cpu_ids As String ""
 
       For Each cpu As Object In processors
            cpu_ids 
cpu_ids ", " cpu.ProcessorId
        Next
        If cpu_ids
.Length 0 Then cpu_ids cpu_ids.Substring(2)

 
       Return cpu_ids
    End 
Function 

شكرا لك ولاكن اين مكان هذا الكود و اين يظهر السريال على الفورم و شكرا
الرد }}}
تم الشكر بواسطة:
#4
(12-02-16, 03:59 AM)nabil.1710 كتب :
(11-02-16, 12:34 AM)Fantastico كتب : للتمييز بين الحواسيب المختلفة
يمكنك الاستفادة من معرف المعالج  CPU id


PHP كود :
   Public Function CPU_ID() As String

        Dim wmi 
As Object GetObject("winmgmts:" _
            
"{impersonationLevel=impersonate}!\\.\root\cimv2")
 
       Dim processors As Object wmi.ExecQuery("Select * from " _
            
"Win32_Processor")

 
       Dim cpu_ids As String ""
 
       For Each cpu As Object In processors
            cpu_ids 
cpu_ids ", " cpu.ProcessorId
        Next
        If cpu_ids
.Length 0 Then cpu_ids cpu_ids.Substring(2)

 
       Return cpu_ids
    End 
Function 

شكرا لك ولاكن اين مكان هذا الكود و اين يظهر السريال على الفورم و شكرا

اكتب msgbox(CPU_ID) او ضعها فى textbox او label اى اداة بها خاصية .text لان الدالة تعطى قيمة نصية عند تنفيذها string
الرد }}}
تم الشكر بواسطة: gharib , حسن الجلب
#5
(12-02-16, 02:19 PM)mohamed haroon كتب :
(12-02-16, 03:59 AM)nabil.1710 كتب :
(11-02-16, 12:34 AM)Fantastico كتب : للتمييز بين الحواسيب المختلفة
يمكنك الاستفادة من معرف المعالج  CPU id


PHP كود :
   Public Function CPU_ID() As String

        Dim wmi 
As Object GetObject("winmgmts:" _
            
"{impersonationLevel=impersonate}!\\.\root\cimv2")
 
       Dim processors As Object wmi.ExecQuery("Select * from " _
            
"Win32_Processor")

 
       Dim cpu_ids As String ""
 
       For Each cpu As Object In processors
            cpu_ids 
cpu_ids ", " cpu.ProcessorId
        Next
        If cpu_ids
.Length 0 Then cpu_ids cpu_ids.Substring(2)

 
       Return cpu_ids
    End 
Function 

شكرا لك ولاكن اين مكان هذا الكود و اين يظهر السريال على الفورم و شكرا

اكتب msgbox(CPU_ID) او ضعها فى textbox او label اى اداة بها خاصية .text لان الدالة تعطى قيمة نصية عند تنفيذها string

شكرا لك اخى قد تم المطلوب و لاكن طلب اخير و جزاك الله خيرا هذا سريال المعالج فهل يوجد كود لمعرفة سريال المازربورد و شكرا على مجهودك
الرد }}}
تم الشكر بواسطة:
#6
(11-02-16, 12:34 AM)Fantastico كتب : للتمييز بين الحواسيب المختلفة
يمكنك الاستفادة من معرف المعالج  CPU id


PHP كود :
   Public Function CPU_ID() As String

        Dim wmi 
As Object GetObject("winmgmts:" _
            
"{impersonationLevel=impersonate}!\\.\root\cimv2")
 
       Dim processors As Object wmi.ExecQuery("Select * from " _
            
"Win32_Processor")

 
       Dim cpu_ids As String ""
 
       For Each cpu As Object In processors
            cpu_ids 
cpu_ids ", " cpu.ProcessorId
        Next
        If cpu_ids
.Length 0 Then cpu_ids cpu_ids.Substring(2)

 
       Return cpu_ids
    End 
Function 

شكرا اخى
الرد }}}
تم الشكر بواسطة: مبرمج مصرى , حسن الجلب , حسن الجلب


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [درس فيديو] اضافة ملف مشغل لصفحة html و جافاسكريبت و سي اس اس بفيجوال بيسك.(قد لا اكون اصبت بالتع سعود 1 917 17-04-23, 08:31 AM
آخر رد: سعود
  ربط الفيجوا ل بيسك 2010 بأكسيس 2010 اسلام الكبابى 0 1,822 04-08-21, 01:27 AM
آخر رد: اسلام الكبابى
  دمج قاعدة بيانات SQL Server 2008 مع المشروع بالـ VBNET snipercoder 4 8,199 12-11-20, 06:01 PM
آخر رد: lion4
  [مشروع] مكتبة برمجية بلغة الفيجوال بيسك aljzazy 4 3,769 23-05-20, 02:12 PM
آخر رد: asemshahen5
  [VB.NET] برنامج ستايلات للفيجوال بيسك DK-x 2 5,958 14-08-19, 07:51 PM
آخر رد: أمجد وضاح
Information تحميل برنامج الفيجوال بيسك 2010 download visual basic 2010 mohamed atef2018 4 64,939 15-03-19, 07:50 PM
آخر رد: العتيق
  خلفية مثل الفجوال بيسك محمود صالح 0 2,186 29-12-17, 12:52 PM
آخر رد: محمود صالح
  [VB.NET] مجموعة من الدروس الخاصة بالفيجوال بيسك دوت نت ayoub 1 3,512 18-03-17, 12:05 AM
آخر رد: sendbad100
  حصريا لمنتدى فيجوال بيسك لكل العرب شرح مكتبه علي سبايسى (alysbisydata) alimse 9 7,175 03-01-15, 04:10 PM
آخر رد: abulayth
  درس عمل زر جميل الشكل بالفيجوال بيسك boty 5 4,205 22-08-13, 05:15 PM
آخر رد: زهرة الازهار_mybb_import9220

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم