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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Star [VB.NET] السلام عليكم اخوتي ف المنتدى احتاج الي مساعدة انا اصمم منظومة لشؤون العاملين بعد اض fatma anari 2 94 04-12-16, 11:04 AM
آخر رد: أبوبكر سويدان
  طلب مساعدة ناتج طرح عددين قيمة سالبه khalaroy 2 54 01-12-16, 03:09 AM
آخر رد: khalaroy
  [سؤال] مساعدة في الفيجوال بيسك عبدالرحمن المكاوي 1 64 28-11-16, 02:11 PM
آخر رد: عبدالرحمن المكاوي
  مساعدة في عمل برنامج rabeh.ram 4 175 27-11-16, 12:29 AM
آخر رد: rabeh.ram
  مساعدة في انشاء ثيم عبدالرحمن المكاوي 11 300 25-11-16, 11:57 AM
آخر رد: العزابي
  مساعدة في عرض البيانات في التقرير haiderkh 1 75 21-11-16, 11:24 PM
آخر رد: السرور
  مساعدة بخصوص Listbox CLARO 3 81 16-11-16, 06:15 PM
آخر رد: silverlight
  [VB.NET] مساعدة بسيطة في الكمبوبكس . أبووسم 3 88 16-11-16, 11:58 AM
آخر رد: أبووسم
  مساعدة فى برنامج ارسال رسائل sms للموبايل nabil.1710 2 84 13-11-16, 12:00 PM
آخر رد: أبوبكر سويدان
Question [سؤال] مشكلة محيرتني هل من مساعدة shwehdi4pc 14 2,119 10-11-16, 03:55 PM
آخر رد: أبوبكر سويدان

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


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