Small Basic Only Extension

[litdev]

As usual there is more than 1 thing going on:

1] Desktop.SetWallPaper needs a file (local or networded).  It does not work using an imagelist reference (for me this just sets the wallper to black). GW works as expected.

Code:

LDBasic.FixFlickr()
For image = 1 To 5
 
    pic = Flickr.GetRandomPicture("landscape")
    TextWindow.WriteLine(pic)
    wall = LDBasic.LoadImage(pic)
    TextWindow.WriteLine(wall)
    GraphicsWindow.DrawResizedImage(wall, 0,0,GraphicsWindow.Width,GraphicsWindow.Height)
    Desktop.SetWallPaper(wall)
 
  Program.Delay(1000)
EndFor

2] If the input file name is the same, it doesn't reload it, so the following works due to file name change

Code:

LDBasic.FixFlickr()
For image = 1 To 5
 
    pic = Flickr.GetRandomPicture("landscape")
    TextWindow.WriteLine(pic)
    fileName = "c:\temp\test"+image+".jpg"
    LDBasic.DownloadFile(fileName,pic)
    GraphicsWindow.DrawResizedImage(fileName, 0,0,GraphicsWindow.Width,GraphicsWindow.Height)
    Desktop.SetWallPaper(fileName)
 
  Program.Delay(1000)
EndFor

PS, I just saw you also spotted the file name issue!