+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : طلب مساعدة في تعديل كود لجلب الرقم التسلسلى للوحة الام للحماية (/showthread.php?tid=44194)
طلب مساعدة في تعديل كود لجلب الرقم التسلسلى للوحة الام للحماية - abdalwahd - 29-10-22
السلام عليكم يا أخوان .. كيف أحوالكم ؟
هذا الكود يقوم بحماية البرنامج لو سمحتم أريد مساعدة في تعديل
هو يقوم بجلب الرقم التسلسلى للهارد ديسك اريد تعديل الكودليقوم بجلب الرقم التسلسلى للوحة الام اريد الحماية برقم التسلسلى للوحة الام
كود :
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 SubRE: طلب مساعدة في تعديل كود لجلب الرقم التسلسلى للوحة الام للحماية - O27 - 29-10-22
How to get the first available Motherboard's serial number?
RE: طلب مساعدة في تعديل كود لجلب الرقم التسلسلى للوحة الام للحماية - abdalwahd - 29-10-22
بارك الله فيك اخي رجاء المساعده لقد قمت بعده محاولات لجعل البرنامج يقوم بجلب الرقم التسلسلي للوحه الام ولم استطيع رجاء المساعده
الحمايه بالهارد ديسك لقد قمت التجربه البرنامج على عدة اجهزه فيه بعض الاجهزه لا يقوم بجلب رقم التسجيل للهارد ياتي مربع النص فارغ رجاء اخواني مساعده لان الامر مهم من لديه خبره ان يقوم بمساعدتي بالتعديل على البرنامج في الربط في المشاركه
RE: طلب مساعدة في تعديل كود لجلب الرقم التسلسلى للوحة الام للحماية - asmarsou - 29-10-22
(29-10-22, 06:40 PM)abdalwahd كتب : بارك الله فيك اخي رجاء المساعده لقد قمت بعده محاولات لجعل البرنامج يقوم بجلب الرقم التسلسلي للوحه الام ولم استطيع رجاء المساعده
الحمايه بالهارد ديسك لقد قمت التجربه البرنامج على عدة اجهزه فيه بعض الاجهزه لا يقوم بجلب رقم التسجيل للهارد ياتي مربع النص فارغ رجاء اخواني مساعده لان الامر مهم من لديه خبره ان يقوم بمساعدتي بالتعديل على البرنامج في الربط في المشاركه
و عليكم السلام و رحمة الله و بركاته
اليك بالمثال الذي ارفقته بعد التعديل عليه
RE: طلب مساعدة في تعديل كود لجلب الرقم التسلسلى للوحة الام للحماية - abdalwahd - 30-10-22
جزاكم الله خيرا وأحسن إليك وبارك فيك وجعله الله فى ميزان حسناتك