Si t'a pastrosh Startup-in nga programet që nuk ekzekutohen në ndezje?

Pasi keni çaktivizur programet që nuk doni që të ekzekutohen në ndezje (nga msconfig Startup), përsëri ju shihni një listë me programe. Për ta hequr këtë listë ka dy mënyra.

E para.

Kopjoni kodin e mëposhtëm dhe ruajeni në notepad si "pastrostartin.vbs", pa thonjëza

----------------------------------------------------------------------------------------

Set oReg = GetObject("winmgmts:!root/defaulttdRegProv")
Const HKLM = &H80000002
RegKeySUF = "SOFTWARE\Microsoft\Shared Tools\MSConfig\startupfolder"
RegKeySUR = "SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg"

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")


---------------------------------------------------------------------------------------------------------------

Kjo do tju heqë listë e kotë me programe që nuk ekzekutohen në Startup.
Këtë skript e provova vetë dhe funksionoi.


E dyta.

Shkarkoni MSConfig Cleanup nga http://www.get-in-control.com/msconfig-cleanup/
Ky është një program që bën të njëjtën punë, por unë preferoj të parën.