تقييم الموضوع :
  • 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
الله يعطيك العافية اخى الكريم الكاتب من ابداع الى بداع دائما يارب
يارب اذا اعطيتني علما...اعطني معه حكمه...واذا اعطيتني مالا....اعطيني معها كرما...واذا اعطيتني قوه...اعطني معها رحمه...واذا اعطيتني سلطه...اعطني معها عدلا...واذا اعطيتني مسئوليه...اعطيني معها امانه...واذا اعطيتني نجاحا...اعطني معها تواضعا...اللهم امين
الرد }}}}
تم الشكر بواسطة: الكاتب


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طلب مساعدة في اضافة save & restore trakktour 6 44 منذ 2 ساعة مضت
آخر رد: trakktour
  مشكلة صغيرة فى كتابة item الى xml Mohamed20 2 94 11-02-17, 01:27 AM
آخر رد: Mohamed20
Question [سؤال] محتاج طريقة لعرض الأسماء المكررة في الداتا بيز refaat130 3 101 06-02-17, 07:50 PM
آخر رد: sendbad100
Heart [VB.NET] احتاج الى مساعدة في برنامج لمحل لحساب الفاتورة malek369 1 184 06-02-17, 02:44 AM
آخر رد: ٌRy SAEED
  مساعدة فى xml Mohamed20 2 90 02-02-17, 05:40 PM
آخر رد: Mohamed20
  محتاج كود لمعرفه المواقع التى تم فتحها sasa-rosia 4 160 28-01-17, 02:09 AM
آخر رد: sasa-rosia
  [VB.NET] مساعدة في نقل الصنف من شاشه البحث الي فاتوره الشراء gmailali 6 207 24-01-17, 08:32 PM
آخر رد: gmailali
  محتاج كود النسخ والاستبدال eng.mustafa 1 92 24-01-17, 03:41 AM
آخر رد: eng.mustafa
  [كود] مساعدة في كود keyDown المبرمج العبقري 2 94 23-01-17, 01:49 AM
آخر رد: مساعدة
  [VB.NET] مساعدة في بحث CoderMM 0 73 22-01-17, 06:02 PM
آخر رد: CoderMM

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


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