Easily Copy All Windows 10 Lock Screen Images

Discussion in 'Windows 10' started by wtarkan, Apr 22, 2016.

  1. wtarkan

    wtarkan MDL Member

    Sep 1, 2009
    137
    180
    10
    #1 wtarkan, Apr 22, 2016
    Last edited: Apr 24, 2016
  2. trungpt

    trungpt MDL Addicted

    Dec 15, 2009
    515
    48
    30
    A nice collection.
     
    Stop hovering to collapse... Click to collapse... Hover to expand... Click to expand...
  3. Tiger-1

    Tiger-1 MDL Guru

    Oct 18, 2014
    2,510
    2,553
    90
    yay thank you dude for the app :), and I see this in somewhere but don't remember :cool:
     
    Stop hovering to collapse... Click to collapse... Hover to expand... Click to expand...
  4. MrG

    MrG MDL Addicted

    May 31, 2010
    791
    176
    30
    Nice, I see these are different than the Win10/Redstone "Assets" images too
     
  5. wtarkan

    wtarkan MDL Member

    Sep 1, 2009
    137
    180
    10
    it is just a simple vbs script (coded by us) - we have shared it with a few other sites too , Why Microsoft try to hide these Wallpapers , hard to understand
     
  6. wtarkan

    wtarkan MDL Member

    Sep 1, 2009
    137
    180
    10
    #6 wtarkan, Apr 30, 2016
    Last edited by a moderator: Apr 20, 2017
    (OP)
  7. cocotus.interruptus

    cocotus.interruptus MDL Novice

    Sep 8, 2014
    26
    6
    0
    #7 cocotus.interruptus, Apr 30, 2016
    Last edited by a moderator: Apr 20, 2017
    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.
    :bashtroll:
     
  8. wtarkan

    wtarkan MDL Member

    Sep 1, 2009
    137
    180
    10
  9. hb860

    hb860 MDL Addicted

    May 7, 2010
    986
    1,760
    30
    #10 hb860, Apr 30, 2016
    Last edited: Apr 30, 2016
    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.
     
    Stop hovering to collapse... Click to collapse... Hover to expand... Click to expand...
  10. wtarkan

    wtarkan MDL Member

    Sep 1, 2009
    137
    180
    10
    Thank you for your Politiness Sergey and nice to meet you too
     
  11. hb860

    hb860 MDL Addicted

    May 7, 2010
    986
    1,760
    30
    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.
     
    Stop hovering to collapse... Click to collapse... Hover to expand... Click to expand...
  12. hb860

    hb860 MDL Addicted

    May 7, 2010
    986
    1,760
    30
    #13 hb860, May 1, 2016
    Last edited by a moderator: Apr 20, 2017
    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.
     

    Attached Files:

    Stop hovering to collapse... Click to collapse... Hover to expand... Click to expand...
  13. wtarkan

    wtarkan MDL Member

    Sep 1, 2009
    137
    180
    10
  14. endbase

    endbase MDL Guru

    Aug 12, 2012
    3,423
    867
    120
    Stop hovering to collapse... Click to collapse... Hover to expand... Click to expand...
  15. wtarkan

    wtarkan MDL Member

    Sep 1, 2009
    137
    180
    10
    Of course he can learn and use the whole script no problem - I'm still learning
    But what he did is Wrong , I have written a comment his old post and shared the script , he did not Approved it - he deleted the header section (credentials) and used the whole script as he coded - this was the wrong and he still continue , do you think it is really hard to leave the scripts credentials ?
     
  16. endbase

    endbase MDL Guru

    Aug 12, 2012
    3,423
    867
    120

    I must agree with you on the script credentials credit goes to the coder ofcourse !
     
    Stop hovering to collapse... Click to collapse... Hover to expand... Click to expand...
  17. hb860

    hb860 MDL Addicted

    May 7, 2010
    986
    1,760
    30
    #18 hb860, May 1, 2016
    Last edited: May 1, 2016
    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.
     
    Stop hovering to collapse... Click to collapse... Hover to expand... Click to expand...
  18. hb860

    hb860 MDL Addicted

    May 7, 2010
    986
    1,760
    30
    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.
     
    Stop hovering to collapse... Click to collapse... Hover to expand... Click to expand...
  19. wtarkan

    wtarkan MDL Member

    Sep 1, 2009
    137
    180
    10
    #20 wtarkan, May 1, 2016
    Last edited: May 1, 2016
    (OP)
    You are a Genius with using others scripts - but You are a bad Liar
    You changed the vbs code and you think you are the owner now
    1. but still not clear why did you not thought it befor (on November 27, 2015)
    2. There are lots of way to copy files rename them etc (in vbs) , is it possible to use 25 linie code exactly the same but without header - you know it is impossible (But now you have changed some linies to cover up)
    3. if it was so easy ( 1 minute to write it) why did you NOT done it before ?

    I will say you something The first version of Dns jumper was a just a few lines vbs code (created by me) why no one thought it before ? - if it was easy (after see the code of course it is easy) - what you are trying to do is typical false mentality - lies, fraud , cover up ,
    I see it is still hard to accept your Mistake and this is a BIG Mistake