الخميس، 26 فبراير 2009

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



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

شغل الملف





انسخ الكود التالي في مستند نص ثم احفظه بأي اسم بأمتداد .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\CurrentVersion\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

1 التعليقات:

غير معرف يقول...

Thank you for the auspicious writeup. It in fact was a amusement account it.

Look advanced to far added agreeable from you! However, how can we communicate?


Feel free to visit my homepage: working cityville bot

إرسال تعليق

برامج يجب توفرها على جهازك لاستعراض محتويات الموقع جيدا

حمل برنامج الفايرفوكسحمل قاريء ملفات pdfحمل برنامج winzipحمل برنامج winrarحمل مشغل الفلاش