منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - [ تمّ الحل ] : جلب سيريال الاسطوانة

الصفحات : 1 2

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

إخواني الأفاضل ..

كيف يمكن جلب سيريال الاسطوانة CD

فقط كمحاولة لتفعيل البرنامج من خلالها

منذ فترة كان بمكتبتي كود خاص بذلك لكنّه ضاع منّي

بارك الله فيكم و لكم مقدّمًا و جزاكم خير الجزاء

تحياتي واحتراماتي

السلام عليكم ياعريس
تفضل واتدلل

كود :

   Dim con As ConnectionOptions = New ConnectionOptions

        Dim machineName As String = System.Environment.MachineName

        Dim mss As ManagementScope = New ManagementScope("\\" + machineName + "\root\cimv2", con)

        Dim ob As ObjectQuery = New ObjectQuery("SELECT * FROM win32_PhysicalMedia")

        Dim moss As ManagementObjectSearcher = New ManagementObjectSearcher(mss, ob)

        Dim queryCollection As ManagementObjectCollection = moss.Get

        For Each getnow As ManagementObject In queryCollection

            If getnow.Item("Tag") = "\\.\PHYSICALDRIVE0" Then

                TextBox1.Text = (getnow("SerialNumber").ToString().Trim())

            End If

        Next

        Dim MOS_HD As New ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive")

        Dim mo_HD As ManagementObject

        For Each mo_HD In MOS_HD.Get()

            TextBox5.Text = mo_HD("Model").ToString()

        Next

وهذا الكود لمعرفة نوع الهارد وحجمه

كود :

  ' هذا الكود يجلب نوع الهارد ديسك وحجمه

        Dim MOS_HD As New ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive")

        Dim mo_HD As ManagementObject

        For Each mo_HD In MOS_HD.Get()

            TextBox1.Text = mo_HD("Model").ToString()

        Next

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

تسلم أخي و أستاذي الحبيب الغالي "ابراهيم ايبو" و سلم يمنك و دينك

بارك الله فيك و جزاك خير الجزاء و أنعم عليك بما يحبه و يرضاه

لكن أخي الغالي .. يبدو أنّ الكود يجلب سيريال الفلاشة و ليس سيريال الاسطوانه

تحياتي واحتراماتي

السلام عليكم
اليك هذا البرنامج فيه الكثير

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

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

أخي ابراهيم ..

يبدو أنّ مأدبة العرس لم يتم تحضيرها بعد ..

برنامج به العديد من المواصفات و الأكواد الرائعة .. إلاّ سيريال الاسطوانة لم يتم جلبه

تحياتي واحتراماتي

كيف يتم استدعاء هذه الدالة التي يقول صاحبها أنّه وجد الحل .. مثلا بالتاكست بوكس رقم 1 بارك الله فيكم

كود :

   Function GetDriveSerialNumber(ByVal driveLetter As Char) As String

        Dim driveFilter As String = "Win32_LogicalDisk='" & driveLetter.ToString & ":'"

        Dim drive As New System.Management.ManagementObject(driveFilter)

        Return drive("VolumeSerialNumber")

    End Function

ياعريس يحق لك الدلال
تفضل هذا برنامج تازة

شوف أخي الغالي ..

هذا الكود يعمل جيدًا .. لكن ما أريد إظهاره هو فقط السيريال المشار إليه باللون الأصفر

كيف يمكن إستخلاص ذلك أخي ابراهيم

تحياتي

PHP كود :

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        TextBox1.Text = MachineSignature()
    End Sub
    Public Shared Function MachineSignature() As String
        If msig Is Nothing Then
            Dim list As New List(Of String)
            For Each d As DriveInfo In DriveInfo.GetDrives()
                If (d.DriveType = drivetype.Compact_Disc) AndAlso (d.IsReady) Then
                    list.Add(DriveSN(d.Name.Substring(0, 2)))
                End If
            Next
            msig = String.Join(" & ", list.ToArray())
        End If
        Return msig
    End Function
    Private Shared msig As String = Nothing
    Public Shared Function DriveSN(ByVal DriveLetter As String) As String
        Dim disk As ManagementObject = New ManagementObject(String.Format("Win32_Logicaldisk='{0}'", DriveLetter))
        Dim VolumeName As String = disk.Properties("VolumeName").Value.ToString()
        Dim SerialNumber As String = disk.Properties("VolumeSerialnumber").Value.ToString()
        Return SerialNumber.Insert(4, "-")
    End Function 

جرب هذا الكود بصراحة لم اجربه لان السواقة عندي معطلة .

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

تسلم أخي و أستاذي الكريم " عاصم شاهين " على المساعدة

يبدو أنّه توجد مكتبة ناقصة فلم أتمكن من التجربة

تحياتي واحتراماتي

Imports System.IO

الصفحات : 1 2

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

عبد العزيز البسكري

ابراهيم ايبو

عبد العزيز البسكري

ابراهيم ايبو

عبد العزيز البسكري

ابراهيم ايبو

عبد العزيز البسكري

asemshahen5

عبد العزيز البسكري

asemshahen5