السلام عليكم يا أخوان .. كيف أحوالكم ؟
هذا الكود يقوم بحماية البرنامج لو سمحتم أريد مساعدة في تعديل
هو يقوم بجلب الرقم التسلسلى للهارد ديسك اريد تعديل الكودليقوم بجلب الرقم التسلسلى للوحة الام اريد الحماية برقم التسلسلى للوحة الام
هذا الكود يقوم بحماية البرنامج لو سمحتم أريد مساعدة في تعديل
هو يقوم بجلب الرقم التسلسلى للهارد ديسك اريد تعديل الكودليقوم بجلب الرقم التسلسلى للوحة الام اريد الحماية برقم التسلسلى للوحة الام
كود :
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
TxtWnd.Text = My.Computer.Info.OSFullName
TxtMname.Text = System.Environment.MachineName
TxtLang.Text = My.Computer.Info.InstalledUICulture.EnglishName
Dim cmicWmi As New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive")
Dim diskid As String 'DigitalID
Dim SerialNumber As String ' this is we will call it the serial number for the time being
Dim diskmodel As String ' serial unmber
For Each cmicWmiobj As ManagementObject In cmicWmi.Get
diskid = cmicWmiobj("signature")
SerialNumber = cmicWmiobj("serialnumber")
diskmodel = cmicWmiobj("model")
Next
Dim x As String
TextBox1.Text = SerialNumber
TextBox2.Text = diskid
TextBox4.Text = Val(TextBox2.Text) + 13 + 1225 - 1650
TextBox4.Text = TextBox4.Text * 1000 + 300 - 5 * 120
x = TextBox4.Text
Dim activekey As RegistryKey
activekey = Registry.LocalMachine.OpenSubKey("SOFTWARE", True)
activekey = Registry.LocalMachine.OpenSubKey("SOFTWARE\Progtest", True)
If activekey Is Nothing Then
End If
activekey = Registry.LocalMachine.OpenSubKey("SOFTWARE", True)
activekey.CreateSubKey("Progtest")
activekey = Registry.LocalMachine.OpenSubKey("SOFTWARE\Progtest", True)
activekey.SetValue("System_Key", x)
activekey.Close()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If TextBox3.Text = TextBox4.Text Then
MsgBox("تمت عملية تفعيل البرنامج بنجاح")
Else
MsgBox("رقم تفعيل الدي ادخلته غير صحيح الرجاء مرجعة قسم المبيعات")
Application.Exit()
End If
End Sub
