Windows 10 kilit ekranı resimlerini otomatik kaydetmek


Windows 10 kilit ekran resimleri nasıl kaydedilir

Windows 10 kilit ekranı görselini saklayalım isimli başlıktan sonra Herzaman olduğu gibi sizlerden emailler aldık bu emaillerdeki ortak istek şuydu : Kilit ekran resimlerini almanın bir yolunu vermişsniz fakat o

klasörde 40-50 adet dosya var ve bunların ön görünümleri de yok yani hoşumuza giden resimleri kopyalamak için tek tek hepsinin uzantısını “.jpg” yapmak zorundayız bunun daha kolay bir yöntemi yokmudur ? istekler son derece haklı olduğundan bu yazımızda tüm işlemleri otomatik olarak yapan bir script paylaşmayı uygun gördük , aslında scripti ilk yazıda paylaşacaktık fakat kodlamadaki basit bir sıkıntıyı aşamamıştım kısmet bugüneymiş

Tek tık ile Tüm Windows 10 kilit ekranı resimleri masaüstünüze gelsin

Bu bir .vbs scripti olup Buradaki yazımızda Elle yapılması gereken tüm işlemleri bir tık yapmaktadır , gelelim script kodlarına ve adımlarına:

' Coded by Velociraptor - 22.04 2016
' www.sordum.net
' Desktop -------------------------------------
Const ssfDESKTOPDIRECTORY = &h10
Set oShell = CreateObject("Shell.Application")
strDesktop = oShell.NameSpace(ssfDESKTOPDIRECTORY).Self.Path 
' Environment variables and copy --------------
Dim oFSO, strAppData, objShell
Set objShell = CreateObject("WScript.Shell") 
Set oFSO = CreateObject("Scripting.FileSystemObject") 
objShell.CurrentDirectory = oFSO.GetParentFolderName(WScript.ScriptFullName) 
strAppData=objShell.ExpandEnvironmentStrings("%LOCALAPPDATA%\Packages\Microsoft.Windows.ContentDeliveryManager_cw5n1h2txyewy\LocalState\Assets")
oFSO.CopyFolder strAppData , strDesktop &"\sordum.net", True
Set objShell = Nothing
Set oFSO = Nothing
' Extension -----------------------
sVBSPath = strDesktop &"\sordum.net"
with createobject("wscript.shell")
   .currentdirectory = sVBSPath
   .run "%comspec% /c ren *. *.jpg", 0, true
end with
Set objShell = CreateObject("Wscript.Shell")
strPath = "explorer.exe /e," & strDesktop &"\sordum.net"
objShell.Run strPath

1. Ya üstteki scripti kullanalım yada Sayfa sonunda scripti indirelim ve zipten çıkartalım

2. Scripti sağ tıklayalım ve özellikler diyelim , burada yeralan “Engellemeyi kaldır” kısmına tik koyup Uygula ve tamam butonlarına basalım

vbs engellemeyi kaldır

3. Scripti çift tıklayıp çalıştıralım , script tam olarak neler yapmaktadır:

3.1 – Kilit ekranı (Lock screeen) klasörüne gidip tüm resimleri kopyalamaktadır
3.2 – Masaüstünde sordum.net isimli bir klasör açmaktadır ve tüm resimleri bunun içine atmaktadır
3.3 – Tüm resimlerin uzantılarını .jpg yapmaktadır
3.4 – Resimlerin bulunduğu sordum.net klasörünü açmaktadır

kilit ekran resimlerini otomatik kaydetmek

Böylece tek tık ile tüm kilit ekran resimleri masaüstümüze gelmiş oldu , bunlardan istediklerinizi seçip farklı bir klasöre kopyalayıp arşivleyebilirsiniz

Bu arada dikkatimi çeken birşey oldu ; BU resimler hergün değişmektedir dolayısı ile resimleri arşivlemek için scripti hergün çalıştırmanızı tavsiye ederim , elbette scripti başlangıca atıp otomatik çalışmasını da sağlayabilirsiniz ama okadarına gerek varmıdır bilmiyorum.

Download



Yorum Ekle

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir

CAPTCHA