فهميدن زمان خاموش شدن كامپوتر
آیا تاکنون پیش آمده است که بخواهید به تاریخ و زمان دقیق آخرین باری که کامپیوتر Shutdown شده است پی ببرید؟
در این ترفند قصد داریم نحوه پی بردن به این موضوع را از طریق راههای مختلف در ویندوزهای XP و ویستا بررسی نماییم:
از منوی Start به All Programs و سپس Accessories رفته و بر روی Notepad کلیک کنید.
حال در محیط Notepad کدهای زیر را عینأ Copy و Paste نمایید:
strValueName = "HKLM\SYSTEM\CurrentControlSet\Control\Windows\" _
& "ShutdownTime"
Set oShell = CreateObject("WScript.Shell")
Ar = oShell.RegRead(strValueName)
Term = Ar(7)*(2^56) + Ar(6)*(2^48) + Ar(5)*(2^40) + Ar(4)*(2^32) _
+ Ar(3)*(2^24) + Ar(2)*(2^16) + Ar(1)*(2^8) + Ar(0)
Days = Term/(1E7*86400)
WScript.Echo "(www.zalip.blogfa.com) Akharin Tarikh va Zamaneh Khamoosh Shodaneh Computer = " & CDate(DateSerial(1601, 1, 1) + Days)
& "ShutdownTime"
Set oShell = CreateObject("WScript.Shell")
Ar = oShell.RegRead(strValueName)
Term = Ar(7)*(2^56) + Ar(6)*(2^48) + Ar(5)*(2^40) + Ar(4)*(2^32) _
+ Ar(3)*(2^24) + Ar(2)*(2^16) + Ar(1)*(2^8) + Ar(0)
Days = Term/(1E7*86400)
WScript.Echo "(www.zalip.blogfa.com) Akharin Tarikh va Zamaneh Khamoosh Shodaneh Computer = " & CDate(DateSerial(1601, 1, 1) + Days)
حالا به مسیری که فایل را ذخیره کردهاید مراجعه کنید.
پس از دوبار کلیک بر روی فایل، آخرین تاریخ و زمان خاموش شدن کامپیوتر را مشاهده نمایید!
+ نوشته شده در ساعت توسط علیرضا
|