 |
AutoHotkey Community
Let's help each other out
|
| View previous topic :: View next topic |
| Author |
Message |
bonzybuddy
Joined: 13 Sep 2008
Posts: 3
|
 Posted: Sat Sep 13, 2008 7:22 am Post subject: Custom Folder wallpaper!{New} |
 |
|
hi everybuddy i m newbie with autohotkey. i have made a program with wich we can change backgroung of any folder replacing with any wallpaper we choose.please give feedback is there any improvement required. thnk u.  
 http://www.autohotkey.net/~bonzybuddy/custom%20folder%20wallpaper.rar
| Code: |
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
|
so here is script i wrote and as u all recomanded to me to put here.
post is edited and remove button added and script and exe file both updated you can try Downloading newfile with new feature nad dont forget how it is.
Last edited by bonzybuddy on Mon Sep 15, 2008 4:39 am; edited 3 times in total |
|
| Back to top |
|
 |
Dra_Gon
Joined: 25 May 2007
Posts: 314
|
| Posted: Sat Sep 13, 2008 6:21 pm Post subject: |
|
|
Not that anyone has asked my opinion, but it's not a good idea to download an unknown program. This RAR file only has an .exe file and I, for one, will NOT even attempt to activate it - especially since the Exe2Ahk doesn't seem to recognize it. If you would kindly put up the script then maybe someone will see what it's about.
Of course, if this is some lame attempt at a virus or other malware, well, you're on the wrong forum for any appreciation of it {and it's probably not all that great anyway}.
Ciao,
Dra'Gon
_________________
For a good laugh {hopefully} >> megamatts.50megs.com
My WritersCafe profile>>
http://www.writerscafe.org/writers/BlueDragonFire/ |
|
| Back to top |
|
|
SKAN
Joined: 26 Dec 2005
Posts: 6264
|
| Posted: Sat Sep 13, 2008 9:26 pm Post subject: |
|
|
Thanks for posting the code bonzybuddy! 
_________________
 |
|
| Back to top |
|
|
shajul
Joined: 15 Sep 2006
Posts: 33
Location: India
|
| Posted: Sun Sep 14, 2008 5:39 am Post subject: Another option |
|
|
Would it be nice to add a button to clear the folder of the wallpaper also, just in case a person want to revert back to the plain look?
_________________
Shajul. |
|
| Back to top |
|
|
Dra_Gon
Joined: 25 May 2007
Posts: 314
|
| Posted: Sun Sep 14, 2008 6:45 pm Post subject: |
|
|
LOL! That's actually pretty cool! Let's see, one suggestion {along with shajul's} would be options for Stretch or Tiled. Hmm, I always use FreeCommander instead of the Windows Explorer and I noticed the background doesn't show up in FreeCommander. I don't suppose there's anyone here who can figure out how to get that{?}. Other than that I like it. Thanks a bunch!
Ciao,
Dra'Gon
P.S. I do apologize for my earlier comment. Sometimes it pays to be a little paranoid with so much possibility for mischief.
_________________
For a good laugh {hopefully} >> megamatts.50megs.com
My WritersCafe profile>>
http://www.writerscafe.org/writers/BlueDragonFire/ |
|
| Back to top |
|
|
|
|
You can post new topics in this forum
You can reply to topics in this forum
|
Powered by phpBB © 2001, 2005 phpBB Group
|
FAQ
Search
Memberlist
Register
Profile
Log in to check your private messages
Log in
