طريقة مسح الحاجات اللي الغيتها من بداية التشغيل startup في msconfig

أهلاً بأعضاءنا الكرام في منتدى التألق والإبداع منتدى المطر الأزرق
كنت شرحت قبل كده في موضوعي خمس طرق لتسريع الجهاز أمر msconfig انك لو شغلت Run وكتبت msconfig تعرف تشيل حاجات من الـ startup ... طيب الحاجات اللي شيلناها فيها حاجات مش عايزينها بعد كده أبداً ليه منشيلهاش من الليست دي؟

قبل ما نبدأ خلي بالك ان الحاجات اللي هتتمسح من الليست هتروح خالص فاللي ممكن تستخدمه تاني علم عليه صح الأول وبعد ماتخلص ابقى شيله تاني .

1- اعمل ملف تكست جديد new-->notepad في أي فولدر (المعظم بيستخدموا الفولدر بتاع الملفات المؤقته temp )
2-انسخ المعلومات اللي تحت دي لملف التيكست الجديد :

اقتباس :

Set oReg = GetObject("winmgmts:!root/default:StdRegProv")
Const HKLM = &H80000002
RegKeySUF = "SOFTWAREMicrosoftShared ToolsMSConfigstartupfolder"
RegKeySUR = "SOFTWAREMicrosoftShared ToolsMSConfigstartupreg"

ResultsSUF = EnumKey(HKLM, RegKeySUF, False)
If ResultsSUF = "" Then
ResultsSUF = space(5) & "(none)"
iBtns = 0
Else
iBtns = 4
sDelPrompt = "Would you like to selectively delete any of these items?"
End If
sResults = "Disabled items in startupfolder key:" & vbcrlf & _
ResultsSUF & vbcrlf & vbcrlf

ResultsSUR = EnumKey(HKLM, RegKeySUR, False)
If ResultsSUR = "" Then
ResultsSUR = space(5) & "(none)"
If iBtns <> 4 Then iBtns = 0
Else
iBtns = 4
sDelPrompt = "Would you like to selectively delete any of these items?"
End If
sResults = sResults & "Disabled items in startupreg key:" & vbcrlf & _
ResultsSUR & vbcrlf & vbcrlf

If MsgBox(sResults & sDelPrompt, iBtns + 256) <> 6 Then Wscript.quit

EnumKey HKLM, RegKeySUF, True
EnumKey HKLM, RegKeySUR, True

Function EnumKey(Key, SubKey, bDelete)
Dim Ret()
oReg.EnumKey Key, SubKey, sKeys

On Error Resume Next

ReDim Ret(UBound(sKeys))
If Err = 13 Then Exit Function
On Error GoTo 0

For Count = 0 to UBound(sKeys)
If Not bDelete Then
'this branch used on first call
Ret(Count) = space(5) & sKeys(Count)
Else
'this branch used on deletion iteration
If MsgBox("Do you want to delete " & sKeys(Count) & "?" & vbcrlf & _
vbcrlf & "This operation cannot be undone!", 4 + 256) = 6 Then
DeleteKey HKLM, SubKey & "" & sKeys(Count)
End If
End If
Next
EnumKey = Join(Ret, vbcrlf)
End Function

Function DeleteKey(Key, SubKey)
DeleteKey = oReg.DeleteKey(Key, SubKey)
End Function

Set ws = Wscript.CreateObject("Wscript.Shell")

3- لما تيجي تحفظ الملف save as وتكتب الاسم اللي انت عايزه .vbs يعني مثلاً (cleanUpmsconfig.vbs)

ودلوقتي لما تضغط عليه بالماوس دبل كليك هيمسحلك كل الحاجات اللي انت شايل من قدامها علامة صح في الـ startup

أتمنى يكون مفيد ويساعد الأعضاء اللي اتضايقوا فعلاً من الحركة دي زيي

والسلام عليكم

راااااااااااائع
وشكرا ايها المبدع

» اللي يوصل رقم 8 ياخد ورده
» Microsoft Windows 7 نازل الشهر اللي جاي!!
» تتوقــع العضــو اللي بعدك يحبــــك ؟؟؟؟؟
» طريقة عمل البسبوسه
» طريقة عمل ملف ريجيستري للألعاب