[AmeenRashed]

السلام عليكم

تم استخدام هذا الكود من أحد المبرمجين على فيجوال بيسك 10 إن لم يكن إصدار أقدم

وعندما حاولت اقتباس هذا الكود لاستخدامه  ظهر لى أربعة أخطاء كما هو ظاهر فى الصورة

المطلوب تكرماً إيضاح ما هى المكتبات الناقصة أو المتغيرات المطلوبة لتختفى هذه الأخطاء

شكراً لسعة صدركم

PHP كود :

Imports System.Management

Public Class Form1
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    End Sub

    Public Shared Function GetVolumeSerial(ByVal ltr As Object) As String
        Dim obj2 As New ManagementObject($"win32_logicaldisk.deviceid="{ltr}:"")
        obj2.Get()
        Return obj2("VolumeSerialNumber").ToString
    End Function


End Class 


[Taha Okla]

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

عليك أولا إضافة المكبة : System.Management

ثم استيرادها
-

كود :

Imports System.Management

- الكود بعد التصحيح :

كود :

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       MsgBox(GetVolumeSerial("C"))
   End Sub

   Public Shared Function GetVolumeSerial(ByVal ltr As String) As String

       Dim obj2 As ManagementObject = New ManagementObject("win32_logicaldisk.deviceid='" & ltr & ":'")
       obj2.Get()
       Return obj2("VolumeSerialNumber").ToString

   End Function

[AmeenRashed]

تمام أخى طه
لكن _ أنا _ لا أريد البديل أو التعديل على الكود
بل سؤالى : كيف تم استخدام هذا الكود دون أخطاء ؟ .. من المؤكد أن هناك روتينات فرعية تخدمه .

[Taha Okla]

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

أقرأ الكود جيداً : هو نفسه ولم يختلف فيه شيء..
سوى طريقة الاختصار..