Manzara[1] = "https://www.orjinalsozler.com/wp-content/uploads/2013/08/11.jpg"
Manzara[2] = "https://www.orjinalsozler.com/wp-content/uploads/2013/08/91.jpg"
Manzara[3] = "https://www.orjinalsozler.com/wp-content/uploads/2013/09/2210.jpg"
Manzara[4] = "https://www.orjinalsozler.com/wp-content/uploads/2013/08/34.jpg"
Manzara[4] = "https://www.orjinalsozler.com/wp-content/uploads/2013/08/1.jpg"
Manzara[5] = "https://www.orjinalsozler.com/wp-content/uploads/2013/08/5.jpg"
Manzara[6] = "https://www.orjinalsozler.com/wp-content/uploads/2013/08/101.jpg"
Manzara[7] = "https://www.orjinalsozler.com/wp-content/uploads/2013/08/122.jpg"
Manzara[8] = "https://www.orjinalsozler.com/wp-content/uploads/2013/09/319.jpg"
Manzara[9] = "https://www.orjinalsozler.com/wp-content/uploads/2013/09/414.jpg"
Manzara[10] = "https://www.orjinalsozler.com/wp-content/uploads/2013/09/325.jpg"
Çiçek[1] = "https://resimdiyari.com/_data/i/upload/2012/10/30/20121030100147-8a1836e6-th.jpg"
Çiçek[2] = "https://resimdiyari.com/_data/i/upload/2012/10/30/20121030100159-40c8049f-th.jpg"
Çiçek[3] = "https://resimdiyari.com/_data/i/upload/2012/10/30/20121030100153-242c1920-th.jpg"
Çiçek[4] = "https://resimdiyari.com/_data/i/upload/2012/10/30/20121030100100-fb00f6dd-th.jpg"
Çiçek[5] = "https://resimdiyari.com/_data/i/upload/2012/10/30/20121030095903-1fa971cc-th.jpg"
Çiçek[6] = "https://resimdiyari.com/_data/i/upload/2012/10/30/20121030095909-fced8732-th.jpg"
Çiçek[7] = "https://resimdiyari.com/_data/i/upload/2012/10/30/20121030095731-b6b2af20-th.jpg"
Çiçek[8] = "https://resimdiyari.com/_data/i/upload/2012/10/30/20121030095717-06ae0683-th.jpg"
Çiçek[9] = "https://resimdiyari.com/_data/i/upload/2012/10/30/20121030095721-1d372552-th.jpg"
Çiçek[10] = "https://resimdiyari.com/_data/i/upload/2012/10/30/20121030095711-e69dc926-th.jpg"
Araba[1] = "https://resimdiyari.com/_data/i/upload/2012/12/29/20121229161939-397f1968-th.jpg"
Araba[2] = "https://resimdiyari.com/_data/i/upload/2012/12/29/20121229161936-80ca89f8-th.jpg"
Araba[3] = "https://resimdiyari.com/_data/i/upload/2012/10/10/20121010151422-472857aa-th.jpg"
Araba[4] = "https://resimdiyari.com/_data/i/upload/2012/10/10/20121010150901-fc8cdadc-th.jpg"
Araba[5] = "https://resimdiyari.com/_data/i/upload/2012/10/10/20121010150603-1345f358-th.jpg"
Araba[6] = "https://resimdiyari.com/_data/i/upload/2012/06/30/20120630174112-516eb4ff-th.jpg"
Araba[7] = "https://resimdiyari.com/_data/i/upload/2012/06/30/20120630173554-25418cfe-th.jpg"
Araba[8] = "https://resimdiyari.com/_data/i/upload/2012/06/30/20120630173131-fc786069-th.jpg"
Araba[9] = "https://resimdiyari.com/_data/i/upload/2012/06/30/20120630172440-c2361b9f-th.jpg"
Araba[10] = "https://resimdiyari.com/_data/i/upload/2012/06/30/20120630171435-820b764a-th.jpg"
Modern[1] = "https://www.kocaali.com/images/album/1_10.jpg"
Modern[2] = "https://www.kocaali.com/images/album/15_3.jpg"
Modern[3] = "https://www.kocaali.com/images/album/6_9.jpg"
Modern[4] = "https://www.kocaali.com/images/album/2_9.jpg"
Modern[5] = "https://www.kocaali.com/images/album/5_9.jpg"
Modern[6] = "https://www.kocaali.com/images/album/4_9.jpg"
Modern[7] = "https://www.kocaali.com/images/album/18_3.jpg"
Modern[8] = "https://www.kocaali.com/images/album/3_9.jpg"
Modern[9] = "https://www.kocaali.com/images/album/12_3.jpg"
Modern[10] = "https://www.kocaali.com/images/album/16_3.jpg"
GraphicsWindow.BackgroundColor = "Black"
GraphicsWindow.BrushColor = "Cyan"
GraphicsWindow.Title = "DKD Duvar Kâğıdı Düzenleyici"
GraphicsWindow.Width = 800
GraphicsWindow.Height = 400
GraphicsWindow.FontSize = 20
GraphicsWindow.DrawText(300,100,"Seçimizi yaptıktan sonra 10 saniye")
GraphicsWindow.DrawText(300,130,"görüntü gelmesi için beyleyin lütfen")
GraphicsWindow.BrushColor = "Red"
GraphicsWindow.FontSize = 12
Ma = Controls.AddButton("Manzara",25,50)
Ci = Controls.AddButton("Çiçek",25,100)
Ar = Controls.AddButton("Araba",25,150)
Mo = Controls.AddButton("Modern",25,200)
Du = Controls.AddButton("Duvar Kâğıdı olarak seç"25,300)
Controls.SetSize(Ma,150,25)
Controls.SetSize(Ci,150,25)
Controls.SetSize(Ar,150,25)
Controls.SetSize(Mo,150,25)
Controls.ButtonClicked = Tıkla
Sub Tıkla
If Controls.LastClickedButton = Ma Then
x = Math.GetRandomNumber(10)
Network.DownloadFile(Manzara[x])
Network.GetWebPageContents(Manzara[x])
GraphicsWindow.DrawResizedImage(Manzara[x],200,10,590,380)
Kaydet = Manzara[x]
EndIf
If Controls.LastClickedButton = Ci Then
x = Math.GetRandomNumber(10)
Network.DownloadFile(Çiçek[x])
Network.GetWebPageContents(Çiçek[x])
GraphicsWindow.DrawResizedImage(Çiçek[x],200,10,590,380)
Kaydet = Çiçek[x]
EndIf
If Controls.LastClickedButton = Ar Then
x = Math.GetRandomNumber(10)
Network.DownloadFile(Araba[x])
Network.GetWebPageContents(Araba[x])
GraphicsWindow.DrawResizedImage(Araba[x],200,10,590,380)
Kaydet = Araba[x]
EndIf
If Controls.LastClickedButton = Mo Then
x = Math.GetRandomNumber(10)
Network.DownloadFile(Modern[x])
Network.GetWebPageContents(Modern[x])
GraphicsWindow.DrawResizedImage(Modern[x],200,10,590,380)
Kaydet = Modern[x]
EndIf
If Controls.LastClickedButton = Du Then
ImageList.LoadImage(Kaydet)
Desktop.SetWallPaper(Kaydet)
EndIf
EndSub
