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

https://social.msdn.microsoft.com/Forums...sexpressvb

محتاج مثال صغير لهذا الموضوع وشكرا جزيلا
يارب اذا اعطيتني علما...اعطني معه حكمه...واذا اعطيتني مالا....اعطيني معها كرما...واذا اعطيتني قوه...اعطني معها رحمه...واذا اعطيتني سلطه...اعطني معها عدلا...واذا اعطيتني مسئوليه...اعطيني معها امانه...واذا اعطيتني نجاحا...اعطني معها تواضعا...اللهم امين
الرد
تم الشكر بواسطة:
#2
يمكنك استخدام Process مع Command Prompt للحصول علي سيريال الهارد ديسك

و الكود التالي يوضح كيفية عمل ذلك

انت تحتاج ان تفتح فورم و تضع به باتون وتكست بوكس


كود :
Public Class Form1

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       TextBox1.Text = GetSerial()
   End Sub

   Private Function GetSerial() As String
       Dim p As Process = New Process
       Dim pi As ProcessStartInfo = New ProcessStartInfo
       pi.Arguments = "/c wmic bios get serialnumber"
       pi.FileName = "cmd"
       pi.RedirectStandardOutput = True
       pi.UseShellExecute = False
       pi.CreateNoWindow = True
       p.StartInfo = pi
       p.Start()
       Dim reader As StreamReader = p.StandardOutput
       Dim output As String = reader.ReadToEnd()
       output = output.Replace("SerialNumber  ", "")
       Return output
   End Function

End Class
الرد
تم الشكر بواسطة:
#3
الف شكر على المشاركة الفكرة مش فى كده طيب انا جبت سريال الهارد وتمام
بعد كده انا هاشفر البرنامج ازاى بالسريال
يارب اذا اعطيتني علما...اعطني معه حكمه...واذا اعطيتني مالا....اعطيني معها كرما...واذا اعطيتني قوه...اعطني معها رحمه...واذا اعطيتني سلطه...اعطني معها عدلا...واذا اعطيتني مسئوليه...اعطيني معها امانه...واذا اعطيتني نجاحا...اعطني معها تواضعا...اللهم امين
الرد
تم الشكر بواسطة:
#4
حضرتك لما تيجى توزع البرنامج لشخص يطلبه
اولا شغل برنامج جلب السيريال نمبر على جهاز هذا الشخص حتى تعرف رقم السيريال الخاص به

ثم اذهب الى برنامجك الاساسى وضع رقم السيريال فى اى شيء مثلا فى الSetting او فى اى شيء فى برنامجك

بعدها اكتب كود فى برنامجك يقارن الرقم المحفوظ برقم سيريال هارد الجهاز الذى يعمل عليه البرنامج
لو تطابق الرقمين اذن هذا الجهاز هو نفس الجهاز الذى جلبت منه السيريال فى البداية
اذا اختلف اذن هذا ليس الجهاز الذى جلبت منه السيريال فى البداية
الرد
تم الشكر بواسطة:
#5
اشكرك اخى العزيز
لاكن ما هو الكود الخاص بهذه المقارنة
يارب اذا اعطيتني علما...اعطني معه حكمه...واذا اعطيتني مالا....اعطيني معها كرما...واذا اعطيتني قوه...اعطني معها رحمه...واذا اعطيتني سلطه...اعطني معها عدلا...واذا اعطيتني مسئوليه...اعطيني معها امانه...واذا اعطيتني نجاحا...اعطني معها تواضعا...اللهم امين
الرد
تم الشكر بواسطة:
#6
هنا المطلوب
https://www.youtube.com/watch?v=NVYrEkXZ2xQ
الرد
تم الشكر بواسطة: احمد عبد الحكيم
#7
الله يعطيك العافية اخى الكريم الكاتب من ابداع الى بداع دائما يارب
يارب اذا اعطيتني علما...اعطني معه حكمه...واذا اعطيتني مالا....اعطيني معها كرما...واذا اعطيتني قوه...اعطني معها رحمه...واذا اعطيتني سلطه...اعطني معها عدلا...واذا اعطيتني مسئوليه...اعطيني معها امانه...واذا اعطيتني نجاحا...اعطني معها تواضعا...اللهم امين
الرد
تم الشكر بواسطة: الكاتب


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] طلب مساعدة بخصوص حفظ الداتا جريد فيو بها تشيكبوكس عاشق الرسول 10 202 منذ 8 ساعة مضت
آخر رد: ابراهيم ايبو
  محتاج كود او مثال لبرنامج تكرار السطر Mohamed Magdy 7 128 16-08-19, 01:14 AM
آخر رد: Mohamed Magdy
  مساعدة بسيطة mohamedahmed1 0 93 15-08-19, 03:13 AM
آخر رد: mohamedahmed1
  [VB.NET] محتاج اعدل على عمود كامل واغير بياناته eslame elgohary 7 188 15-08-19, 02:17 AM
آخر رد: eslame elgohary
  [سؤال] مساعدة في تثبيت مكتبة Selenium mohamedahmed1 5 101 14-08-19, 06:24 PM
آخر رد: asemshahen5
  [VB.NET] اريد مساعدة في حل مشكله صغيرة e-coder 1 59 14-08-19, 12:55 AM
آخر رد: سعود
  اريد مساعدة في حساب نسبة خصم من حقل نصي dametucorazon 4 124 09-08-19, 07:54 PM
آخر رد: dametucorazon
  اريد مساعدة في تنفيذ هذا الامر mohamedahmed1 1 75 08-08-19, 10:03 PM
آخر رد: ابراهيم ايبو
  [سؤال] مساعدة بخصوص CHECKLISTBOX عاشق الرسول 6 167 07-08-19, 02:43 AM
آخر رد: ابراهيم ايبو
  [سؤال] احتاج مساعدة في تنفيذ هذا الامر mohamed11223 4 121 06-08-19, 09:30 PM
آخر رد: ابراهيم ايبو

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


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