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

    Vista'da Kaybolan Masaüstü İkonlarını Geri Getirme konusu
    Sponsorlu Bağlantılar
    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
     

Yükleniyor...
Benzer Konular - Vista'da Kaybolan Masaüstü Forum Tarih
Vista'da Kaybolan Klasör Seçeneklerini Görünür Hale Getirme Vista'da Kaybolan Klasör Seçeneklerini Windows Vista 28 Mart 2009
Vista'da Kaybolan Klasör Seçeneklerini Görünür Hale Getirme Windows Vista 16 Eylül 2008
Vista'da IIS7 Kurulumu ve Erişim İzinleri Windows Vista 15 Mayıs 2009
Vista'da "Sıfırdan" Geri Dönüşüm Kutusu Yapalım Windows Vista 2 Mayıs 2009
Vista'da Tema Silmek (Kaldırmak) Windows Vista 2 Mayıs 2009

Bu Sayfayı Paylaş