تبلیغات
تبلیغات متنی
محبوبترینها
ماندگاری بیشتر محصولات باغ شما با این روش ساده!
بارش‌های سیل‌آسا در راه است! آیا خانه شما آماده است؟
بارش‌های سیل‌آسا در راه است! آیا خانه شما آماده است؟
قیمت انواع دستگاه تصفیه آب خانگی در ایران
نمایش جنگ دینامیت شو در تهران [از بیوگرافی میلاد صالح پور تا خرید بلیط]
9 روش جرم گیری ماشین لباسشویی سامسونگ برای از بین بردن بوی بد
ساندویچ پانل: بهترین گزینه برای ساخت و ساز سریع
خرید بیمه، استعلام و مقایسه انواع بیمه درمان ✅?
پروازهای مشهد به دبی چه زمانی ارزان می‌شوند؟
تجربه غذاهای فرانسوی در قلب پاریس بهترین رستوران‌ها و کافه‌ها
دلایل زنگ زدن فلزات و روش های جلوگیری از آن
صفحه اول
آرشیو مطالب
ورود/عضویت
هواشناسی
قیمت طلا سکه و ارز
قیمت خودرو
مطالب در سایت شما
تبادل لینک
ارتباط با ما
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
آمار وبسایت
تعداد کل بازدیدها :
1837558924
نمایش سریال cpu در vb6 -
واضح آرشیو وب فارسی:سایت ریسک: نمایش سریال cpu در vb 6 empratur1 03 تير 1386, 11:26برای نماش سریال سی پی یو یا نمایش سریال هارد چه قطعه برنامه ای در وی بی6 باید نوشت saalek110 03 تير 1386, 23:36یک پروژه با استفاده از این سایت ساختم: al+number+cpu+motherboard&hl=en&ct=clnk&cd=1 البته آدرس غیر کچ گوگلش اینه: که برای غیر اعضا پستها بسته است. اما پروژه : در ماژولی که باید اضافه شود داریم: Private Declare Function GetWindowsVersion Lib "kernel32" Alias "GetVersion" () As Long 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) Public Function GetVersion() As Long On Error GoTo ErrTrap GetVersion& = GetWindowsVersion& Exit Function ErrTrap: GetVersion& = 0& End Function Public Function GetHardDiskSerial(Optional sDrive As String) As Long On Error GoTo ErrTrap Dim lNumber As Long, sBuffer As String * 255 If sDrive$ = "" Then sDrive$ = "C" Call GetVolumeInformation(sDrive$ & ":", sBuffer$, 255, lNumber&, 0&, 0&, sBuffer$, 255) GetHardDiskSerial& = lNumber& Exit Function ErrTrap: Call MsgBox("Error " & Err.Number & ": " & Err.Description, vbOKOnly + vbCritical, "Error") HardDiskSerial& = 0& End Function و در فرم داریم(یک دکمه افزودم به فرم) : Private Sub Command 1_Click() MsgBox GetHardDiskSerial("C") MsgBox GetVersion End Sub از روی کد فکر کنم یکی ورژن ویندوز باشه و دیگری سریال هارد دیسک. Parthia 11 تير 1386, 06:53سلام دوست عزیز من نمیدونم منظورت از سریال CPU چیه :cry: ولی اسم و مارک CPU توی رجیستری هست و میتونی از اینجا پیداش کنی : HKEY_LOCAL_MACHINEHARDWAREDESCRIPTIONSystemCen tralProcessor که بعدشم میتونی با استفاده از توابع API مقادیر اونها رو دربیاری :lol:
این صفحه را در گوگل محبوب کنید
[ارسال شده از: سایت ریسک]
[مشاهده در: www.ri3k.eu]
[تعداد بازديد از اين مطلب: 573]
-
گوناگون
پربازدیدترینها