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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سحب والافلات.Drag and Drop.مساعدة e-coder 6 71 منذ 1 ساعه مضت
آخر رد: ابو روضة
Rainbow (تم الحل )احتاج مساعدة حول خطأ system.accessviolationexception was unhandled dametucorazon 5 46 منذ 2 ساعة مضت
آخر رد: elgokr
  [VB.NET] مساعدة بخصوص برنامج مبيعات hodanet 4 89 20-04-19, 12:16 PM
آخر رد: elgokr
  طلب مساعدة في اضافة save restore حاتمي 6 138 13-04-19, 05:37 PM
آخر رد: trakktour
  مساعدة فى الويب بروزر Mohamed Magdy 3 67 13-04-19, 04:48 PM
آخر رد: trakktour
Exclamation [VB.NET] [تم الحل] مساعدة بمسألة رياضيه DK-x 8 412 03-04-19, 10:40 PM
آخر رد: DK-x
  محتاج حد يسعدني في فهم البرنامج هاذا حاولت افهم كتير ولاكن لم اعرف Mohamed Magdy 3 140 03-04-19, 12:29 AM
آخر رد: elgokr
  [VB.NET] محتاج التعديل على الكود backgroundworker mysql progressbar dubai.eig 6 143 02-04-19, 10:16 AM
آخر رد: dubai.eig
  مساعدة فى datagridview atef_020 17 253 02-04-19, 01:52 AM
آخر رد: elgokr
  مساعدة في DevExpress Rabeea Qbaha 5 95 01-04-19, 09:33 PM
آخر رد: elgokr

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


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