تقييم الموضوع :
  • 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
سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر




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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ما سبب هذا الخطأ وكيف يتم الحل؟ أبو عبدالله الحلواني 5 167 , 08:48 PM
آخر رد: أبو عبدالله الحلواني
  قمت بعمل مثال لإستخراج النصوص من الصورة واجهتني مشكلة اللغة العربية ماهو الحل mohamedgadain61 1 112 17-01-21, 07:54 AM
آخر رد: ابراهيم ايبو
  [تم الحل]العمليات الحسابية في الداتا جريد فيو essawq 15 598 14-01-21, 12:34 AM
آخر رد: essawq
  [ تمّ الحل ] : الطباعة من خلال الريبورت فيور عبد العزيز البسكري 2 243 16-12-20, 04:03 AM
آخر رد: عبد العزيز البسكري
  استفسار واتمنى المساعدة في الحل وهج الصحراء 2 238 04-12-20, 11:43 AM
آخر رد: Anas Mahmoud
  [سؤال] كود يبحث في ملفات وورد docx ولا يبحث في doc فما الحل؟ السندبااد 1 216 20-11-20, 10:45 PM
آخر رد: السندبااد
  [ تمّ الحل ] : عدم القدرة على عمل أتاش لقاعدة البيانات عبد العزيز البسكري 23 1,452 24-10-20, 12:48 AM
آخر رد: عبد العزيز البسكري
  [VB.NET] اريد عمل مولد سيريال اوتوماتيك ميدو الفنان 5 701 30-09-20, 09:24 PM
آخر رد: ميدو الفنان
  [ تمّ الحل ] : جلب قيمة من الريجيستري عبد العزيز البسكري 11 677 10-09-20, 04:01 PM
آخر رد: عبد العزيز البسكري
  [سؤال] [تم الحل]استعراض بيانات في Datagridview واضافة جميع البيانات لجدول محدد محمد العامر 6 945 22-08-20, 08:15 AM
آخر رد: محمد العامر

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


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