تقييم الموضوع :
  • 2 أصوات - بمعدل 5
  • 1
  • 2
  • 3
  • 4
  • 5
مثال - جلب رقم المعالج لإستخدامه في حماية البرامج من النسخ
#1
Rainbow 
السلام عليكم ورحمة الله وبركاته
طريقة جلب رقم المعالج
افتح مشروع جديد
وضع به الادوات التالية:
1 ListBox
1 TextBox
2 Button
كما بالشكل التالي:

إذهب إلي Solution Explorer
إضغط زر الفأرة الأيمن اختار Add Reference
من التبويب .NET اضف المرجع System.Management
ثم في شاشة تحرير الكود إستدعي المرجع System.Management كما يلي:
كود :
Imports System.Management
في قسم التصاريح عرف متغيير لإستخدامه في تحميل قيمة المعالج كالتالي:
كود :
Public A As String = ""
كود زر جلب رقم المعالج
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim ProcessorID As New ManagementObjectSearcher("SELECT * FROM Win32_processor")
        Dim CPUID As ManagementObject
        For Each CPUID In ProcessorID.Get()
            A = Trim((CPUID("processorId").ToString()))
            If A <> "" Then
                ListBox1.Items.Add(A)
            End If
        Next
    End Sub
إضغط علي ListBox نقراً مزدوجاً ليفتح في شاشة الكود الحدث SelectedIndexChanged
كود :
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        TextBox1.Text = ListBox1.Text
    End Sub
يوجد مثال بالمرفقات

والله أعلي وأعلم
RolleyesRolleyesRolleyes


الملفات المرفقة
.rar   Genius_Live_GetProcessorID.rar (الحجم : 72.83 ك ب / التحميلات : 989)
{‏‏ يَرْفَعِ اللَّهُ الَّذِينَ آمَنُوا مِنكُمْ وَالَّذِينَ أُوتُوا الْعِلْمَ دَرَجَاتٍ‏ }

 " Mohamed M. Bedair     -     " Abu Anas
Genius Live , Egypt
الرد }}}}
#2
مشكور و ما قصرت

يعطيك العافية
شـــايـفـــك

الرد }}}}
تم الشكر بواسطة:
#3
ربى يجزيك خير
الرد }}}}
تم الشكر بواسطة:
#4
الله يبارك بيك
الرد }}}}
تم الشكر بواسطة:
#5
مشكوووووووووووووووووووووووووووووووووووووووووووووووووووووووور
الرد }}}}
تم الشكر بواسطة:
#6
شكرا لمجهودك الثمين
الرد }}}}
تم الشكر بواسطة:
#7
مشكور على مجهودك
الرد }}}}
تم الشكر بواسطة:
#8
السلام عليكم
لاكن اكتشفت ان هناك تشابه لارقام المعالجات . التى تحمل نفس الموديل أو نفس وحدات القياس التصميم .
لان لدينا فى الشركة مجموعة اجهزه من نوع معين ومواصفاتها متطابقه عند عند استخدام هذا البرنامج اتضح ان جميع الاجهزه تحمل نفس رقم المعالج .
وهذا اجده عيب .. ولا شنوا رايكم
أرجو التأكيد ربما كان هناك خطأ .
الرد }}}}
تم الشكر بواسطة: elbry1907
#9
مشكووووووووووووووووووووووور
الرد }}}}
تم الشكر بواسطة:
#10
(14-06-14, 05:01 PM)dbahl كتب : السلام عليكم
لاكن اكتشفت ان هناك تشابه لارقام المعالجات . التى تحمل نفس الموديل أو نفس وحدات القياس التصميم .
لان لدينا فى الشركة مجموعة اجهزه من نوع معين ومواصفاتها متطابقه عند عند استخدام هذا البرنامج اتضح ان جميع الاجهزه تحمل نفس رقم المعالج .
وهذا اجده عيب .. ولا شنوا رايكم
أرجو التأكيد ربما كان هناك خطأ .

وعليكم السلام يعني البرنامج راح يعمل عند جميع الاجهزة التى هي من نفس النوع هذا
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Brick [VB.NET] مثال بسيط على تسجيل الدخول الى الفيسبوك من خلال البرنامج elhon.tec 2 146 06-12-16, 11:25 PM
آخر رد: tempman
  [مثال] مثال لنسخ وإستعادة قاعدة البيانات ( تحديث) نسخ تلقائي للقاعدة حسب اليوم والساعة جميل علي 28 2,331 06-12-16, 09:34 PM
آخر رد: مبتدئه برمجه
Smile مثال دلع عميلك سعود 14 6,157 06-12-16, 09:31 PM
آخر رد: مبتدئه برمجه
  مثال: كيفية اقتطاع صورة من صورة أخري بإستخدام الماوس silverlight 7 289 05-12-16, 01:27 AM
آخر رد: ali.alfoly
  [VB.NET] برنامج كيفية حماية البرنامج من استخدامه اكثر من مرة shwehdi4pc 3 313 02-12-16, 06:39 PM
آخر رد: adooolah2011
  [مثال] مثال صغير .. لعرض داتا جريد لقاعدة بيانات وطباعتها boudyonline 3 928 15-11-16, 02:15 PM
آخر رد: marwen
  [كود] مثال بسيط للبحث عن كلمة او حرف داخل نص vb_net 4 1,613 17-10-16, 09:48 PM
آخر رد: adad
  مثال لنسخ وإستعادة قاعدة البيانات mysql صبري زينوبي 2 220 29-09-16, 05:06 PM
آخر رد: صبري زينوبي
Rainbow مثال - استيراد البيانات من Excel إلي ListView Genius Live 7 3,449 28-09-16, 01:16 AM
آخر رد: adel27
  ابسط مثال للتصاريح (سعود) (تحديث) جميل علي 3 464 13-09-16, 11:49 PM
آخر رد: جميل علي

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


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