تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] جلب السيريال الخاص بكل Volume علي حده ....
#1
السلام عليكم ورحمة الله وبركاتة

اسعد الله اوقاتكم ايها الاخوة

أثناء تجوالي علي الانترنت وجدت مثال يجلب السيريال الخاص بكل Volume علي حده .... قم بكتابة الــ Volume المطلوب ثم اضغط علي Volume Serial

سيقوم المثال بجلب السيرال للــ Volume المختار

المطلوب ان هذا المثال بدون السورس كود نرجو منكم المساعدة في كودات هذا المثال
بواسطة فيجوال 2008
ولكم كل الشكر


الملفات المرفقة
.rar   SN.rar (الحجم : 6.69 ك ب / التحميلات : 162)
الرد }}}
تم الشكر بواسطة:
#2
فى المرفقات
السورس كود للبرنامج الذى وضعته انت

الكود ليس من اختراعى ولكن كل ماعملته هو استخراج الاكواد من الملف الذى ارفقته انت

بالتوفيق إن شاء الله
.rar   Get_Serial.rar (الحجم : 61.51 ك ب / التحميلات : 175)
"الناس نيام فإذا ماتوا إنتبهوا"
الرد }}}
تم الشكر بواسطة: kslawy , mohammed moh , sooriaty03
#3
كيف استخرجت الأكواد أخي الكريم؟
الرد }}}
تم الشكر بواسطة:
#4
لك كل الشكر اخي العزيزlearning.net على هذة المشاركة وحقا هذا هو المطلوب

ونرجو منك ما يلي
تحويل هذا المثال الى فيجوال 2008
وتانيا هل هناك طريقة سهلة للاستخراج الاكواد من الامثلة التنفيذية

ولك كل الشكر
الرد }}}
تم الشكر بواسطة:
#5
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته

اخى 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 StringBuilderByVal 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)

هذا والله اعلى واعلم

وبالتوفيق إن شاء الله
"الناس نيام فإذا ماتوا إنتبهوا"
الرد }}}
#6
اشكرك كل الشكر اخي العزيزlearning.net على هذة المشاركة الجميلة
وتم عمل مثال كما افدت وكانت النتيجة صحيحة 100%

كما اشكرك على برامج الفك






والسلام عليكم ورحمة الله وبركاتة
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  هل حفظ الفيمة في Checkbox الخاص بـTreeView مسلم_١ 3 1,101 30-10-23, 08:13 PM
آخر رد: ahmad2023
Thumbs Up توضيح لعمل السيريال الخاص بالمنتجات devpos 1 223 10-09-23, 05:49 PM
آخر رد: Asem2
  [سؤال] مشكلة تعارض برامج فيجول بيسك نت مع مكافح الفيروسات الخاص بالوندوز alfaiz678 2 797 21-10-22, 08:20 PM
آخر رد: alfaiz678
  [سؤال] اظهار الكيبورد الخاص بالويندوز محمد اسماعيل 3 2,739 19-09-22, 04:00 AM
آخر رد: abiza
Heart [VB.NET] بالله يا أخوتي نبي نفهم موضوع المزامنة الخاص بقواعد البيانات من نوع SQL SERVER 2016 RADOS 1 693 10-09-22, 01:10 PM
آخر رد: yassoo1985
  [سؤال] التحكم في scroll الخاص بالجريد فيو حسن الجلب 2 587 21-08-22, 01:12 PM
آخر رد: DR.YASER
  ما هو نوع البيانات الخاص بالصور فى قاعدة بيانات Accsess ؟ mmaalmesry 1 874 21-05-22, 11:52 PM
آخر رد: سعود
  [سؤال] كيفيه التحكم في شريط التمرير الخاص بالجريد فيو حسن الجلب 1 896 14-01-22, 11:43 PM
آخر رد: asmarsou
  [SQL] تابع_ الكود الخاص بحفظ و جلب صورة Image من و إلى قاعدة بيانات mmaalmesry 3 1,769 21-08-21, 06:32 PM
آخر رد: mmaalmesry
Information [VB.NET] سؤال : كيف ادخل كونترول الـ WebView2 الخاص بـ Chromium-Edge في VB Express 2010 بن دبة عبد السلام 2 1,401 21-08-21, 05:17 PM
آخر رد: بن دبة عبد السلام

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم