[المتألق9]

السلام عليكم
اريد كود لمعرفة رقم الهارديسك ولكم الشكر

[عبد العزيز البسكري]

السّلام عليكم و رحمة الله و بركاته

لعلّه يفي بالغرض إن شاء الله .. مع إضافة المكتبة بالكود أعلاه من خلال REFERENCE

كود :

Imports System.Management
Public Class Form1
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Dim HDD_Serial As String
       Dim hdd As New ManagementObjectSearcher("select * from Win32_DiskDrive")
       For Each hd In hdd.Get
           HDD_Serial = hd("SerialNumber")
       Next
       TextBox1.Text = HDD_Serial
   End Sub
End Class

تحياتي

[عمور2016]

(23-02-18, 12:44 AM)عبد العزيز البسكري كتب :

السّلام عليكم و رحمة الله و بركاته

لعلّه يفي بالغرض إن شاء الله .. مع إضافة المكتبة بالكود أعلاه من خلال REFERENCE

كود :

Imports System.Management
Public Class Form1
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Dim HDD_Serial As String
       Dim hdd As New ManagementObjectSearcher("select * from Win32_DiskDrive")
       For Each hd In hdd.Get
           HDD_Serial = hd("SerialNumber")
       Next
       TextBox1.Text = HDD_Serial
   End Sub
End Class

تحياتي

ManagementObjectSearcher
يعطيني خطأ في هذا السطر ارجو الافادة

[عبد العزيز البسكري]

جرّب أخي عمور

[Anas Mahmoud]

(25-09-20, 09:54 PM)عبد العزيز البسكري كتب :

جرّب أخي عمور

من باب العلم بالشيء استاذي ما اسم البرنامج الذي تقوم بعمل صور الشروحات به ؟

[Jounior_P]

dateTimePicker1.Value.Date.ToString("dd/MM/yyyy")

[عبد العزيز البسكري]

السلام عليكم و رحمة الله و بركاته

أخي عمور بالنسبة لبرنامج التصوير هو ..

ASHAMPOO SNAP

بالنسبة للخطأ ..

أخي الغالي .. بالنسبة لي جربت في وضعية التشغيل و الكود يشتغل بطريقة جد عادية

تحياتي