الحالة
موضوع مغلق

Mohamed Khaled

عضوية الشرف
التسجيل
2/8/09
المشاركات
8,023
الإعجابات
4,517
الإقامة
Damasgate
#1

ساطرح لكم اليوم برنامج يساعد في معرفة اقلاع الجهاز
أوجه الاستفاده:عندما تريد اجراء تغيير في اعدادات جهازك وهل احدثت فرق ام لا
هل زادة سرعة الاقلاع ام لا..بمعنى يوضح ماهية البرامج وهل ماتدعيه حقيقي ام لا


البرنامج ببساطه سكربت صغير

كود:
[CENTER][FONT=Times New Roman][COLOR=darkslategray]Option Explicit[/COLOR][/FONT]
[FONT=Times New Roman][COLOR=darkslategray]On Error Resume Next[/COLOR][/FONT]
[FONT=Times New Roman][COLOR=darkslategray]Dim Wsh, Time1, Time2, Result, PathFile, MsgResult, MsgA, AppName, KeyA, KeyB, TimeDiff[/COLOR][/FONT]
[FONT=Times New Roman][COLOR=darkslategray]MsgA = "Please close all running applications and click on OK."[/COLOR][/FONT]
[FONT=Times New Roman][COLOR=darkslategray]KeyA = "HKEY_CURRENT_USER\Software\RestartTime\"[/COLOR][/FONT]
[FONT=Times New Roman][COLOR=darkslategray]KeyB = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\RestartTime"[/COLOR][/FONT]
[FONT=Times New Roman][COLOR=darkslategray]AppName = "ReBoot-Time"[/COLOR][/FONT]
[FONT=Times New Roman][COLOR=darkslategray]Set Wsh = CreateObject("WScript.Shell")[/COLOR][/FONT]
[FONT=Times New Roman][COLOR=darkslategray]PathFile = """" & WScript.ScriptFullName & """"[/COLOR][/FONT]
[FONT=Times New Roman][COLOR=darkslategray]Result = wsh.RegRead(KeyA & "Times")[/COLOR][/FONT]
[FONT=Times New Roman][COLOR=darkslategray]if Result = "" then[/COLOR][/FONT]
[FONT=Times New Roman][COLOR=darkslategray]MsgResult = Msgbox (MsgA, vbOKCancel, AppName)[/COLOR][/FONT]
[FONT=Times New Roman][COLOR=darkslategray]If MsgResult = vbcancel then WScript.Quit[/COLOR][/FONT]
[FONT=Times New Roman][COLOR=darkslategray]Wsh.RegWrite KeyA & "Times", left(Time,8), "REG_SZ"[/COLOR][/FONT]
[FONT=Times New Roman][COLOR=darkslategray]Wsh.RegWrite KeyB, PathFile, "REG_SZ"[/COLOR][/FONT]
[FONT=Times New Roman][COLOR=darkslategray]Wsh.Run "cmd /c Shutdown -r -t 00", false, 0 [/COLOR][/FONT]
[FONT=Times New Roman][COLOR=darkslategray]else[/COLOR][/FONT]
[FONT=Times New Roman][COLOR=darkslategray]Wsh.RegDelete KeyA & "Times"[/COLOR][/FONT]
[FONT=Times New Roman][COLOR=darkslategray]Wsh.RegDelete KeyA[/COLOR][/FONT]
[FONT=Times New Roman][COLOR=darkslategray]Wsh.RegDelete KeyB[/COLOR][/FONT]
[FONT=Times New Roman][COLOR=darkslategray]TimeDiff = DateDiff("s",Result,left(Time,8))[/COLOR][/FONT]
[FONT=Times New Roman][COLOR=darkslategray]MsgBox "Your computer reboots in " & TimeDiff & " seconds", VbInformation, AppName[/COLOR][/FONT]
[FONT=Times New Roman][COLOR=darkslategray]end if[/COLOR][/FONT]
[FONT=Times New Roman][COLOR=darkslategray]wscript.Quit[/COLOR][/FONT][/CENTER]
احفظ الناتج باي اسم اردت واضف للاسم .vbs
ليصبح اخيرا.... "any-name.vbs"


ساطرح لكم تجربتي


قبل..





بعد..


زادت سرعة جهازي بنسبة 2.43%

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

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

abdelillah

عضو ماسـي
التسجيل
10/2/07
المشاركات
1,380
الإعجابات
47
#2
جزاك الله خيرا على البرنامج الجميل
 
الحالة
موضوع مغلق

أعلى