بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
اخى nmst70
للاسف ليس عندى فيجوال ستوديو 2008
ولكن يمكنك عمل الاتى:-
إبدأ مشروع جديد ثم اضف الاتى على الفورم:-
TextBox1
TextBox2
Button1
ثم ضع هذا الكود فى الفورم
PHP كود :
Imports System.Runtime.InteropServices
Imports System.Text
Public Class Form1
<DllImport("kernel32.dll")> _
Private Shared Function GetVolumeInformation(ByVal PathName As String, _
ByVal VolumeNameBuffer As StringBuilder, _
ByVal VolumeNameSize As UInteger, _
ByRef VolumeSerialNumber As UInteger, _
ByRef MaximumComponentLength As UInteger, _
ByRef FileSystemFlags As UInteger, _
ByVal FileSystemNameBuffer As StringBuilder, ByVal FileSystemNameSize As UInteger) As Long
End Function
Public Function GetVolumeSerial(ByVal strDriveLetter As String) As String
Dim serNum As UInteger = 0UI
Dim maxCompLen As UInteger = 0UI
Dim VolLabel As New StringBuilder(256)
Dim VolFlags As UInteger = 0UI
Dim FSName As New StringBuilder(256)
strDriveLetter += ":\"
Dim Ret As Long = GetVolumeInformation(strDriveLetter, VolLabel, _
CType(VolLabel.Capacity(), UInteger), _
serNum, maxCompLen, VolFlags, _
FSName, CType(FSName.Capacity(), UInteger))
Return Convert.ToString(serNum)
End Function
End Class
وفى حدث الضغط على Button1 ضع هذا الكود
PHP كود :
TextBox2.Text = (GetVolumeSerial(TextBox1.Text()))
وجرب البرنامج
اما بالنسبه لاستخراج الاكواد فانا استعملت برنامج ILSpy وهو مجانى ويمكنك تنزيله من
هنا
وهو يتعامل مع ملفات ال exe و ال dll المصنوعه بلغة ال .net
وطبعا هو بيطلع الاكواد ولكن فى بعض الاحيان بيكون فيها بعض الاخطاء لازم انت اللى تعدلها.
ويمكنك تجربته بنفسك .... يعنى اعمل برنامج وبعد كده افتح الملف ال exe فى برنامج ال ILSpy ستجد اكوادك موجوده امامك كما كتبتها. وللعلم التعامل معه سهل جدا (جرب بنفسك)
ويوجد برامج كثيره تقوم بعمل Reflection لاظهار الاكواد اشهرهم على ما اعتقد NET Reflection.
(لللعلم:- انا لست خبير فى ال Reflection)
هذا والله اعلى واعلم
وبالتوفيق إن شاء الله