| |  موضوع: طريقة حساب وقت اعادة تشغيل الويندوز  الجمعة 23 أبريل 2010, 2:47 am | |
| أهلا و سهلا بأعضاء و زوار المنتدى
لتحسين بدء التشغيل ويندوز، من الضروري معرفة وقت اعادة تشغيل جهازك الشخصي.
فبدلا من أن تحسب الوقت بـواسطة سـاعة أو عـداد يـدوي، أردت أقـدم لـكم هـذه الـطريقة،
التي سـوف تسـاعدك فـي حسـاب وقـت اعـادة التشغيـل ببسـاطة التـنفيذ ودقــة النتيـجة!
وهذه القيمة النسبية تعطيك معيـارا لتـحسين وقـت بـدء تشغيل جـهـازك.
الطريقة التي سوف أقوم بشرحها لكم تتمثل في انشاء سكريبت (--SS--) حيث يقوم هذا
الأخير فـي احـدات بعض الـتغـيرات فـي قـيم الـريجسـري (registre) التالـي
( HKCU\Software\Microsoft\Current Version\run)
نبدأ على بركة الله في شرح الطريقة
افتح محرر النصوص المفضل لديك (WordPad مثلا) ونسخ فيه مايلي :
Option Explicit
On Error Resume Next
Dim Wsh, Time1, Time2, Result, PathFile, MsgResult, MsgA, AppName, KeyA, KeyB, TimeDiff
MsgA = "Pour chronométrer le redémarrage, veuillez fermer toutes les applications en cours et cliquer sur OK."
KeyA = "HKEY_CURRENT_USER\Software\RestartTime\"
KeyB = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\RestartTime"
AppName = "Restart-Time"
Set Wsh = CreateObject("W--SS--.Shell")
PathFile = """" & W--SS--.--SS--FullName & """"
Result = wsh.RegRead(KeyA & "Times")
if Result = "" then
MsgResult = Msgbox (MsgA, vbOKCancel, AppName)
If MsgResult = vbcancel then W--SS--.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 "PC redémarré en " & TimeDiff & " secondes", VbInformation, AppName
end if
w--SS--.Quit
كما تبين الصورة
ثم نقوم بحفظ الملف على صيغة VBS
على سبيل المثال TempDemarage.vbs
|
|
| | | موضوع: رد: طريقة حساب وقت اعادة تشغيل الويندوز الجمعة 23 أبريل 2010, 10:47 pm | |
| |
|
| | | موضوع: رد: طريقة حساب وقت اعادة تشغيل الويندوز السبت 24 أبريل 2010, 12:21 am | |
| |
|
