المشاركات : 195
المواضيع 87
الإنتساب : Oct 2018
السمعة :
0
الشكر: 81
تم شكره 100 مرات في 68 مشاركات
السلام عليكم
الحمد لله نجحت فى ربط البرنامج بالسريال نمبر للجهاز
ممكن اعرفالخطوة التالية ايه من حيث كيفية الا يعمل على جهاز اخر
المشاركات : 351
المواضيع 130
الإنتساب : Sep 2013
السمعة :
15
الشكر: 291
تم شكره 236 مرات في 105 مشاركات
هناك طرق كثيره واشهرها مثل ماهو موضح في الاسفل :
مالذي تقصده بالحمايه عن طريق السريال نمبر للجهاز هل هو احد التسميات الموجوده في الاسفل
عن طريق الماك ادريس mac address
عن طريق رقم الهارديسك ..
عن طريق رقم المعالج ..
عن طريق الريجستري ..
وربما هناك طرق أخرى ..
اللهمّ بعلمك الغيب وقدرتك على الخلق، أحييني ما علمت الحياة خيراً لي، وتوفّني ما علمت الوفاة خيراً لي.
المشاركات : 351
المواضيع 130
الإنتساب : Sep 2013
السمعة :
15
الشكر: 291
تم شكره 236 مرات في 105 مشاركات
03-03-19, 11:13 AM
(آخر تعديل لهذه المشاركة : 03-03-19, 11:16 AM {2} بواسطة محمد مسافر.)
كود :
مهم جداً اضافة Add Reference قبل أي شي ويعدين ممكن ننسخ الكود
الكود الموضح في الاسفل لحمايه البرنامج عن طريق المعالج بحيث تدخل رقم المعالج الذي تريد ان يعمل فيه البرنامج فقط
واي جهاز اخر لن يعمل
Imports System.Threading
Imports System.Management
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim MOS_PR As New ManagementObjectSearcher("SELECT * FROM Win32_Processor")
Dim mo_PR As ManagementObject
For Each mo_PR In MOS_PR.Get()
TextBox1.Text = mo_PR("ProcessorId").ToString()
Next
If TextBox1.Text <> "رقم المعالج الذي تريد ان يعمل فيه البرنامج فقط" Then
MsgBox("غير مصرح لك باستخدام البرنامج علي هذه الماكينة", MsgBoxStyle.Critical, "تحذير")
Me.Dispose()
End If
End Sub
اللهمّ بعلمك الغيب وقدرتك على الخلق، أحييني ما علمت الحياة خيراً لي، وتوفّني ما علمت الوفاة خيراً لي.