تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[ تمّ الحل ] : جلب سيريال الاسطوانة
#1
السّلام عليكم و رحمة الله و بركاته
إخواني الأفاضل ..
كيف يمكن جلب سيريال الاسطوانة CD
فقط كمحاولة لتفعيل البرنامج من خلالها
منذ فترة كان بمكتبتي كود خاص بذلك لكنّه ضاع منّي
بارك الله فيكم و لكم مقدّمًا و جزاكم خير الجزاء
تحياتي واحتراماتي
الرد
#2
السلام عليكم ياعريس
تفضل واتدلل
كود :
   Dim con As ConnectionOptions = New ConnectionOptions
       Dim machineName As String = System.Environment.MachineName
       Dim mss As ManagementScope = New ManagementScope("\\" + machineName + "\root\cimv2", con)
       Dim ob As ObjectQuery = New ObjectQuery("SELECT * FROM win32_PhysicalMedia")
       Dim moss As ManagementObjectSearcher = New ManagementObjectSearcher(mss, ob)
       Dim queryCollection As ManagementObjectCollection = moss.Get
       For Each getnow As ManagementObject In queryCollection
           If getnow.Item("Tag") = "\\.\PHYSICALDRIVE0" Then
               TextBox1.Text = (getnow("SerialNumber").ToString().Trim())
           End If
       Next
       Dim MOS_HD As New ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive")
       Dim mo_HD As ManagementObject
       For Each mo_HD In MOS_HD.Get()
           TextBox5.Text = mo_HD("Model").ToString()
       Next
وهذا الكود لمعرفة نوع الهارد وحجمه
كود :
  ' هذا الكود يجلب نوع الهارد ديسك وحجمه
       Dim MOS_HD As New ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive")
       Dim mo_HD As ManagementObject
       For Each mo_HD In MOS_HD.Get()
           TextBox1.Text = mo_HD("Model").ToString()
       Next
اعمل الخير واجرك لاتنتظره فالله خير من اليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد
#3
السّلام عليكم و رحمة الله و بركاته
تسلم أخي و أستاذي الحبيب الغالي "ابراهيم ايبو" و سلم يمنك و دينك
بارك الله فيك و جزاك خير الجزاء و أنعم عليك بما يحبه و يرضاه
لكن أخي الغالي .. يبدو أنّ الكود يجلب سيريال الفلاشة و ليس سيريال الاسطوانه
تحياتي واحتراماتي
الرد
#4
السلام عليكم
اليك هذا البرنامج فيه الكثير

ربما اكون قد وقعت في خظأ بين الفلاشة والهارد المهم في هذا البرنامج ايضا افحص بين القلاشة والهارد
لان البرنامج انشأته منذ بداياتي فالخطأ وارد


الملفات المرفقة
.zip   GetHardWareInfo.zip (الحجم : 140.58 ك ب / التحميلات : 11)
اعمل الخير واجرك لاتنتظره فالله خير من اليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد
تم الشكر بواسطة: عبد العزيز البسكري , asemshahen5
#5
السّلام عليكم و رحمة الله و بركاته
أخي ابراهيم ..
يبدو أنّ مأدبة العرس لم يتم تحضيرها بعد ..
برنامج به العديد من المواصفات و الأكواد الرائعة .. إلاّ سيريال الاسطوانة لم يتم جلبه
تحياتي واحتراماتي

كيف يتم استدعاء هذه الدالة التي يقول صاحبها أنّه وجد الحل .. مثلا بالتاكست بوكس رقم 1 بارك الله فيكم
كود :
   Function GetDriveSerialNumber(ByVal driveLetter As Char) As String
       Dim driveFilter As String = "Win32_LogicalDisk='" & driveLetter.ToString & ":'"
       Dim drive As New System.Management.ManagementObject(driveFilter)
       Return drive("VolumeSerialNumber")
   End Function

الرد
تم الشكر بواسطة: asemshahen5 , ابراهيم ايبو
#6
ياعريس يحق لك الدلال 
تفضل هذا برنامج تازة


الملفات المرفقة
.zip   HDInfo VB.NET.zip (الحجم : 78.8 ك ب / التحميلات : 10)
اعمل الخير واجرك لاتنتظره فالله خير من اليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد
تم الشكر بواسطة: عبد العزيز البسكري , ابو روضة
#7
شوف أخي الغالي ..
هذا الكود يعمل جيدًا .. لكن ما أريد إظهاره هو فقط السيريال المشار إليه باللون الأصفر
كيف يمكن إستخلاص ذلك أخي ابراهيم



تحياتي


الملفات المرفقة
.rar   Serial CD_DvD.rar (الحجم : 73.7 ك ب / التحميلات : 6)
الرد
تم الشكر بواسطة: asemshahen5
#8
PHP كود :
   Private Sub Button1_Click(sender As ObjectAs EventArgsHandles Button1.Click
        TextBox1
.Text MachineSignature()
 
   End Sub
    Public Shared 
Function MachineSignature() As String
        If msig Is Nothing Then
            Dim 
list As New List(Of String)
 
           For Each d As DriveInfo In DriveInfo.GetDrives()
 
               If (d.DriveType drivetype.Compact_DiscAndAlso (d.IsReadyThen
                    list
.Add(DriveSN(d.Name.Substring(02)))
 
               End If
 
           Next
            msig 
String.Join(" & ", list.ToArray())
 
       End If
 
       Return msig
    End 
Function
 
   Private Shared msig As String Nothing
    Public Shared 
Function DriveSN(ByVal DriveLetter As String) As String
        Dim disk 
As ManagementObject = New ManagementObject(String.Format("Win32_Logicaldisk='{0}'"DriveLetter))
 
       Dim VolumeName As String disk.Properties("VolumeName").Value.ToString()
 
       Dim SerialNumber As String disk.Properties("VolumeSerialnumber").Value.ToString()
 
       Return SerialNumber.Insert(4"-")
 
   End Function 

جرب هذا الكود بصراحة لم اجربه لان السواقة عندي معطلة .
سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر




الرد
تم الشكر بواسطة: عبد العزيز البسكري
#9
السّلام عليكم و رحمة الله و بركاته
تسلم أخي و أستاذي الكريم " عاصم شاهين " على المساعدة
يبدو أنّه توجد مكتبة ناقصة فلم أتمكن من التجربة

تحياتي واحتراماتي
الرد
تم الشكر بواسطة:
#10
Imports System.IO
سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر




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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] اريد عمل مولد سيريال اوتوماتيك ميدو الفنان 2 44 منذ 3 ساعة مضت
آخر رد: اسامه الهرماوي
  [ تمّ الحل ] : جلب قيمة من الريجيستري عبد العزيز البسكري 11 212 10-09-20, 04:01 PM
آخر رد: عبد العزيز البسكري
  [سؤال] [تم الحل]استعراض بيانات في Datagridview واضافة جميع البيانات لجدول محدد محمد العامر 6 584 22-08-20, 08:15 AM
آخر رد: محمد العامر
  [ تمّ الحل ] : جعل الآلة الحاسبة بمقدّمة الشاشة عبد العزيز البسكري 12 531 16-08-20, 03:26 AM
آخر رد: مصمم هاوي
  عندي خطا في الريجستري ممكن الحل عاصم النجار 3 436 11-07-20, 07:50 PM
آخر رد: Mohamad Anan
  [ تمّ الحل ] : عدد الغياب الإجمالي للمترشّحين الذكور عبد العزيز البسكري 11 670 02-07-20, 02:47 PM
آخر رد: عبد العزيز البسكري
  مطلوب كود بعد ازن اخونا العرب(تم الحل) محمد ايمن 1 296 12-06-20, 04:02 AM
آخر رد: سعود
  [VB.NET] [تم الحل] مشكلة اضافة عناصر الي ListView الماجيك مسعد 3 379 04-06-20, 05:23 AM
آخر رد: الماجيك مسعد
  [VB.NET] [تم الحل] تخطي حفظ الملف Sorax 7 402 25-05-20, 02:47 PM
آخر رد: Sorax
  [كود] احتج كود بعد ازن اخونا المبرمجين (تم الحل) محمد ايمن 6 379 24-05-20, 03:15 AM
آخر رد: محمد ايمن

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


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