close
تبلیغات در اینترنت
کد به دست آوردن سریال درایو
loading...

آموزش برنامه نویسی

Option Explicit Private Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer 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 GetDriveSerialNumber(sDrive As String) As Long 'www.programming.rozblog.com    Dim lSerialNo    As…

Admin بازدید : 1193 پنجشنبه 26 خرداد 1390 نظرات ()
Option Explicit
Private Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer 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 GetDriveSerialNumber(sDrive As String) As Long 'www.programming.rozblog.com
   Dim lSerialNo    As Long
   Dim lLenSerialNo As Long
  
   GetVolumeInformation sDrive + ":" & Chr(0), vbNull, vbNull, lSerialNo, lLenSerialNo, vbNull, vbNull, vbNull
   GetDriveSerialNumber = lSerialNo
End Function

Private Sub cmdGetSerialNo_Click()
    MsgBox "Serial Number of Drive C is:" + CStr(GetDriveSerialNumber("c"))
End Sub


مطالب مرتبط
ارسال نظر برای این مطلب
این نظر توسط pesare_f0z00000l در تاریخ 1390/6/30 و 13:42 دقیقه ارسال شده است

از اين كد استفاده كردم اما سريال درايو رو ميده نه هارد
پاسخ : بله شما درست میگی خیلی ممنون.
ویرایش شد.


نام
ایمیل (منتشر نمی‌شود) (لازم)
وبسایت
:) :( ;) :D ;)) :X :? :P :* =(( :O @};- :B /:) :S
نظر خصوصی
مشخصات شما ذخیره شود ؟ [حذف مشخصات] [شکلک ها]
کد امنیتیرفرش کد امنیتی
تبلیغات
Rozblog.com رز بلاگ - متفاوت ترين سرويس سایت ساز
اطلاعات کاربری
نام کاربری :
رمز عبور :
  • فراموشی رمز عبور؟
  • نویسندگان
    نظرسنجی
    قالب سایت؟




    بیشتر چه نوع مطالبی رو میپسندید؟





    آمار سایت
  • کل مطالب : 588
  • کل نظرات : 391
  • افراد آنلاین : 1
  • تعداد اعضا : 3327
  • آی پی امروز : 89
  • آی پی دیروز : 81
  • بازدید امروز : 285
  • باردید دیروز : 335
  • گوگل امروز : 9
  • گوگل دیروز : 9
  • بازدید هفته : 620
  • بازدید ماه : 4,334
  • بازدید سال : 33,807
  • بازدید کلی : 2,034,053