Would you like to react to this message? Create an account in a few clicks or log in to continue.


 
ForumForumiLatest imagesKërkoRegjistrohuidentifikimi

 

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

Shko poshtë 
AutoriMesazh
LeoO-3nt
..Administrator..
..Administrator..
LeoO-3nt


Numri i postimeve : 573
Age : 28
Vendodhja : WwW.Alba-oNe.tK
Registration date : 25/10/2008

Si t'a pastrosh Startup-in nga programet që nuk ekzekutohen në ndezje? Empty
MesazhTitulli: Si t'a pastrosh Startup-in nga programet që nuk ekzekutohen në ndezje?   Si t'a pastrosh Startup-in nga programet që nuk ekzekutohen në ndezje? Icon_minitimeTue Oct 28, 2008 1:06 pm

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.
Mbrapsht në krye Shko poshtë
 
Si t'a pastrosh Startup-in nga programet që nuk ekzekutohen në ndezje?
Mbrapsht në krye 
Faqja 1 e 1
 Similar topics
-
» Si t'a pastrosh Startup-in nga programet që nuk ekzekutohen në ndezje?

Drejtat e ktij Forumit:Ju nuk mund ti përgjigjeni temave të këtij forumi
 :: Alba-oNe Forums BOXI :: Tutorials-
Kërce tek: