AutoHotkey Community

ver=1.0
#WinActivateForce

Gui 2:Default
gui, color, white
gui, -caption -border +alwaysontop +toolwindow
Gui, add, picture, x0 y0 backgroundtrans,gFx_bkg.bmp
Gui, font, s15 cwhite
Gui, add, text, x25 y50 backgroundtrans,Folder Backgrounds
Gui, font, s10 cwhite
Gui, add, text, x25 yp+25 backgroundtrans, Created by Sagar
Gui, font, s9 cwhite
Gui, font, s10
Gui, add, text, x200 y130 backgroundtrans, ver %ver%
Gui, add, text, x330 y130 cgray  backgroundtrans, loading...
gui, show, w417 h155 Hide, %a_username% @ %scriptname%

;-------enables slide in -------
Gui +LastFound
GUI_Span_hndl := WinExist()
DllCall("AnimateWindow","UInt",GUI_Span_hndl,"Int",1000,"UInt","0xa0000") ;slide in
;--------slideout---------------
sleep 3000
DllCall("AnimateWindow","UInt",GUI_Span_hndl,"Int",1000,"UInt","0x90000") ;slide out span
Gui,destroy

;/////////////////// SPAN END //////////////////////////////////////////////////


Gui, add, Text,cwhite BackgroundTrans , Select Folder:
Gui, Add, Edit,cGray w500 h20 BackgroundTrans vOutputVar1, Please select your Folder

Gui, Add, Button, cBlue gLaunchGoogle, Browse

Gui, add, Text,cwhite BackgroundTrans , Select Wallpaper:
Gui, Add, Edit,cGray w500 h20 BackgroundTrans vSelectedFile, Please select your Picture file
Gui, Add, Button, cBlue gSelectFile, Browse
Gui, Add, Button,w100 cBlue gGo, Go!
Gui, Add, Button,-wrap xp+120 yp w100 cBlue gRemoveIt,Remove
Gui, Add, Button,xp+120 yp w100 cBlue gExit,Exit
Gui, Font, norm

Gui, add, picture,xp+250 yp ,mail.png

Gui, Show


return




SelectFile:
FileSelectFile, SelectedFile, , , Open a file, Wallpapers (*.jpg; *.bmp)
if (!Errorlevel)
    {
      GUICONTROL,, SelectedFile,%SelectedFile%
    }
return
LaunchGoogle:
FileSelectFolder, OutputVar1, ,, Select your Folder
if (!Errorlevel)
    {
      GUICONTROL,, OutputVar1,%OutputVar1%
    }
return

Go:
{
IniWrite, %SelectedFile%,

%OutputVar1%\desktop.ini,{BE098140-A513-11D0-A3A4-00C04FD706EC},IconArea_Image
FileSetAttrib, +S, %OutputVar1%, 1
FileSetAttrib, +SH, %OutputVar1%\desktop.ini, 1
msgbox,Done!
Run ,%OutputVar1%

sleep,4000
msgbox,4,Hope you like it,Would you like to keep it?
WinActivate,msgbox
IfMsgBox Yes
{
return
}
Else IfMsgBox No
{
WinGetTitle, Title1, A
FileDelete,%OutputVar1%\desktop.ini

Winclose,%Title1%
sleep,2000
Run ,%OutputVar1%
}
Return

RemoveIt:
{
FileSelectFolder, OutputVar2, ,, Select your Folder with Wallpaper
if (!Errorlevel)
    {
      GUICONTROL,, OutputVar2,%OutputVar2%
    }
FileDelete,%OutputVar2%\desktop.ini
Run ,%OutputVar2%
}
Return



Exit:
Exitapp