XP'de Kaybolan Masaüstü İkonları ve Çözüm YoluXP'de Kaybolan Masaüstü İkonları ve Çözüm Yolu

'Windows XP' forumunda UquR tarafından 22 Mart 2009 tarihinde açılan konu

  1. UquR

    UquR Üye

    XP'de Kaybolan Masaüstü İkonları ve Çözüm YoluXP'de Kaybolan Masaüstü İkonları ve Çözüm Yolu konusu
    Sponsorlu Bağlantılar
    XP'de 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 - XP'de Kaybolan Masaüstü Forum Tarih
XP'de Kaybolan Masaüstü İkonlarını Geri Getirme & Çözümü Windows XP 25 Ağustos 2008
XP'de Kaybolan Klasör Seçeneklerini Görünür Hale Getirme Windows XP 16 Eylül 2008
Windows XP'de Kaybolan Sistem Saatini Geri Getirme Windows XP 25 Ağustos 2008
Windows Xp'de Dns Nasıl Değiştirilir - XP Dns Ayarları (Resimli Anlatım) Bilgisayar Hakkında Genel Bilgiler 24 Ağustos 2011
Windows XP'de Sata HDD Sorununa Kesin Çözüm!...(Resimli Anlatım) Windows XP 24 Haziran 2009

Bu Sayfayı Paylaş