بدست آوردن سریال هارد

دوستان سلام
داشتم تو اینترنت سرچ میکردم که دیدم یه شرکتی یه dll داده برای بدست آوردن سریال هارد
گفتم حتما برو بچ برنامه نویس نیاز دارن براتون لینک می دم و سریال هم کنارش میذارم
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
اینم سریالش
97392612@852
Or
YQ64X-RNR1P-6LKVU-DVMQF-9AFJ1
Or
S7EJ8-55NDG-LKP29-NHJ6V-2LA25
Or
NW5KF-49VU2-CW1VD-EH32P-UFEL2
Or
RYU54-FDF1U-RJA86-R16RM-P6FU2
هر کدوم از این سریالها رو خواستین استفاده کنین

با تشکر از soda ی عزیز بخاطر این DLL مفید و با اجازه ایشون،
من برای وارد کردن شماره سریالهایی که ایشون گذاشتند، چند دقیقه ای می گشتم، گفتم اینجا بگم تا اگه شما خواستید از این فایل در برنامه هاتون استفاده کنید، در اون چند دقیقه صرفه جویی بشه: :happy:
برای مثال در نمونه کد VB، در رویداد Click دکمه Command1، خط زیر رو

کد:

---

    Const RegCode = "000000000000"    'Your Reg Code

---

به این خط تغییر بدین:

کد:

---

Const RegCode = "YQ64X-RNR1P-6LKVU-DVMQF-9AFJ1"    'Your Reg Code

---

و یا هر کدوم از اون چند سریالی که Soda جان گذاشتند رو بذارین، وگرنه بهتون پیغام Trial Version می ده.
موفق باشید

خواهش میکنم bithiah جان
البته من سورس کدی هم دارم که سریال هارد رو بدست می آره ولی فکر کنم که بعضی مواقع کار نکنه البته فقط حدس می زنم اگه بخواین میتونم اینجا بزارم تا اگه کسی هاردش روی Secondry وصله اونو امتحان کنه ببینه درست کار میکنه یا نه

اين كد هم بد نيست :

کد:

---

'-- Module code
Private Declare Function GetVolumeInformation _
        Lib "kernel32" Alias "GetVolumeInformationA" _
        (ByVal lpRootPathName As String, _
        ByVal pVolumeNameBuffer As String, _
        ByVal nVolumeNameSize As Long, _
        lpVolumeSerialNumber As Long, _
        lpMaximumComponentLength As Long, _
        lpFileSystemFlags As Long, _
        ByVal lpFileSystemNameBuffer As String, _
        ByVal nFileSystemNameSize As Long) As Long

Public Function GetSerialNumber( _
        ByVal sDrive As String) As Long

        If Len(sDrive) Then
                If InStr(sDrive, "\\") = 1 Then
                        ' Make sure we end in backslash for UNC
                        If Right$(sDrive, 1) <> "\" Then
                                sDrive = sDrive & "\"
                        End If
                Else
                        ' If not UNC, take first letter as drive
                        sDrive = Left$(sDrive, 1) & ":\"
                End If
        Else
                ' Else just use current drive
                sDrive = vbNullString
        End If
       
        ' Grab S/N -- Most params can be NULL
        Call GetVolumeInformation( _
                sDrive, vbNullString, 0, GetSerialNumber, _
                ByVal 0&, ByVal 0&, vbNullString, 0)
End Function

'-- Form code
Private Sub Command1_Click()
        Dim Drive As String
        Drive = InputBox("Enter drive for checking SN")
        MsgBox Hex$(GetSerialNumber(Drive))
End Sub

---

mehdi_7070
سلام
این کد که شما دادی فقط میتونه شماره سریال درایو ها رو بدست بیاره که نمی تونه زیاد مفید باشه چونکه سریال درایو ها با فرمت شدن تغییر میکنه
اما بهر حال ممنون

حق با شماست . اينم پيدا كردم . بد نيست .
[code]

کد:

---

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

Private Sub Command1_Click()
Dim objs
Dim obj
Dim WMI

Set WMI = GetObject("WinMgmts:")
Set objs = WMI.InstancesOf("Win32_BaseBoard")
For Each obj In objs
  Label2.Caption = "MotherBoard Num: " & obj.SerialNumber
Next
 Label1.Caption = "HDD Serial Num: " & GetSerialNumber("C:\")
 
End Sub

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

---

آره مهدی جان این خوبه ولی میشه به صورت عادی در xp /2k ازش استفاده کرد بدرد 98/me نمی خوره ولی اگه یه setup مخصوص رو از اینترنت ( سایت مایکروسافت ) دانلودکنیم برای 9x/me هم جواب میده

در آدرس زير هم dll نسبتا خوبي وجود داره :

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

ممنون دوست عزیز
مر30 امیدواز موفق باشی
ممنون

قابلي نداشت . يه فايل ocx خيلي خوب پيدا كردم . خودم تو ويژوال بيسيك تستش كردم .
لينكش اينه :

کد:

---

http://www.vb-fun.de/cgi-bin/downloadtools2.pl?ID=hwinfo&Ort=vb/komponenten&File=http://www.dswd.de/download/hwinfo.zip

---

مهدی جان این ocx رو من قبلا استفاده کردم و یه مشکل خیلی خنده دار داره
وقتی این ocx رو روی فرم قرار میدی شماره سریال هاردت رو بدست می آره و انگار تو خودش ذخیره میکنه
و وقتی که exe رو ساختی و بردی روی یه کامپیوتر دیگه می آد و همون شماره سریال هارد خودت رو نشون می ده به جای اینکه شماره سریال هارد مقصد رو بگیره
من یه راه حل هم براش پیدا کرده بودم که البته شاید راه حل بهتری هم براش وجود داشته باشه و من بی خبرم
اما راه حل این بود : فایل ocx رو به dll تغییر پسوند بدید
و از طریق منوی project و گزینه references اونو به فرم اضافه کنین
و هر وقت که نیاز بود شماره سریال هارد رو بدست بیارین اونو به صورت دینامیک صدا بزنین
Dim x As New HardWareInfo
MsgBox x.HardDisk1SerialNumber

خوش باشین

خيلي ممنون . من اين را تا به حال امتحان نكرده بودم كه اين مشكل را داره . يعني روي يك كامپيوتر ديگه اينجوري مشكل پيدا مي كنه .

ممنون خيلي حال دادي بهمون