ÇÚÒÇÆí ÇáßÑÇã Ýí åÐÇ ÇáãäÊÏì ÇáãÈÇÑß
ÇáÓáÇã Úáíßã æÑÍãÉ Çááå æÈÑßÇÊå
ÈäÇÁ Úáì ÑÛÈÉ ÇáßËíÑ ãä ÇáÇÚÖÇÁ Ýí ãÚÑÝÉ ØÑíÞÉ ÍãÇíÉ ÞÇÚÏÉ ÇáÈíÇäÇÊ ÈÑÞã ÇáåÇÑÏ ÏÓß ÝÓäÈÏà ãÚÇ ÎØæå ÎØæå ÍÊì íÊãßä ÇáÌãíÚ ãä Ýåã ÂáíÉ ØÑíÞÉ ÇáÍãÇíÉ æáä ÇÈÎá Úáì Çí ÔÎÕ ÈÃí ãÚáæãÉ ãåãÇ ßÇäÊ Ýí åÐÇ ÇáãæÖæÚ æÅä ÔÇÁ Çááå Çä ÇÕá Èßã Çáì ÇáÇÍÊÑÇÝ Ýí åÐÇ ÇáãæÖæÚ æåÐÇ ÈÌåæÏßã æÊÝÇÚáßã ãÚäÇ ÝÚáì ÈÑßÉ Çááå äÈÏÃ

ÓæÝ ÇÞæã ÈÊÞÓíã ÇáãæÖæÚ Çáì ËáÇËÉ ÇÞÓÇã
ÇáÞÓã ÇáÇæá : ßíÝ ÊÊÚÑÝ Úáì ÑÞã ÇáåÇÑÏ ÏÓß ÇáÎÇÕ Èß Çæ ÇáÐí ÓæÝ ÊÖÚ Úáíå ÞÇÚÏÉ ÇáÈíÇäÇÊ æÊÊã ÇáÍãÇíÉ ÈæÇÓØÉ ÇáåÇÑÏ ÏÓß äÝÓå æãä Ëã ÓæÝ äÊÚÑÝ Úáì ÇáÝÑÞ Èíä ÇáÇÑÞÇã ÇáÚÔÑíÉ æÇáÇÑÞÇã ÇáÓÏÇÓíÉ ÇáÚÔÑíÉ æáä íØæá ÈäÇ ÇáãÞÇã ÝíåÇ æáßä ááãÚáæãíÉ ÝÞØ æÓíæÖÚ ãËÇáíä áßá ãäåã áäÚÑÝ ÇáÝÑÞ Èíä ÇáÇÑÞÇã æÇÎíÑÇ ÓÃÖÚ ÇáÇßæÇÏ ÇáÎÇÕå ÈåÇ .

ÇáÞÓã ÇáËÇäí : ÓæÝ äÒíÏ ÌÑÚÉ ÇáãÚáæãÇÊ æÓäÖíÝ ÊÚáíãÇÊ ÌÏíÏå Çáì ÇáÇßæÏ ÇáÓÇÈÞå æßáåÇ ÚÈÇÑå Úä äãÇÐÌ ãÝÊæÍå ááÌãíÚ íãßä ÇáÇØáÇÚ ÚáíåÇ æÓäÞæã ÈÇáäÞÇÔ æÇáÔÑÍ áßá ÊÚáíãå ÇÖÇÝíÉ ááßæÏ ÇáÓÇÈÞ

ÇáÞÓã ÇáËÇáË : ÍãÇíÉ ÌãíÚ ÇáæÍÏÇÊ ÇáäãØíÉ ÈÑÞã ÓÑí æÇáÛÇÁ ÊÝÚíá ãÝÊÇÍ ÇáÔÝÊ ÈæÇÓØÉ ÇáßæÏ Ëã ÚãáíÉ ÊÔÝíÑ ÞÇÚÏÉ ÇáÈíÇäÇÊ ßáåÇ æÒíÇÏÉ Ýí ÇáÊÚÞíÏ ÓäÌÚáåÇ ÈÓíÛÉ MDE ÝÚáì ÈÑßÉ Çááå äÈÏÃ

ÇáÞÓã ÇáÇæá :
íãßäß ÇáÊÚÑÝ Úáì ÑÞã ÇáåÇÑÏ ÏÓß ãä ÎáÇá ÇáÊÇáí
1. ÇÐåÈ Çáì ÇÈÏÃ
2. ÇÎÊÑ ÊÔÛíá
3. ÇßÊÈ Ýí ÇáÍÞá ÇáÚÈÇÑÉ ÇáÊÇáíÉ CMD.EXE
4. ÓíÙåÑ áß ãæÌå ÇáÏæÓ Ðæ ÇáÔÇÔÉ ÇáÓæÏÇÁ Ýí äåÇíÉ ÇáÚÈÇÑÉ ÇáÊí ÊÑÇåÇ ÇßÊÈ \ CD
íÚäí ÇßÊÈ C Ëã D Ëã ÇáÓáÇÔ ÇáãÇÆá ááíÓÇÑ æåí ÚÈÇÑÉ ãÚäÇåÇ ÊÛííÑ ÇáãÌáÏ Change Dirctory
5. ÇÖÛØ ÇäÊÑ ãä áæÍÉ ÇáãÝÇÊíÍ
6. ÓÊÑì ãÍË ÇáãÔíÑÉ ÞÏ ÇÕÈÍ \: C
7. ÇßÊÈ ÇáÇä ÇáßáãÉ ÇáÊÇáíÉ VOL æÊÚäí ÞíãÉ Çæ ÑÞã ÇáåÇÑÏÓß æÇäÙÑ áÑÞã ÇáåÇÑÏ ÏÓß ÇáÎÇÕ Èß
ÇäÙÑ ÇáÕæÑÉ

åÐÇ ÇáÑÞã ÇáÓÏÇÓí ÇáÚÔÑí ÎÇÕ ÈÌåÇÒí æØÈÚÇ íÎÊáÝ ãä ÌåÇÒ Çáì ÇÎÑ
9. ÇÍÝÙ ÑÞã ÇáåÇÑÏ ÏÓß ÇáÎÇÕ Èß Ýí æÑÞå ÝÓæÝ ÊÍÊÇÌå ßËíÑÇ åÐÇ ÇáÑÞã åæ ÑÞã ÇáåíßÓÇ ÏíÓãá Çí ÇáÓÏÇÓí ÇáÚÔÑí æÇáÐí ÓæÝ äÞæã ÈÊÍæíáå Ýí ÞÇÚÏÉ ÇáÈíÇäÇÊ ÝÞØ ÈÇáßæÏ Çáì ÑÞã ÚÔÑí

åäÇ ÓæÝ ÇÑÝÞ ËáÇËÉ ÇãËáå ááãØÇÈÞå Èíä ÇáÑÞãíä æãä ÇÌá ÇáÊÃßÏ Çä ÇáæÖÚ ÕÍíÍ ÇÝÊÍ åÐÇ ÇáÑÇÈØ ÈÚÏ Çä ÊÍÕá Úáì ÑÞã ÇáåÇÑÏ ÏÓß ÓæÇÁ ÈÇáÜ Hexadecimal Çæ ÈÇáÜ decimal
ÊÍæíá ãä ÚÔÑí Çáì ÓÏÇÓí ÚÔÑí Çáì ÈÇíäÑí

ÇáÇßæÇÏ ÇáÎÇÕÉ ÈãÚÑÝÉ ÇáÓíÑíÇá äãÈÑ
ßäÊ ÇÊãäì Ýí ÇáãÔÇÑßå ÇáÓÇÈÞÉ ááÇÎ ÚÈÏÇááå æÝÊì ÇáæÇÏí æÈÞíÉ ÇáÇÚÖÇÁ Çäåã ÈÍËæÇ Ýí ÇáãäÊÏì ÝÝíå ÇáÌæÇÈ ÇáÔÇÝí áåÐÇ ÇáãæÖæÚ æÇáÑæÇÈØ åí

ßæÏ ÇáÇÓÊÇÐ ãåäÏ ÚÈÇÏí
http://www.arabteam2000-forum.com/index.ph...ndpost&p=214701

ßæÏ ÇáÇÓÊÇÐ ÑÖÇ ÚÞíá æÊØæíÑ ÇÈä ãÓÞØ
http://www.arabteam2000-forum.com/index.ph...ndpost&p=122787

ßæÏ ÇáãÈÑãÌ 2003

' áãÚÑÝÉ ÇáÓíÑíÇá äãÈÑ ÇáÎÇÕ ÈÇáåÇÑÏÓß 
 Dim obj_FSO As Object, obj_Drive As Object
 Set obj_FSO = CreateObject("Scripting.FileSystemObject")
 Set obj_Drive = obj_FSO.GetDrive("c:\")
 'MsgBox obj_Drive.SerialNumber
  SerialNumber = obj_Drive.SerialNumber
 Set obj_FSO = Nothing
 Set obj_Drive = Nothing
End Sub

'ßæÏ ÒåÑå ÑÞã 1
'ÇäÔÆ æÍÏå äãØíÉ ÌÏíÏå æÖÚ ÝíåÇ åÐÇ ÇáßæÏ
'Insert this code to the module :
Declare Function GetVolumeInformation Lib "kernel32.dll" Alias _
"GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal _
lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Integer, _
lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, _
lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal _
nFileSystemNameSize As Long) As Long

'ÖÚ åÐÇ ÇáßæÏ Ýí ÇáæÍÏÉ ÇáäãØíÉ ááäãæÐÌ
'Insert the following code to your form:
Function GetSerialNumber(strDrive As String) As Long
Dim SerialNum As Long
Dim res As Long
Dim Temp1 As String
Dim Temp2 As String
Temp1 = String$(255, Chr$(0))
Temp2 = String$(255, Chr$(0))
res = GetVolumeInformation(strDrive, Temp1, _
Len(Temp1), SerialNum, 0, 0, Temp2, Len(Temp2))
GetSerialNumber = SerialNum
End Function

'ÇäÔÆ ÒÑ ÃãÑ Ýí ÇáäãæÐÌ æÇÚØå ÇÓã 
'(Command1)
'æÖÚ åÐÇ ÇáßæÏ Ýí ÍÏË ÚäÏ ÇáäÞÑ
Private Sub Command1_Click()
'Replace 'c:\' with the drive you want to find his serial number
Call MsgBox(GetSerialNumber("c:\"))
End Sub

'ßæÏ ÒåÑå ÑÞã 2
'Þã ÈÅäÔÇÁ æÍÏå äãØíÉ ÌÏíÏå æÖÚ ÝíåÇ åÐÇ ÇáßæÏ
Private Declare Function GetVolumeInformation Lib _
"kernel32.dll" Alias "GetVolumeInformationA" (ByVal _
lpRootPathName As String, ByVal lpVolumeNameBuffer As _
String, ByVal nVolumeNameSize As Integer, _
lpVolumeSerialNumber As Long, lpMaximumComponentLength _
As Long, lpFileSystemFlags As Long, ByVal _
lpFileSystemNameBuffer As String, ByVal _
nFileSystemNameSize As Long) As Long

'ÖÚ åÐÇ ÇáßæÏ Ýí ÇáäãæÐÌ 
Function GetSerialNumber(strDrive As String) As Long
    Dim SerialNum As Long
    Dim Res As Long
    Dim Temp1 As String
    Dim Temp2 As String
    Temp1 = String$(255, Chr$(0))
    Temp2 = String$(255, Chr$(0))
    Res = GetVolumeInformation(strDrive, Temp1, _
    Len(Temp1), SerialNum, 0, 0, Temp2, Len(Temp2))
    GetSerialNumber = SerialNum
End Function

'ÖÚ åÐÇ ÇáßæÏ Ýí ÍÏË ÚäÏ ÇáÊÍãíá ááäãæÐÌ
Private Sub Form_Load()
MsgBox GetSerialNumber("C:\") 
End Sub