23-02-18, 12:21 AM
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 Class25-09-20, 08:08 PM
(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
يعطيني خطأ في هذا السطر ارجو الافادة
25-09-20, 09:54 PM
جرّب أخي عمور
25-09-20, 10:37 PM
(25-09-20, 09:54 PM)عبد العزيز البسكري كتب : [ -> ]جرّب أخي عمور![]()
من باب العلم بالشيء استاذي ما اسم البرنامج الذي تقوم بعمل صور الشروحات به ؟
25-09-20, 11:23 PM
dateTimePicker1.Value.Date.ToString("dd/MM/yyyy")
25-09-20, 11:42 PM
السلام عليكم و رحمة الله و بركاته
أخي عمور بالنسبة لبرنامج التصوير هو ..
ASHAMPOO SNAP
بالنسبة للخطأ ..
أخي الغالي .. بالنسبة لي جربت في وضعية التشغيل و الكود يشتغل بطريقة جد عادية
تحياتي