كود التحقق من رقم الهادرسك

وتستطيع ايضا عكس المثال الاول اخي الكريم   وجزاء الله استاذنا الفاضل  محمد فؤاد  خير وزيادة

السلام عليكم

الاخوة الاعزاء

الموضوع جميل جدا سلمت ايديكم

عندي سؤال لو سمحتم

هل بامكاني تطبيق هذا الكود على برنامج بالاكسس كيف اذا كان ذلك؟

بصراحة انا اعمل في بيئة الاكسس ولا يزال الطريقة في بدايته بالنسبة للدوت نت والفي بي.

شكرا لكم على حسن الاجابة

تحياتي

اذهب لمنتدي الاكسس واسأل هناك فستجد الكثير من الاجابات من الاخوة المختصين بخصوص حماية ملف الاكسس

أخي العزيز

إذا كان عندي أكثر من هارد ديسك في الجهاز، كيف أعرف رقم الهارد ديسك الثاني فقط ولنفرض بأنه "D"

وشكرا

جزاك الله خيرا م\

شكرا استاذنا محمد فؤاد

فلا يزال عملك الطيب مستمر في الاكسس فانت من السابقين السابقين في الاكسس وانا بصراحة اعتمدت على نظامك لعام 2007 في المخازن والمبيعات وصممت برنامج جميل، وبما انك تواصلك معي فانا احب ان اشكرك جزيلا الشكر على ذلك، وايضا شكرا لاجابتك حول الحماية، يعطيك الرحمن الصحة والعافية والتألق، تحياتي أخوك صفاء

أخي الفاضل Salit

السلام عليكم ورحمة الله وبركاتة

بارك الله فيك علي هذه الكلمات الطيبة ولا تنسانا من صالح الدعاء

اقتباس

أخي العزيز

إذا كان عندي أكثر من هارد ديسك في الجهاز، كيف أعرف رقم الهارد ديسك الثاني فقط ولنفرض بأنه "D"

وشكرا

أخي الفاضل Booknet

السلام عليكم ورحمة الله وبركاتة

أثناء تجوالي علي الانترنت وجدت مثال يجلب السيريال الخاص بكل Volume علي حده .... قم بكتابة الــ Volume المطلوب ثم اضغط علي Volume Serial

سيقوم المثال بجلب السيرال للــ Volume المختار

المصدر :- http://www.eggheadcafe.com/articles/20021019.asp

بالتوفيق

Volum Serial.rar

عليكم السلام ورحمة الله وبركاتة

بارك الله فيك أخي الفاضل، وزادك الله علما.

ولكني وجدت الكود التالي فما رأيك في:

Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        Dim searcher As New ManagementObjectSearcher("root\CIMV2", "SELECT * FROM Win32_LogicalDisk")

        Dim sb As New StringBuilder()

        For Each wmi As ManagementObject In searcher.[Get]()
            Try
                sb.Append("Drive Device ID: " + wmi.GetPropertyValue("DeviceID").ToString() + Environment.NewLine)
                sb.Append("Caption: " + wmi.GetPropertyValue("Caption").ToString() + Environment.NewLine)
                sb.Append("Volume Serial Number: " + wmi.GetPropertyValue("VolumeSerialNumber").ToString() + Environment.NewLine)
                sb.Append("Free Space: " + wmi.GetPropertyValue("FreeSpace").ToString() + " bytes free" + Environment.NewLine + Environment.NewLine)

            Catch

            End Try
        Next
        TextBox1.Text = sb.ToString()

    End Sub

    Private Sub Button6_Click(sender As System.Object, e As System.EventArgs) Handles Button6.Click
        Dim pid As String = TextBox2.Text & ":"
        Dim searcher As New ManagementObjectSearcher("root\CIMV2", "SELECT * FROM Win32_LogicalDisk Where Name = '" + pid + "'")

        Dim sb As New StringBuilder()

        For Each wmi As ManagementObject In searcher.[Get]()
            Try
                sb.Append("Drive Device ID: " + wmi.GetPropertyValue("DeviceID").ToString() + Environment.NewLine)
                sb.Append("Caption: " + wmi.GetPropertyValue("Caption").ToString() + Environment.NewLine)
                sb.Append("Volume Serial Number: " + wmi.GetPropertyValue("VolumeSerialNumber").ToString() + Environment.NewLine)
                sb.Append("Free Space: " + wmi.GetPropertyValue("FreeSpace").ToString() + " bytes free" + Environment.NewLine + Environment.NewLine)

            Catch

            End Try
        Next
        TextBox1.Text = sb.ToString()

    End Sub

أخي الفاضل

Booknet

الانترنت مليء بالاكواد

طالما تحقق لك المطلوب سواء من المثال الاول أو الكود الثاني فاستخدم ما تجده مناسب لك

استاذ محمد فؤاد تركي انا بسأل بخصوص الفلاش ميموري

انا استخدمت الكود اللي موجود في مثالك المرفق لاستخراج سريال الفلاش بس ازاي نستخدمه في حماية برنامجنا لانه لما بحط فلاش تاني بيديني سريال الفلاش التاني .. فا ازاي نخليه يجيب بس رقم الفلاش ميموري اللي عليها البرنامج أو يبحث اذا كانت الفلاش موجودة بالجهاز او لا ؟؟؟

الاستاذ الفاضل bookner

يوجد خطأ  تحت بعض الاكواد مثل

Dim sb As New StringBuilder()

ما الكلاس الذي يتم استدعاؤه

شكرا