+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [ تمّ الحل ] : جلب سيريال الاسطوانة (/showthread.php?tid=33822)
الصفحات:
1
2
[ تمّ الحل ] : جلب سيريال الاسطوانة - عبد العزيز البسكري - 15-03-20
السّلام عليكم و رحمة الله و بركاته
إخواني الأفاضل ..
كيف يمكن جلب سيريال الاسطوانة CD
فقط كمحاولة لتفعيل البرنامج من خلالها
منذ فترة كان بمكتبتي كود خاص بذلك لكنّه ضاع منّي
بارك الله فيكم و لكم مقدّمًا و جزاكم خير الجزاء
تحياتي واحتراماتي
RE: جلب سيريال الاسطوانة - ابراهيم ايبو - 16-03-20
السلام عليكم ياعريس
تفضل واتدلل
كود :
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()
NextRE: جلب سيريال الاسطوانة - عبد العزيز البسكري - 16-03-20
السّلام عليكم و رحمة الله و بركاته
تسلم أخي و أستاذي الحبيب الغالي "ابراهيم ايبو" و سلم يمنك و دينك
بارك الله فيك و جزاك خير الجزاء و أنعم عليك بما يحبه و يرضاه
لكن أخي الغالي .. يبدو أنّ الكود يجلب سيريال الفلاشة و ليس سيريال الاسطوانه
تحياتي واحتراماتي
RE: جلب سيريال الاسطوانة - ابراهيم ايبو - 16-03-20
السلام عليكم
اليك هذا البرنامج فيه الكثير
ربما اكون قد وقعت في خظأ بين الفلاشة والهارد المهم في هذا البرنامج ايضا افحص بين القلاشة والهارد
لان البرنامج انشأته منذ بداياتي فالخطأ وارد
RE: جلب سيريال الاسطوانة - عبد العزيز البسكري - 16-03-20
السّلام عليكم و رحمة الله و بركاته
أخي ابراهيم ..
يبدو أنّ مأدبة العرس لم يتم تحضيرها بعد ..
برنامج به العديد من المواصفات و الأكواد الرائعة .. إلاّ سيريال الاسطوانة لم يتم جلبه
تحياتي واحتراماتي
كيف يتم استدعاء هذه الدالة التي يقول صاحبها أنّه وجد الحل .. مثلا بالتاكست بوكس رقم 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
RE: جلب سيريال الاسطوانة - ابراهيم ايبو - 16-03-20
ياعريس يحق لك الدلال
تفضل هذا برنامج تازة
RE: جلب سيريال الاسطوانة - عبد العزيز البسكري - 16-03-20
شوف أخي الغالي ..
هذا الكود يعمل جيدًا .. لكن ما أريد إظهاره هو فقط السيريال المشار إليه باللون الأصفر
كيف يمكن إستخلاص ذلك أخي ابراهيم
تحياتي
RE: جلب سيريال الاسطوانة - asemshahen5 - 16-03-20
PHP كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles 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_Disc) AndAlso (d.IsReady) Then
list.Add(DriveSN(d.Name.Substring(0, 2)))
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
جرب هذا الكود بصراحة لم اجربه لان السواقة عندي معطلة .
RE: جلب سيريال الاسطوانة - عبد العزيز البسكري - 16-03-20
السّلام عليكم و رحمة الله و بركاته
تسلم أخي و أستاذي الكريم " عاصم شاهين " على المساعدة
يبدو أنّه توجد مكتبة ناقصة فلم أتمكن من التجربة
تحياتي واحتراماتي
RE: جلب سيريال الاسطوانة - asemshahen5 - 16-03-20
Imports System.IO