رقم الهارديسك

يمكنك ذلك باستخدام الـ kernel32.dll حيث نعرف منه الدالة GetVolumeInformation

وكما يلي /

سوف تحتاج في البداية تعريف كل من

Imports System.Text
Imports System.Runtime.InteropServices

ثم نعرف ميثود جديدة نمرر لها اسم الـ Partitionمثلا مرر "C" ليرجع لك الـ Serial Number للـ Logical Partition

Public Function GetVolumeSerial(ByVal strDriveLetter As String) As String
Dim serNum As System.UInt32 = System.Convert.ToUInt32(0)
Dim maxCompLen As System.UInt32 = System.Convert.ToUInt32(0)
Dim VolLabel As StringBuilder = New StringBuilder(256) ' Label
Dim VolFlags As UInt32 = New UInt32
Dim FSName As StringBuilder = New StringBuilder(256) ' File System Name
strDriveLetter &= ":\"
Dim Ret As Long = GetVolumeInformation(strDriveLetter, VolLabel, System.Convert.ToUInt32(VolLabel.Capacity), serNum, maxCompLen, VolFlags, FSName, System.Convert.ToUInt32(FSName.Capacity))
Return Convert.ToString(serNum)
End Function

انصح بإستخدام هذا الأسلوب لتوليد ارقام الـ Serial Number للبرامج حيث يعتمد التوليد على الرقم المولد من الـ Logical Partition

مشكور يا عزيزي على الرد

بس على اي حدث راح احط الكود التاني

ولا احطه متل الكود الاول في ال declerations

وال GetVolumeInformation معتبرها متغير

ومعتبر انه هاد المتغير غير معرف

استخدم الكلاس الذي بالمرفقات وقم بإستدعائه كما يلي:

Dim ss As get_SN = New get_SN
Textbox1.Text = ss.GetVolumeSerial("C").ToString()

get_SN.rar

الف شكر عزيزي اعطاني السيريال نمبر لل c ول d

حابب اقوي حالي في مجال الداتا بيس في الفيجول بيسك دوت نت بأي كتاب تنصحني

وشكرا مرة تانية

الف شكر

بس ما بعرف اذا في امكانية اجيب رقم الهارديسك عن طريق ال SQL

والف شكر مرة تانية