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

    Sponsorlu Bağlantılar
    XP'de Kaybolan Masaüstü İkonları ve Çözüm YoluXP'de Kaybolan Masaüstü İkonları ve Çözüm Yolu konusu 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
    __________________
     

Bu Sayfayı Paylaş