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

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

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

كيف يمكن جلب سيريال الاسطوانة 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

[ابراهيم ايبو]

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

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

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

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

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

تحياتي

[asemshahen5]

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 


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

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

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

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

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

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

[asemshahen5]

Imports System.IO