+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] جلب السيريال الخاص بكل Volume علي حده .... (/showthread.php?tid=639)
جلب السيريال الخاص بكل Volume علي حده .... - nmst70 - 22-10-13
السلام عليكم ورحمة الله وبركاتة
اسعد الله اوقاتكم ايها الاخوة
أثناء تجوالي علي الانترنت وجدت مثال يجلب السيريال الخاص بكل Volume علي حده .... قم بكتابة الــ Volume المطلوب ثم اضغط علي Volume Serial
سيقوم المثال بجلب السيرال للــ Volume المختار
المطلوب ان هذا المثال بدون السورس كود نرجو منكم المساعدة في كودات هذا المثال
بواسطة فيجوال 2008
ولكم كل الشكر
RE: جلب السيريال الخاص بكل Volume علي حده .... - learning.net - 22-10-13
فى المرفقات
السورس كود للبرنامج الذى وضعته انت
الكود ليس من اختراعى ولكن كل ماعملته هو استخراج الاكواد من الملف الذى ارفقته انت
بالتوفيق إن شاء الله[attachment=462]
RE: جلب السيريال الخاص بكل Volume علي حده .... - abusohayb - 22-10-13
كيف استخرجت الأكواد أخي الكريم؟
RE: جلب السيريال الخاص بكل Volume علي حده .... - nmst70 - 23-10-13
لك كل الشكر اخي العزيزlearning.net على هذة المشاركة وحقا هذا هو المطلوب
ونرجو منك ما يلي
تحويل هذا المثال الى فيجوال 2008
وتانيا هل هناك طريقة سهلة للاستخراج الاكواد من الامثلة التنفيذية
ولك كل الشكر
RE: جلب السيريال الخاص بكل Volume علي حده .... - learning.net - 23-10-13
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
اخى 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
PHP كود :
TextBox2.Text = (GetVolumeSerial(TextBox1.Text()))
اما بالنسبه لاستخراج الاكواد فانا استعملت برنامج ILSpy وهو مجانى ويمكنك تنزيله من هنا
وهو يتعامل مع ملفات ال exe و ال dll المصنوعه بلغة ال .net
وطبعا هو بيطلع الاكواد ولكن فى بعض الاحيان بيكون فيها بعض الاخطاء لازم انت اللى تعدلها.
ويمكنك تجربته بنفسك .... يعنى اعمل برنامج وبعد كده افتح الملف ال exe فى برنامج ال ILSpy ستجد اكوادك موجوده امامك كما كتبتها. وللعلم التعامل معه سهل جدا (جرب بنفسك)
ويوجد برامج كثيره تقوم بعمل Reflection لاظهار الاكواد اشهرهم على ما اعتقد NET Reflection.
(لللعلم:- انا لست خبير فى ال Reflection)
هذا والله اعلى واعلم
وبالتوفيق إن شاء الله
RE: جلب السيريال الخاص بكل Volume علي حده .... - nmst70 - 23-10-13
اشكرك كل الشكر اخي العزيزlearning.net على هذة المشاركة الجميلة
وتم عمل مثال كما افدت وكانت النتيجة صحيحة 100%
كما اشكرك على برامج الفك
والسلام عليكم ورحمة الله وبركاتة