تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
برنامج تجريبي
#1
السلام عليكم 
لوسمحتوا  عاوز اعرف كيف اعمل البرنامج لا يعمل الا علي جهاز واحد 
وجزاكم الله خير الجزاء
الرد
تم الشكر بواسطة:
#2
السّلام عليكم و رحمة الله و بركاته
متابع إن شاء الله..
تحياتي
الرد
تم الشكر بواسطة:
#3
توجد طريقة من خلال التأكد من سيريال البروسيسر أو المذربورد : 

كود :
Private Function SystemSerialNumber() As String
   ' Get the Windows Management Instrumentation object.
   Dim wmi As Object = GetObject("WinMgmts:")

   ' Get the "base boards" (mother boards).
   Dim serial_numbers As String = ""
   Dim mother_boards As Object = _
       wmi.InstancesOf("Win32_BaseBoard")
   For Each board As Object In mother_boards
       serial_numbers &= ", " & board.SerialNumber
   Next board
   If serial_numbers.Length > 0 Then serial_numbers = _
       serial_numbers.Substring(2)

   Return serial_numbers
End Function


Private Function CpuId() As String
   Dim computer As String = "."
   Dim wmi As Object = GetObject("winmgmts:" & _
       "{impersonationLevel=impersonate}!\\" & _
       computer & "\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 cpu
   If cpu_ids.Length > 0 Then cpu_ids = _
       cpu_ids.Substring(2)

   Return cpu_ids
End Function

أتمنى إني أكون أفدتك ...

تحياتي ...
الرد
تم الشكر بواسطة: عبد العزيز البسكري
#4
اخي العزيز جزاك الله خير الجزاء
ولكن لا اعرف كيف استخدم الكود.هل اضعه في button ام ماذا
وجزاك الله خيرا
الرد
تم الشكر بواسطة:
#5
يتم وضعه في 

Form1_Load
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] طلب برنامج مخزن مجاني A12 2 1,205 , 03:32 PM
آخر رد: samiha
  كيف يمكنني رفع برنامج فيجول بيسيك على موقع اسضافة mohamedgadain61 0 27 25-10-20, 10:18 PM
آخر رد: mohamedgadain61
  [VB.NET] ماهو افضل برنامج للتشفير ميدو الفنان 4 149 21-10-20, 09:17 PM
آخر رد: ميدو الفنان
  [سؤال] عند تشغيل برنامج في ريسورس فيجوال بسك بظهر خطا jam3h 0 91 17-10-20, 11:35 PM
آخر رد: jam3h
  [VB.NET] برنامج اقساط على الفجوال بيسك 2010 وقاعده بيانات سيكوال سيرفر 2008 shawky ahmed 1 134 12-10-20, 09:12 AM
آخر رد: mmali127
  ممكن المساعدة فى برنامج البصمة مرفق مثال new_programer 3 236 12-10-20, 12:53 AM
آخر رد: new_programer
  [VB.NET] مساعدة لعمل برنامج حضور وانصراف+وقاعدة بيانات shone1 3 230 10-10-20, 01:14 PM
آخر رد: shone1
  [VB.NET] اسفسار عن الأصناف ضمن برنامج alaa.alnaser91 3 176 02-10-20, 10:13 PM
آخر رد: abdou
  برنامج دمج ملفات المشروع في ملف تنفيذي واحد ابو محمد محمد محمد 6 693 27-09-20, 06:35 PM
آخر رد: Anas Mahmoud
  هل استطيع وضع مجلد فيه برنامج وملفاته dll معه وادمجن داخل ادات في فيجوال بيسك jam3h 0 161 13-09-20, 11:14 PM
آخر رد: jam3h

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


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