حل مشكل برای گرفتن سریال نامبر در ویندوز 7

[port72]

Public Function SerNum(ByRef Drive As String) As Integer 'Find the hard disk serial number
Dim No As Integer
Dim s As String = String.Empty
GetVolumeInformation(Drive & ":\", s, MAX_FILENAME_LEN, No, 0, 0, s, MAX_FILENAME_LEN)
SerNum = No
End Function

مشكل در ویندوز 7 64 بیتی است اما در وین xp جواب میده.:متفکر:
برنامه اصلی رو میزارم اما جایی که خطا میده این قسمته.104953

[barnamenevisjavan]

کد و برنامه رو ندیدم ولی تو 7 باید برنامه بصورت administrator‏ اجرا بشه

[port72]

سلام .منطقی نیست چون فکر کنید برنامه رو باید کاربر هر بار با admin اجرا كنهز

[barnamenevisjavan]

توی ویندوز 7 دسترسی به فایل های سیستمی و... مهم نیاز به دسترسی مدیر داره

[port72]

اين برنامه ايي كه گذاشتم تکه ایی از یک برنامه هستش اون برنامه تو 7 اجرا میشه اما وقتی تیکه میکنیم اجرا نمیشه.

[barnamenevisjavan]

خوب پس شاید کدتون ایراد داره و قسمتی از اون رو ننوشتید

[h_a_m_i_d]

من رو ویندوز 8 64 بیتی تست کردم درست کار میکرد 7 رو نمیدونم

[port72]

نمیدونم چرا اما مقدار Const MAX_FILENAME_LEN As Long = CLng(2.147) رو از 256 تغییر دادم درست شده.اگه میدونید چرا لطفا راهنمایی کنید.