منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : شباب محتاج مساعدة صغيرة جدا
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
بسم الله الرحمن الرحيم
السلام عليكم شباب
كنت ابحث عن طريقة لحماية البرنامج عن طريق سريال الهارد ديسك وجدت موقع به طريقة جميلة لاكن المشكلة لا اعلم كيفية تشغيلها
وهو من موقع مكروسوفت
محتاج طريقة للشرح كفية وضع الكود وعمل صفحة السريال نمبر

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

محتاج مثال صغير لهذا الموضوع وشكرا جزيلا
يمكنك استخدام 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
الف شكر على المشاركة الفكرة مش فى كده طيب انا جبت سريال الهارد وتمام
بعد كده انا هاشفر البرنامج ازاى بالسريال
حضرتك لما تيجى توزع البرنامج لشخص يطلبه
اولا شغل برنامج جلب السيريال نمبر على جهاز هذا الشخص حتى تعرف رقم السيريال الخاص به

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

بعدها اكتب كود فى برنامجك يقارن الرقم المحفوظ برقم سيريال هارد الجهاز الذى يعمل عليه البرنامج
لو تطابق الرقمين اذن هذا الجهاز هو نفس الجهاز الذى جلبت منه السيريال فى البداية
اذا اختلف اذن هذا ليس الجهاز الذى جلبت منه السيريال فى البداية
اشكرك اخى العزيز
لاكن ما هو الكود الخاص بهذه المقارنة
الله يعطيك العافية اخى الكريم الكاتب من ابداع الى بداع دائما يارب