تقييم الموضوع :
  • 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
الرد
تم الشكر بواسطة: عبد العزيز البسكري


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [ تمّ الحل ] : عدد الغياب الإجمالي للمترشّحين الذكور عبد العزيز البسكري 11 251 02-07-20, 02:47 PM
آخر رد: عبد العزيز البسكري
  مطلوب كود بعد ازن اخونا العرب(تم الحل) محمد ايمن 1 172 12-06-20, 04:02 AM
آخر رد: سعود
  [VB.NET] [تم الحل] مشكلة اضافة عناصر الي ListView الماجيك مسعد 3 170 04-06-20, 05:23 AM
آخر رد: الماجيك مسعد
  [VB.NET] [تم الحل] تخطي حفظ الملف Sorax 7 208 25-05-20, 02:47 PM
آخر رد: Sorax
  [كود] احتج كود بعد ازن اخونا المبرمجين (تم الحل) محمد ايمن 6 211 24-05-20, 03:15 AM
آخر رد: محمد ايمن
  [ تمّ الحل ] : حفظ الصورة بمجلّد خاص بملفات المشروع عبد العزيز البسكري 13 625 10-04-20, 12:47 AM
آخر رد: asemshahen5
  [ تمّ الحل ] : تساؤل حول الطباعة من خلال جدولين بقاعدة البيانات عبد العزيز البسكري 7 424 24-03-20, 07:28 PM
آخر رد: عبد العزيز البسكري
  [VB.NET] ممكن سيريال تفعيل فيجوال بيسك 2010 bakriano30@yahoo.com 4 2,673 20-03-20, 04:34 PM
آخر رد: hamadz
  [سؤال] ممكن مساعده تم الحل محمد ايمن 2 242 06-03-20, 07:43 PM
آخر رد: محمد ايمن
  [ تمّ الحل ] : إضافة خاصيّة طباعة التاكست بكود التّقرير عبد العزيز البسكري 9 388 23-02-20, 06:08 PM
آخر رد: عبد العزيز البسكري

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


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