[marco]

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

اخواني اريد طريقه لجعل البرنامج يعمل علي ال removable فقط 
يعني يعمل علي الفلاشه فقط ولا يعمل علي الهارد ديسك 

و لو يوجد طريقه لربطها بفلاشه معينه يكون جميل

و شكراً مقدماً 

[asemshahen5]

هذا كود جلب سيريال الفلاشة :

PHP كود :

   Public Shared Function GetSerialNumber1(ByVal Num As Integer) As String
        Try
            FlashName.Clear()
            For Each drv In My.Computer.FileSystem.Drives
                If drv.DriveType = IO.DriveType.Removable Then
                    FlashName.Add(drv.Name)
                End If
            Next
            Dim wmi_ld, wmi_dp, wmi_dd As ManagementObject
            Dim temp, parts(), ans As String
            ans = ""
            'get the Logical Disk for that drive letter'
            wmi_ld = New ManagementObject("Win32_LogicalDisk.DeviceID='" & FlashName(Num).ToString.TrimEnd("\"c) & "'")'
            'get the associated DiskPartition '
            For Each wmi_dp In wmi_ld.GetRelated("Win32_DiskPartition")
                'get the associated DiskDrive'
                For Each wmi_dd In wmi_dp.GetRelated("Win32_DiskDrive")
                    'a USB disk.  Oh well... so we have go thru this extra step'
                    Dim wmi As New ManagementClass("Win32_DiskDrive")
                    'have to loop thru them all, when we know which one we want.'
                    For Each obj As ManagementObject In wmi.GetInstances
                        'Do the DeviceID fields match?'
                        If obj("DeviceID").ToString = wmi_dd("DeviceID").ToString Then
                            'The serial number is embedded in the PnPDeviceID'
                            temp = obj("PnPDeviceID").ToString
                            If Not temp.StartsWith("USBSTOR") Then
                                Throw New ApplicationException(FlashName(Num).ToString & " doesn't appear to be USB Device")
                            End If
                            parts = temp.Split("\&".ToCharArray)
                            'The serial number should be the next to the last element'
                            ans = parts(parts.Length - 2)
                        End If
                    Next
                Next
            Next
            Return ans
        Catch ex As Exception
            MsgBox("Error : " & ex.Message, MsgBoxStyle.Critical, "Error")
            Return Nothing
        End Try
    End Function 


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

إضافة لما تكرّم به أخي الغالي " عاصم " .. و من باب زيادة الخير .. خيريْن

كود آخر يفي بالغرض .. مع إضافة المكتبة اللازمة System Management .. و أداة ليست بكس

ملاحظة : لو يتكرّم الإخوة بتبديل الأداة ListBox ب TextBox

يبقى عمل معروف كبير .. و أكون له من الممتنّين 

تحياتي

[asemshahen5]

PHP كود :

For Each vv As ManagementObject In theSearcher.Get
            Dim SerialNumberObject As New ManagementObject("Win32_PhysicalMedia.Tag='" + vv("DeviceID").ToString + "'")
            Dim k() As String
            k = vv("PnPDeviceID").ToString.Split("\&".ToCharArray)
            TextBox1.Text = "Name : " + vv("model") + vbNewLine + "Serial Number : " + k(k.Length - 2) + vbNewLine + "==================================="
        Next 


ضع التكست بوكس ملتي لين

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

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

تسلم أخي الغالي و المحترم .. عاصم .. و سلم يمينك و دينك

تمام التّمام .. و زيادة .. و الحمد لله .. فالفضل له ثم لك أنت يا غالي

باللحظة التي كتبت بها سؤالي .. أحسست أن عقلي تمّ فرمتته أكثر من الفلاشة .. لست أدري ربما بسبب الصيام

النقطة المهمة أنّك وجّهتني للفكرة .. و هي أنّي أريد الحصول فقط على الرقم ليتم إستغلاله بدون بيانات أخرى

 واكتشفت ذلك من خلال تنبيهك كالتالي

كود :

 TextBox1.Text = k(k.Length - 2).ToString

أجدد شكري و تقدير واحترامي وامتناني لشخصك الكريم

تحياتي و تقييماتي

[asemshahen5]

لا شكر على واجب و رمضان كريم .