efecan752- Posted April 5, 2010 Share Posted April 5, 2010 Arkadaşlar bilgisayarın masaüstünde normal dosyalarımı düzenlerken birden bire herşey kayboldu.. Geri dönüşüm kutusu da bunlara dahi.. İşte Resim... Lütfen Yardım Edin...! Ancak C:\Documents and Settings\*\Desktop tan girdiğimde masaüstündeki dosyalarım görünüor... Link to comment Share on other sites More sharing options...
halilt Posted April 5, 2010 Share Posted April 5, 2010 sağ klik simgeleri yerleştire baktınızmı,masaüstü simgelerini göster e...? Link to comment Share on other sites More sharing options...
CCoder Posted April 5, 2010 Share Posted April 5, 2010 Eger StarDock Fences kullaniyorsaniz: masaustune cift tiklayin sol tusla. Ve hooooooooop hersey geri gelecektir Saygilarimla, CCoder. Link to comment Share on other sites More sharing options...
d_drms Posted April 5, 2010 Share Posted April 5, 2010 Masaüstü sağ tık + "simgeleri yerleştir" + "masaüstü simgelerini göster" in yanına bi tik koy tmm dır . Link to comment Share on other sites More sharing options...
efecan752- Posted April 5, 2010 Author Share Posted April 5, 2010 d_drms süpersin abi yha ... bni büyük bi dertten kurtardın ... çok sağol .. diğer arkadaşlara da çok tşk ederim... Link to comment Share on other sites More sharing options...
egolas41 Posted April 5, 2010 Share Posted April 5, 2010 Link to comment Share on other sites More sharing options...
_AyhaN_ Posted April 5, 2010 Share Posted April 5, 2010 çözüm kolay notpad olustur '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[/CODE] yaz içine kaydet ismini x.vbs yap cift tıhla gelir.. Yapamadıysan indir çift Tıhla : Please register to see this content. Link to comment Share on other sites More sharing options...
efecan752- Posted April 5, 2010 Author Share Posted April 5, 2010 Eyw.. Çok sağol ... İki tıkla hallettim ama bunu da arşive kaydedeyim.. Zor günlerim için tekrar teşekkürler... Link to comment Share on other sites More sharing options...
_AyhaN_ Posted April 5, 2010 Share Posted April 5, 2010 Eyw.. Çok sağol ... İki tıkla hallettim ama bunu da arşive kaydedeyim.. Zor günlerim için tekrar teşekkürler... eyw. ne dmk aynı sorun benımde basıma gelmişti . Link to comment Share on other sites More sharing options...
Recommended Posts
Archived
This topic is now archived and is closed to further replies.