Vista'da Kaybolan Masaüstü İkonlarını Geri Getirme

'Windows Vista' forumunda UquR tarafından 28 Mart 2009 tarihinde açılan konu

  1. UquR

    UquR Üye

    Sponsorlu Bağlantılar
    Vista'da Kaybolan Masaüstü İkonlarını Geri Getirme konusu Vista'da Kaybolan Masaüstü İkonları ve Çözüm Yolu & Geri Getirme


    Vista'da masaüstünüzdeki tüm ikonlar ortadan kaybolduysa eğer, aşağıdaki komut dosyasını kullanabilirsiniz.

    Aşağıdaki kodları not defterine yapıştırın ve uzantısını .vbs yaparak kaydedin. Ardından oluşan dosyayı çalıştırın...

    Kod:
    'Enable or Disable Desktop Icons

    Message = "To work correctly, the script will close" & vbCR
    Message = Message & "and restart the Windows Explorer shell." & vbCR
    Message = Message & "This will not harm your system." & vbCR & vbCR
    Message = Message & "Continue?"

    X = MsgBox(Message, vbYesNo, "Notice")

    If X = 6 Then

    On Error Resume Next

    Dim WSHShell, n, MyBox, p, t, errnum, vers
    Dim itemtype
    Dim enab, disab, jobfunc

    Set WSHShell = WScript.CreateObject("WScript.Shell")
    p = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDesktop"

    itemtype = "REG_DWORD"

    enab = "ENABLED"
    disab = "DISABLED"
    jobfunc = "Desktop Icons are now "

    t = "Confirmation"
    Err.Clear
    n = WSHShell.RegRead (p)
    errnum = Err.Number

    if errnum <> 0 then

    WSHShell.RegWrite p, 0, itemtype
    End If


    If n = 0 Then
    n = 1
    WSHShell.RegWrite p, n, itemtype
    Mybox = MsgBox(jobfunc & disab & vbCR, 4096, t)
    ElseIf n = 1 then
    n = 0
    WSHShell.RegWrite p, n, itemtype
    Mybox = MsgBox(jobfunc & enab & vbCR, 4096, t)
    End If


    Set WshShell = Nothing

    On Error GoTo 0

    For Each Process in GetObject("winmgmts:"). _
    ExecQuery ("select * from Win32_Process where name='explorer.exe'")
    Process.terminate(0)
    Next

    MsgBox "Finished." & vbcr & vbcr , 4096, "Done"

    Else

    MsgBox "No changes were made to your system." & vbcr & vbcr, 4096, "User Cancelled"

    End If
     

Bu Sayfayı Paylaş