Easily Copy All Windows 10 Lock Screen Images

A nice collection.

 

yay thank you dude for the app , and I see this in somewhere but don't remember

 

Nice, I see these are different than the Win10/Redstone "Assets" images too

 

Here's the full decoded VBS script -- since I find it utterly irresponsible to run encoded VBE s**t you get from god knows where:

Code:

' Coded by Velociraptor
' wxw.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

Similar stuff brings nothing to the topic here, or any other topic.

 

You need to login to view this posts content.

 

wtarkan
You bitches overspammed my blog with your script.
It is a good lesson for you. Instead of post suggestion or polite ask of review/share, you started to post links to your encoded script.
I never spammed your site or asked you for something.
I deleted the post with script.
And, you need to learn what word "polite" means.
It is not about insults.
Also, an open threat is considered crime.
How about to redirect your comments to police department of your country?
You even not bothered to use some anonymizer.
Enjoy.

 

I saw how you "nice" to meet me.
Tell this to someone else
Say thanks that I not reported you to your hoster as a spammer.
Usually I do so.

 

Well, here is how the script should be done (I coded it withing 1 min):

Code:

Dim oShell, oFS, SourceFolder, DestFolder, DestFileFullName, DestFileName
Set oShell = CreateObject("WScript.Shell")
Set oFS = CreateObject("Scripting.FileSystemObject") 
DestFolder = oShell.ExpandEnvironmentStrings("%USERPROFILE%\Desktop\Lock Screen Images")
SourceFolder = oShell.ExpandEnvironmentStrings("%LOCALAPPDATA%\Packages\Microsoft.Windows.ContentDeliveryManager_cw5n1h2txyewy\LocalState\Assets")
oFS.CopyFolder SourceFolder, DestFolder, True
For Each oFile In oFS.GetFolder(DestFolder).Files
    DestFileName = oFile.Name & ".jpg"
    DestFileFullName = DestFolder & "\" & DestFileName
    If oFS.FileExists(DestFileFullName) Then
oFS.DeleteFile(DestFileFullName)
End if
oFile.Name = DestFileName
Next
oShell.Run "explorer.exe /e," & DestFolder

As you can see, it is very simple task, and code should not call dos commands and re-create a bunch of objects.
Also, I would like to show his comments at my site. I forwarded them to police in Turkey.

 

You need to login to view this posts content.

 

I must agree with you on the script credentials credit goes to the coder ofcourse !

 

Yeah, but you POSTED A BUNCH OF comments, f****** spammer.
Not just only one.
I never saw your script before you started to spam with it, even not seen this topic here, until you posted the link in comments again. I was not going to post it. But after I saw 5 comments from the same IP, wait a minute - the same IP which promises to kill me and my family - "one of your members" made me mad.

And, I didn't even "learn" anything.
Last 20 years I coded various apps with various programming languages, including VBScript.
It is my full time job, kid.
Your comments and treats (and to be honest, your style of coding too) prove you as very cheap person.

Ha ha. Ha ha ha.
Yeah, it is deadly hard task to copy and rename files! Can be done with a single command copy/xcopy!
I am done here. I am very happy to see your butthurt. Next time you decide to spam anyone, you will remember this.
My mission is done.

 

I think mods should clean up this thread.
The problem is resolved. The article does not contain the author's code any more.
The way to retrieve images is a common knowledge. As OP's mentioned,everyone familiar with it, and I even have the appropriate article for a year.
Everyone saw how good and bad me and the OP.
There is no reason to continue.