اعرف كم يستغرق اعادة تشغيل جهازك بالثواني

[D\b7r]

~*¤ô§ô¤*~اعرف كم يستغرق اعادة تشغيل جهازك بالثواني~*¤ô§ô¤*~

سكربت لمعرفة المده التي يستغرقها تشغيل الجهاز . يمكن الاستفاده من ذلك لمعرفة مدى فاعلية برامج التسريع

انسخ الكود في مستند نص ثم احفظه بأي اسم بأمتداد .VBS
(نفس خطوات عمل رساله تذكيريه بالمشاركه <معلومه(خدعه)روعه لاتفوتك>)
الكــــــــــــــــود:
----------------------------------------------
Option Explicit
On Error Resume Next
Dim Wsh, Time1, Time2, Result, PathFile, MsgResult, MsgA, AppName, KeyA, KeyB, TimeDiff
MsgA = "Please close all running applications and click on OK."
KeyA = "HKEY_CURRENT_USER\Software\RestartTime\"
KeyB = "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre ntVersion\Run\RestartTime"
AppName = "ReBoot-Time"
Set Wsh = CreateObject("WScript.Shell")
PathFile = """" & WScript.ScriptFullName & """"
Result = wsh.RegRead(KeyA & "Times")
if Result = "" then
MsgResult = Msgbox (MsgA, vbOKCancel, AppName)
If MsgResult = vbcancel then WScript.Quit
Wsh.RegWrite KeyA & "Times", left(Time,8), "REG_SZ"
Wsh.RegWrite KeyB, PathFile, "REG_SZ"
Wsh.Run "cmd /c Shutdown -r -t 00", false, 0
else
Wsh.RegDelete KeyA & "Times"
Wsh.RegDelete KeyA
Wsh.RegDelete KeyB
TimeDiff = DateDiff("s",Result,left(Time,8))
MsgBox "Your computer reboots in " & TimeDiff & " seconds", VbInformation, AppName
end if
wscript.Quit
--------------------------------------------------
دعواتكـــــــــــــــــــــــــم

[السهيل اليماني]

وين الكود يا طويل العمر
لك كل التقدير وتقبل
تحياااااااااااتي

[D\b7r]

وين الكود يا طويل العمر
لك كل التقدير وتقبل
تحياااااااااااتي



اظن ان الكود واضح وموجود او انه يظهر لي فقط المنتدى يعاني من كثرة التعليق تنبيه للاداره واضنه من كثرة استخدام الهاكات

وعلى العموم ومن باب الاحتياط اليك اخي العزيز الكود

Option Explicit
On Error Resume Next
Dim Wsh, Time1, Time2, Result, PathFile, MsgResult, MsgA, AppName, KeyA, KeyB, TimeDiff
MsgA = "Please close all running applications and click on OK."
KeyA = "HKEY_CURRENT_USER\Software\RestartTime\"
KeyB = "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Run\RestartTime"
AppName = "ReBoot-Time"
Set Wsh = CreateObject("WScript.Shell")
PathFile = """" & WScript.ScriptFullName & """"
Result = wsh.RegRead(KeyA & "Times")
if Result = "" then
MsgResult = Msgbox (MsgA, vbOKCancel, AppName)
If MsgResult = vbcancel then WScript.Quit
Wsh.RegWrite KeyA & "Times", left(Time,8), "REG_SZ"
Wsh.RegWrite KeyB, PathFile, "REG_SZ"
Wsh.Run "cmd /c Shutdown -r -t 00", false, 0
else
Wsh.RegDelete KeyA & "Times"
Wsh.RegDelete KeyA
Wsh.RegDelete KeyB
TimeDiff = DateDiff("s",Result,left(Time,8))
MsgBox "Your computer reboots in " & TimeDiff & " seconds", VbInformation, AppName
end if
wscript.Quit

[يافعية ماركة]

يعطيكـ العافيهـ ع المجهوود .. واللهـ ادا دخلتـ مواضيعـكـ لازمـ اطلعـ وانا مستفيدهـ .. ^ ^

الفـ شكر لكـ

[البرق اليماني]

موضوع راقي ومميز,,
لك جزيل تقديري وودي وجل احترامي,,,


دمت بحمى الرحمن,,,


وبانتظار قادمك بكل شوووق وولهــ ,,,

تحياتي البرق اليماني