روش بدست اوردن سريال يونيك هارد

[RezaS_1354]

سلام
من چند تا از پستهاي قبلي را راجع به گرفتن سريال هارد و سي پي يو ديدم كه بيشتر جهت قفل نرم افزاري گفته شده بود كه يا سايتي رامعرفي كرده بودند يا فقط توضيح داده بودند يا اينكه ... بصورت خلاصه اگر بخواهم بگويم صريح وساده عنوان نشده بود
حالا اگر از دوستان كسي هست كه اين كد را داره اگر امكان داره بصورت مستقيم بره سره اصل مطلب يا با يك سورس زحمتشو بكشه كه كساني هم كه مي خواهند بعدا جهت استفاده هاي مختلف مثل قفل از اون بهره ببرند دچار سردرگمي نشوند
بيشتر سريال هارد و سي پي يو كه بصورت منحصر بفرد يا همون يونيك است مد نظرمه
پيشاپيش از عزيزاني كه كمك ميكنند متشكرم
رضا :لبخندساده:

[butterfly8528]

سلام دوست عزیز

برای به دست آوردن سریال نامبر هار این مطمئن ترین روشه

سورسش رو ضمیمه میکنم

لطفا در مورد cpu هرکی اطلاع داره بگه :بوس:

[REZADG]

فكر كنم اين كمكت كنه يه اكتيو هست

[butterfly8528]

REZADG عزیز خیلی ممنون.

ولی این اکتیو ایکس فقط برای سره کار گذاشتن برنامه نویس هاست . و به هیچ وجه

کار نمیکنه . من خودم امتحانش کردم.

در این مورد مطمون ترین را سورسی هست که من گذاشتم .

100% جواب میده .

موفق باشید .:چشمک:

[golipour]

سلام دوست گرامی
سورسی که گذاشتین به چه زبانی هست؟
با چه برنامه ای باز میشه؟
من نتونستم بازش کنم

[golipour]

سلام کاربر گرامی butterfly8528 (http://barnamenevis.org/forum/member.php?u=75627)
سورسی که گذاشتین به چه زبانی هست؟
با چه برنامه ای باز میشه؟
من نتونستم بازش کنم

[butterfly8528]

سلام کاربر گرامی butterfly8528 (http://barnamenevis.org/forum/member.php?u=75627)
سورسی که گذاشتین به چه زبانی هست؟
با چه برنامه ای باز میشه؟
من نتونستم بازش کنم


دوست من به vb6 هست .

[golipour]

دوست من به vb6 هست .

من فایل "Module1.bas" را در محیط VB برنامه اکسل باز کردم.
و کد زیر را نوشتم:

()Private Sub Workbook_Open
(msgBox (Module1.GetHDDSerial
End Sub

اما موقع اجرا Error می دهد، خطای برنامه :


Compile Error
Only user-defined types defined in public object modules can be coerced to or from a variant or passed to late-bound functions


مشکل از کجاست لطفا راهنماییم فرمائید.

با تشکر

[golipour]

من فایل "Module1.bas" را در محیط VB برنامه اکسل باز کردم.
و کد زیر را نوشتم:

()Private Sub Workbook_Open
(msgBox (Module1.GetHDDSerial
End Sub

اما موقع اجرا Error می دهد، خطای برنامه :


Compile Error
Only user-defined types defined in public object modules can be coerced to or from a variant or passed to late-bound functions


مشکل از کجاست لطفا راهنماییم فرمائید.



با تشکر


با سلام خدمت دوست عزیز

مشکل بنده حل شد.

تشکر می کنم به خاطر فایل مفیدی که گذاشته بودین. در برنامه من بدرستی کار می کنه.

فقط از دوستان خواهش می کنم اگر یک Module شبیه همین GetHDDSerial، برای CPU هم در این تاپیک بذارن خیلی ممنون میشم.

[butterfly8528]

اما موقع اجرا Error می دهد، خطای برنامه :



Compile Error
Only user-defined types defined in public object modules can be coerced to or from a variant or passed to late-bound functions


مشکل از کجاست لطفا راهنماییم فرمائید.


دوست عزیز دقیق نمیدونم مشکل از کجاست ولی هرچی هست به خاطر اجرای اون تو اکسل هست . من بارها از این کد تو vb استفاده کردم .

[ehsanocx]

سریال CPU معتبر نیست دوست عزیز.بهتره ازش استفاده نکنی

[shahram_g]

سلام دوست عزیز

برای به دست آوردن سریال نامبر هار این مطمئن ترین روشه

سورسش رو ضمیمه میکنم

لطفا در مورد cpu هرکی اطلاع داره بگه :بوس:

متاسفانه در ويندوز 7 جواب نمي ده