Jump to content

background switcher

Thornhunt

By Thornhunt,
in AutoIt Example Scripts

 Share

Recommended Posts

Thornhunt Prodigy

Thornhunt

Posted
Posted (edited)

i got bored of switching through backgrounds so i thought id whip something together to do it for me

thinking bout addig a *run on startup feature*

plus anything else that takes my fancy

erm tested on Vindows Vista

run as administrator to make sure you dnt get any problems

Quick how to

to change the wallpapers - use either clicked the buttons ( ordered left to right / top to bottom )

then select the desired wall paper.

or go to options and choose there

to select the number of walls used - go to options and select there, default is 1

to choose the time between ach switch - use the input boxes at the bottom

any other questions put them here :)

script can be supplied if you guys want

thanks .. have fun :idea:

Source

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Res_Comment=Run As ADMINISTRATOR for vista or win7 users
#AutoIt3Wrapper_Res_Description=Desktop Background Changer
#AutoIt3Wrapper_Res_Fileversion=1
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <Wallpaper.au3>
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
HotKeySet("{end}","terminate")

SplashTextOn("Loading","Loading please wait", 300,50)
sleep(1000)
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("WallpaperExpress", 627, 553, 191, 100)
$MenuItem4 = GUICtrlCreateMenu("File")
$MenuItem42 = GUICtrlCreateMenuItem("Start", $MenuItem4)
$MenuItem41 = GUICtrlCreateMenuItem("Exit", $MenuItem4)
$MenuItem1 = GUICtrlCreateMenu("Options")
$MenuItem3 = GUICtrlCreateMenu("Change Wall :", $MenuItem1)
$MenuItemq = GUICtrlCreateMenuItem("1", $MenuItem3)
$MenuItemw = GUICtrlCreateMenuItem("2", $MenuItem3)
$MenuIteme = GUICtrlCreateMenuItem("3", $MenuItem3)
$MenuItemr = GUICtrlCreateMenuItem("4", $MenuItem3)
$MenuItemt = GUICtrlCreateMenuItem("5", $MenuItem3)
$MenuItemy = GUICtrlCreateMenuItem("6", $MenuItem3)
$MenuItemu = GUICtrlCreateMenuItem("7", $MenuItem3)
$MenuItemi = GUICtrlCreateMenuItem("8", $MenuItem3)
$MenuItemo = GUICtrlCreateMenuItem("9", $MenuItem3)
$MenuItemp = GUICtrlCreateMenuItem("10", $MenuItem3)
$MenuItema = GUICtrlCreateMenuItem("11", $MenuItem3)
$MenuItems = GUICtrlCreateMenuItem("12", $MenuItem3)
$MenuItemd = GUICtrlCreateMenuItem("13", $MenuItem3)
$MenuItemf = GUICtrlCreateMenuItem("14", $MenuItem3)
$MenuItemg = GUICtrlCreateMenuItem("15", $MenuItem3)
$MenuItemh = GUICtrlCreateMenuItem("16", $MenuItem3)
$MenuItem2 = GUICtrlCreateMenu("Number of walls:", $MenuItem1)
$MenuItem22 = GUICtrlCreateMenuItem("1", $MenuItem2)
GUICtrlSetState(-1, $GUI_CHECKED)
$MenuItem23 = GUICtrlCreateMenuItem("2", $MenuItem2)
$MenuItem24 = GUICtrlCreateMenuItem("3", $MenuItem2)
$MenuItem25 = GUICtrlCreateMenuItem("4", $MenuItem2)
$MenuItem26 = GUICtrlCreateMenuItem("5", $MenuItem2)
$MenuItem27 = GUICtrlCreateMenuItem("6", $MenuItem2)
$MenuItem28 = GUICtrlCreateMenuItem("7", $MenuItem2)
$MenuItem29 = GUICtrlCreateMenuItem("8", $MenuItem2)
$MenuItem30 = GUICtrlCreateMenuItem("9", $MenuItem2)
$MenuItem31 = GUICtrlCreateMenuItem("10", $MenuItem2)
$MenuItem32 = GUICtrlCreateMenuItem("11", $MenuItem2)
$MenuItem33 = GUICtrlCreateMenuItem("12", $MenuItem2)
$MenuItem34 = GUICtrlCreateMenuItem("13", $MenuItem2)
$MenuItem35 = GUICtrlCreateMenuItem("14", $MenuItem2)
$MenuItem36 = GUICtrlCreateMenuItem("15", $MenuItem2)
$MenuItem37 = GUICtrlCreateMenuItem("16", $MenuItem2)
$MenuItem21 = GUICtrlCreateMenu("Help")
$MenuItem39 = GUICtrlCreateMenuItem("Help", $MenuItem21)
$MenuItem40 = GUICtrlCreateMenuItem("", $MenuItem21)
$MenuItem38 = GUICtrlCreateMenuItem("About", $MenuItem21)
$Button1 = GUICtrlCreateButton("click to change image", 8, 0, 153, 121, BitOR($BS_BITMAP,$WS_GROUP))
$Button2 = GUICtrlCreateButton("click to change image", 160, 0, 153, 121, BitOR($BS_BITMAP,$WS_GROUP))
$Button3 = GUICtrlCreateButton("click to change image", 312, 0, 153, 121, BitOR($BS_BITMAP,$WS_GROUP))
$Button4 = GUICtrlCreateButton("click to change image", 464, 0, 153, 121, BitOR($BS_BITMAP,$WS_GROUP))
$Button5 = GUICtrlCreateButton("click to change image", 8, 120, 153, 121, BitOR($BS_BITMAP,$WS_GROUP))
$Button6 = GUICtrlCreateButton("click to change image", 160, 120, 153, 121, BitOR($BS_BITMAP,$WS_GROUP))
$Button7 = GUICtrlCreateButton("click to change image", 312, 120, 153, 121, BitOR($BS_BITMAP,$WS_GROUP))
$Button8 = GUICtrlCreateButton("click to change image", 464, 120, 153, 121, BitOR($BS_BITMAP,$WS_GROUP))
$Button9 = GUICtrlCreateButton("click to change image", 8, 240, 153, 121, BitOR($BS_BITMAP,$WS_GROUP))
$Button10 = GUICtrlCreateButton("click to change image", 160, 240, 153, 121, BitOR($BS_BITMAP,$WS_GROUP))
$Button11 = GUICtrlCreateButton("click to change image", 312, 240, 153, 121, BitOR($BS_BITMAP,$WS_GROUP))
$Button12 = GUICtrlCreateButton("click to change image", 464, 240, 153, 121, BitOR($BS_BITMAP,$WS_GROUP))
$Button13 = GUICtrlCreateButton("click to change image", 8, 360, 153, 121, BitOR($BS_BITMAP,$WS_GROUP))
$Button14 = GUICtrlCreateButton("click to change image", 160, 360, 153, 121, BitOR($BS_BITMAP,$WS_GROUP))
$Button15 = GUICtrlCreateButton("click to change image", 312, 360, 153, 121, BitOR($BS_BITMAP,$WS_GROUP))
$Button16 = GUICtrlCreateButton("click to change image", 464, 360, 153, 121, BitOR($BS_BITMAP,$WS_GROUP))
$BtnExit = GUICtrlCreateButton("exit", 544, 496, 73, 25, BitOR($BS_BITMAP,$WS_GROUP))
$Combo1 = GUICtrlCreateLabel("1", 488, 500, 41, 25)
$Label1 = GUICtrlCreateLabel("Number of wallpapers to use =", 312, 500, 176, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Combo2 = GUICtrlCreateInput("0", 216, 488, 35, 20)
$Combo3 = GUICtrlCreateInput("1", 216, 507, 35, 20)
$Label2 = GUICtrlCreateLabel("Hrs", 256, 492, 20, 17)
$Label3 = GUICtrlCreateLabel("Mns", 256, 510, 24, 17)
$Label4 = GUICtrlCreateLabel("Time Between", 140, 496, 72, 17)
$Label5 = GUICtrlCreateLabel("Changes", 149, 509, 46, 17)
$Button17 = GUICtrlCreateButton("Start", 8, 488, 121, 33, $WS_GROUP)

GUISetState(@SW_SHOW)
Sleep(1000)
SplashOff()

SplashTextOn("loading","loading Previous images",300,50)
sleep(1000)
GUICtrlSetImage($Button1, @ScriptDir & "\Tmbs\bt1.bmp")
GUICtrlSetImage($Button2, @ScriptDir & "\Tmbs\bt2.bmp")
GUICtrlSetImage($Button3, @ScriptDir & "\Tmbs\bt3.bmp")
GUICtrlSetImage($Button4, @ScriptDir & "\Tmbs\bt4.bmp")
GUICtrlSetImage($Button5, @ScriptDir & "\Tmbs\bt5.bmp")
GUICtrlSetImage($Button6, @ScriptDir & "\Tmbs\bt6.bmp")
GUICtrlSetImage($Button7, @ScriptDir & "\Tmbs\bt7.bmp")
GUICtrlSetImage($Button8, @ScriptDir & "\Tmbs\bt8.bmp")
GUICtrlSetImage($Button9, @ScriptDir & "\Tmbs\bt9.bmp")
GUICtrlSetImage($Button10, @ScriptDir & "\Tmbs\bt10.bmp")
GUICtrlSetImage($Button11, @ScriptDir & "\Tmbs\bt11.bmp")
GUICtrlSetImage($Button12, @ScriptDir & "\Tmbs\bt12.bmp")
GUICtrlSetImage($Button13, @ScriptDir & "\Tmbs\bt13.bmp")
GUICtrlSetImage($Button14, @ScriptDir & "\Tmbs\bt14.bmp")
GUICtrlSetImage($Button15, @ScriptDir & "\Tmbs\bt15.bmp")
GUICtrlSetImage($Button16, @ScriptDir & "\Tmbs\bt16.bmp")
sleep(1000)

$wall1 = @ScriptDir & "\Img\wall1.bmp"
$wall2 = @ScriptDir & "\Img\wall2.bmp"
$wall3 = @ScriptDir & "\Img\wall3.bmp"
$wall4 = @ScriptDir & "\Img\wall4.bmp"
$wall5 = @ScriptDir & "\Img\wall5.bmp"
$wall6 = @ScriptDir & "\Img\wall6.bmp"
$wall7 = @ScriptDir & "\Img\wall7.bmp"
$wall8 = @ScriptDir & "\Img\wall8.bmp"
$wall9 = @ScriptDir & "\Img\wall9.bmp"
$wall10 = @ScriptDir & "\Img\wall10.bmp"
$wall11 = @ScriptDir & "\Img\wall11.bmp"
$wall12 = @ScriptDir & "\Img\wall12.bmp"
$wall13 = @ScriptDir & "\Img\wall13.bmp"
$wall14 = @ScriptDir & "\Img\wall14.bmp"
$wall15 = @ScriptDir & "\Img\wall15.bmp"
$wall16 = @ScriptDir & "\Img\wall16.bmp"
SplashOff()

#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

        Case $Button1
            $imgin = FileOpenDialog("lol",@UserProfileDir, "Images (*.jpg;*.bmp)")
            $imgout = @ScriptDir & "\Tmbs\bt1.bmp"
            _ImageResize($imgin,$imgout,153,121)
            GUICtrlSetImage($Button1, @ScriptDir & "\Tmbs\bt1.bmp")
            FileCopy($imgin, @ScriptDir & "\Img\wall1.bmp")
            $wall1 = @ScriptDir & "\Img\wall1.bmp"



        Case $Button2
            $imgin = FileOpenDialog("lol",@UserProfileDir, "Images (*.jpg;*.bmp)")
            $imgout = @ScriptDir & "\Tmbs\bt2.bmp"
            _ImageResize($imgin,$imgout,153,121)
            GUICtrlSetImage($Button2, @ScriptDir & "\Tmbs\bt2.bmp")
            FileCopy($imgin, @ScriptDir & "\Img\wall2.bmp")
            $wall2 = @ScriptDir & "\Img\wall2.bmp"

        Case $Button3
            $imgin = FileOpenDialog("lol",@UserProfileDir, "Images (*.jpg;*.bmp)")
            $imgout = @ScriptDir & "\Tmbs\bt3.bmp"
            _ImageResize($imgin,$imgout,153,121)
            GUICtrlSetImage($Button3, @ScriptDir & "\Tmbs\bt3.bmp")
            FileCopy($imgin, @ScriptDir & "\Img\wall3.bmp")
            $wall3 =  @ScriptDir & "\Img\wall3.bmp"

        Case $Button4
            $imgin = FileOpenDialog("lol",@UserProfileDir, "Images (*.jpg;*.bmp)")
            $imgout = @ScriptDir & "\Tmbs\bt4.bmp"
            _ImageResize($imgin,$imgout,153,121)
            GUICtrlSetImage($Button4, @ScriptDir & "\Tmbs\bt4.bmp")
            FileCopy($imgin, @ScriptDir & "\Img\wall4.bmp")
            $wall4 =  @ScriptDir & "\Img\wall4.bmp"

        Case $Button5
            $imgin = FileOpenDialog("lol",@UserProfileDir, "Images (*.jpg;*.bmp)")
            $imgout = @ScriptDir & "\Tmbs\bt5.bmp"
            _ImageResize($imgin,$imgout,153,121)
            GUICtrlSetImage($Button5, @ScriptDir & "\Tmbs\bt5.bmp")
            FileCopy($imgin, @ScriptDir & "\Img\wall5.bmp")
            $wall5 =  @ScriptDir & "\Img\wall5.bmp"

        Case $Button6
            $imgin = FileOpenDialog("lol",@UserProfileDir, "Images (*.jpg;*.bmp)")
            $imgout = @ScriptDir & "\Tmbs\bt6.bmp"
            _ImageResize($imgin,$imgout,153,121)
            GUICtrlSetImage($Button6, @ScriptDir & "\Tmbs\bt6.bmp")
            FileCopy($imgin, @ScriptDir & "\Img\wall6.bmp")
            $wall6 =  @ScriptDir & "\Img\wall6.bmp"

        Case $Button7
            $imgin = FileOpenDialog("lol",@UserProfileDir, "Images (*.jpg;*.bmp)")
            $imgout = @ScriptDir & "\Tmbs\bt7.bmp"
            _ImageResize($imgin,$imgout,153,121)
            GUICtrlSetImage($Button7, @ScriptDir & "\Tmbs\bt7.bmp")
            FileCopy($imgin, @ScriptDir & "\Img\wall7.bmp")
            $wall7 =  @ScriptDir & "\Img\wall7.bmp"

        Case $Button8
            $imgin = FileOpenDialog("lol",@UserProfileDir, "Images (*.jpg;*.bmp)")
            $imgout = @ScriptDir & "\Tmbs\bt8.bmp"
            _ImageResize($imgin,$imgout,153,121)
            GUICtrlSetImage($Button8, @ScriptDir & "\Tmbs\bt8.bmp")
            FileCopy($imgin, @ScriptDir & "\Img\wall8.bmp")
            $wall8 =  @ScriptDir & "\Img\wall8.bmp"

        Case $Button9
            $imgin = FileOpenDialog("lol",@UserProfileDir, "Images (*.jpg;*.bmp)")
            $imgout = @ScriptDir & "\Tmbs\bt9.bmp"
            _ImageResize($imgin,$imgout,153,121)
            GUICtrlSetImage($Button9, @ScriptDir & "\Tmbs\bt9.bmp")
            FileCopy($imgin, @ScriptDir & "\Img\wall9.bmp")
            $wall9 =  @ScriptDir & "\Img\wall9.bmp"

        Case $Button10
            $imgin = FileOpenDialog("lol",@UserProfileDir, "Images (*.jpg;*.bmp)")
            $imgout = @ScriptDir & "\Tmbs\bt10.bmp"
            _ImageResize($imgin,$imgout,153,121)
            GUICtrlSetImage($Button10, @ScriptDir & "\Tmbs\bt10.bmp")
            FileCopy($imgin, @ScriptDir & "\Img\wall10.bmp")
            $wall10 =  @ScriptDir & "\Img\wall10.bmp"

        Case $Button11
            $imgin = FileOpenDialog("lol",@UserProfileDir, "Images (*.jpg;*.bmp)")
            $imgout = @ScriptDir & "\Tmbs\bt11.bmp"
            _ImageResize($imgin,$imgout,153,121)
            GUICtrlSetImage($Button11, @ScriptDir & "\Tmbs\bt11.bmp")
            FileCopy($imgin, @ScriptDir & "\Img\wall11.bmp")
            $wall11 =  @ScriptDir & "\Img\wall11.bmp"

        Case $Button12
            $imgin = FileOpenDialog("lol",@UserProfileDir, "Images (*.jpg;*.bmp)")
            $imgout = @ScriptDir & "\Tmbs\bt12.bmp"
            _ImageResize($imgin,$imgout,153,121)
            GUICtrlSetImage($Button12, @ScriptDir & "\Tmbs\bt12.bmp")
            FileCopy($imgin, @ScriptDir & "\Img\wall12.bmp")
            $wall12 =  @ScriptDir & "\Img\wall12.bmp"

        Case $Button13
            $imgin = FileOpenDialog("lol",@UserProfileDir, "Images (*.jpg;*.bmp)")
            $imgout = @ScriptDir & "\Tmbs\bt13.bmp"
            _ImageResize($imgin,$imgout,153,121)
            GUICtrlSetImage($Button13, @ScriptDir & "\Tmbs\bt13.bmp")
            FileCopy($imgin, @ScriptDir & "\Img\wall13.bmp")
            $wall13 =  @ScriptDir & "\Img\wall13.bmp"

        Case $Button14
            $imgin = FileOpenDialog("lol",@UserProfileDir, "Images (*.jpg;*.bmp)")
            $imgout = @ScriptDir & "\Tmbs\bt14.bmp"
            _ImageResize($imgin,$imgout,153,121)
            GUICtrlSetImage($Button14, @ScriptDir & "\Tmbs\bt14.bmp")
            FileCopy($imgin, @ScriptDir & "\Img\wall14.bmp")
            $wall14 =  @ScriptDir & "\Img\wall14.bmp"

        Case $Button15
            $imgin = FileOpenDialog("lol",@UserProfileDir, "Images (*.jpg;*.bmp)")
            $imgout = @ScriptDir & "\Tmbs\bt15.bmp"
            _ImageResize($imgin,$imgout,153,121)
            GUICtrlSetImage($Button15, @ScriptDir & "\Tmbs\bt15.bmp")
            FileCopy($imgin, @ScriptDir & "\Img\wall15.bmp")
            $wall15 =  @ScriptDir & "\Img\wall15.bmp"

        Case $Button16
            $imgin = FileOpenDialog("lol",@UserProfileDir, "Images (*.jpg;*.bmp)")
            $imgout = @ScriptDir & "\Tmbs\bt16.bmp"
            _ImageResize($imgin,$imgout,153,121)
            GUICtrlSetImage($Button16, @ScriptDir & "\Tmbs\bt16.bmp")
            FileCopy($imgin, @ScriptDir & "\Img\wall16.bmp")
            $wall16 =  @ScriptDir & "\Img\wall16.bmp"

        Case $MenuItemq
            $imgin = FileOpenDialog("lol",@UserProfileDir, "Images (*.jpg;*.bmp)")
            $imgout = @ScriptDir & "\Tmbs\bt1.bmp"
            _ImageResize($imgin,$imgout,153,121)
            GUICtrlSetImage($Button1, @ScriptDir & "\Tmbs\bt1.bmp")
            FileCopy($imgin, @ScriptDir & "\Img\wall1.bmp")
            $wall1 = @ScriptDir & "\Img\wall1.bmp"



        Case $MenuItemw
            $imgin = FileOpenDialog("lol",@UserProfileDir, "Images (*.jpg;*.bmp)")
            $imgout = @ScriptDir & "\Tmbs\bt2.bmp"
            _ImageResize($imgin,$imgout,153,121)
            GUICtrlSetImage($Button2, @ScriptDir & "\Tmbs\bt2.bmp")
            FileCopy($imgin, @ScriptDir & "\Img\wall2.bmp")
            $wall2 = @ScriptDir & "\Img\wall2.bmp"

        Case $MenuIteme
            $imgin = FileOpenDialog("lol",@UserProfileDir, "Images (*.jpg;*.bmp)")
            $imgout = @ScriptDir & "\Tmbs\bt3.bmp"
            _ImageResize($imgin,$imgout,153,121)
            GUICtrlSetImage($Button3, @ScriptDir & "\Tmbs\bt3.bmp")
            FileCopy($imgin, @ScriptDir & "\Img\wall3.bmp")
            $wall3 =  @ScriptDir & "\Img\wall3.bmp"

        Case $MenuItemr
            $imgin = FileOpenDialog("lol",@UserProfileDir, "Images (*.jpg;*.bmp)")
            $imgout = @ScriptDir & "\Tmbs\bt4.bmp"
            _ImageResize($imgin,$imgout,153,121)
            GUICtrlSetImage($Button4, @ScriptDir & "\Tmbs\bt4.bmp")
            FileCopy($imgin, @ScriptDir & "\Img\wall4.bmp")
            $wall4 =  @ScriptDir & "\Img\wall4.bmp"

        Case $MenuItemt
            $imgin = FileOpenDialog("lol",@UserProfileDir, "Images (*.jpg;*.bmp)")
            $imgout = @ScriptDir & "\Tmbs\bt5.bmp"
            _ImageResize($imgin,$imgout,153,121)
            GUICtrlSetImage($Button5, @ScriptDir & "\Tmbs\bt5.bmp")
            FileCopy($imgin, @ScriptDir & "\Img\wall5.bmp")
            $wall5 =  @ScriptDir & "\Img\wall5.bmp"

        Case $MenuItemy
            $imgin = FileOpenDialog("lol",@UserProfileDir, "Images (*.jpg;*.bmp)")
            $imgout = @ScriptDir & "\Tmbs\bt6.bmp"
            _ImageResize($imgin,$imgout,153,121)
            GUICtrlSetImage($Button6, @ScriptDir & "\Tmbs\bt6.bmp")
            FileCopy($imgin, @ScriptDir & "\Img\wall6.bmp")
            $wall6 =  @ScriptDir & "\Img\wall6.bmp"

        Case $MenuItemu
            $imgin = FileOpenDialog("lol",@UserProfileDir, "Images (*.jpg;*.bmp)")
            $imgout = @ScriptDir & "\Tmbs\bt7.bmp"
            _ImageResize($imgin,$imgout,153,121)
            GUICtrlSetImage($Button7, @ScriptDir & "\Tmbs\bt7.bmp")
            FileCopy($imgin, @ScriptDir & "\Img\wall7.bmp")
            $wall7 =  @ScriptDir & "\Img\wall7.bmp"

        Case $MenuItemi
            $imgin = FileOpenDialog("lol",@UserProfileDir, "Images (*.jpg;*.bmp)")
            $imgout = @ScriptDir & "\Tmbs\bt8.bmp"
            _ImageResize($imgin,$imgout,153,121)
            GUICtrlSetImage($Button8, @ScriptDir & "\Tmbs\bt8.bmp")
            FileCopy($imgin, @ScriptDir & "\Img\wall8.bmp")
            $wall8 =  @ScriptDir & "\Img\wall8.bmp"

        Case $MenuItemo
            $imgin = FileOpenDialog("lol",@UserProfileDir, "Images (*.jpg;*.bmp)")
            $imgout = @ScriptDir & "\Tmbs\bt9.bmp"
            _ImageResize($imgin,$imgout,153,121)
            GUICtrlSetImage($Button9, @ScriptDir & "\Tmbs\bt9.bmp")
            FileCopy($imgin, @ScriptDir & "\Img\wall9.bmp")
            $wall9 =  @ScriptDir & "\Img\wall9.bmp"

        Case $MenuItemp
            $imgin = FileOpenDialog("lol",@UserProfileDir, "Images (*.jpg;*.bmp)")
            $imgout = @ScriptDir & "\Tmbs\bt10.bmp"
            _ImageResize($imgin,$imgout,153,121)
            GUICtrlSetImage($Button10, @ScriptDir & "\Tmbs\bt10.bmp")
            FileCopy($imgin, @ScriptDir & "\Img\wall10.bmp")
            $wall10 =  @ScriptDir & "\Img\wall10.bmp"

        Case $MenuItema
            $imgin = FileOpenDialog("lol",@UserProfileDir, "Images (*.jpg;*.bmp)")
            $imgout = @ScriptDir & "\Tmbs\bt11.bmp"
            _ImageResize($imgin,$imgout,153,121)
            GUICtrlSetImage($Button11, @ScriptDir & "\Tmbs\bt11.bmp")
            FileCopy($imgin, @ScriptDir & "\Img\wall11.bmp")
            $wall11 =  @ScriptDir & "\Img\wall11.bmp"

        Case $MenuItems
            $imgin = FileOpenDialog("lol",@UserProfileDir, "Images (*.jpg;*.bmp)")
            $imgout = @ScriptDir & "\Tmbs\bt12.bmp"
            _ImageResize($imgin,$imgout,153,121)
            GUICtrlSetImage($Button12, @ScriptDir & "\Tmbs\bt12.bmp")
            FileCopy($imgin, @ScriptDir & "\Img\wall12.bmp")
            $wall12 =  @ScriptDir & "\Img\wall12.bmp"

        Case $MenuItemd
            $imgin = FileOpenDialog("lol",@UserProfileDir, "Images (*.jpg;*.bmp)")
            $imgout = @ScriptDir & "\Tmbs\bt13.bmp"
            _ImageResize($imgin,$imgout,153,121)
            GUICtrlSetImage($Button13, @ScriptDir & "\Tmbs\bt13.bmp")
            FileCopy($imgin, @ScriptDir & "\Img\wall13.bmp")
            $wall13 =  @ScriptDir & "\Img\wall13.bmp"

        Case $MenuItemf
            $imgin = FileOpenDialog("lol",@UserProfileDir, "Images (*.jpg;*.bmp)")
            $imgout = @ScriptDir & "\Tmbs\bt14.bmp"
            _ImageResize($imgin,$imgout,153,121)
            GUICtrlSetImage($Button14, @ScriptDir & "\Tmbs\bt14.bmp")
            FileCopy($imgin, @ScriptDir & "\Img\wall14.bmp")
            $wall14 =  @ScriptDir & "\Img\wall14.bmp"

        Case $MenuItemg
            $imgin = FileOpenDialog("lol",@UserProfileDir, "Images (*.jpg;*.bmp)")
            $imgout = @ScriptDir & "\Tmbs\bt15.bmp"
            _ImageResize($imgin,$imgout,153,121)
            GUICtrlSetImage($Button15, @ScriptDir & "\Tmbs\bt15.bmp")
            FileCopy($imgin, @ScriptDir & "\Img\wall15.bmp")
            $wall15 =  @ScriptDir & "\Img\wall15.bmp"

        Case $MenuItemh
            $imgin = FileOpenDialog("lol",@UserProfileDir, "Images (*.jpg;*.bmp)")
            $imgout = @ScriptDir & "\Tmbs\bt16.bmp"
            _ImageResize($imgin,$imgout,153,121)
            GUICtrlSetImage($Button16, @ScriptDir & "\Tmbs\bt16.bmp")
            FileCopy($imgin, @ScriptDir & "\Img\wall16.bmp")
            $wall16 =  @ScriptDir & "\Img\wall16.bmp"

        Case $MenuItem22
            GUICtrlSetState($MenuItem22, $GUI_CHECKED)
            GUICtrlSetState($MenuItem23, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem24, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem25, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem26, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem27, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem28, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem29, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem30, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem31, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem32, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem33, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem34, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem35, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem36, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem37, $GUI_UNCHECKED)
            GUICtrlSetData($Combo1,"1")

        Case $MenuItem23
            GUICtrlSetState($MenuItem22, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem23, $GUI_CHECKED)
            GUICtrlSetState($MenuItem24, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem25, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem26, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem27, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem28, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem29, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem30, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem31, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem32, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem33, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem34, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem35, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem36, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem37, $GUI_UNCHECKED)
            GUICtrlSetData($Combo1,"2")

        Case $MenuItem24
            GUICtrlSetState($MenuItem22, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem23, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem24, $GUI_CHECKED)
            GUICtrlSetState($MenuItem25, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem26, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem27, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem28, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem29, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem30, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem31, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem32, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem33, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem34, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem35, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem36, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem37, $GUI_UNCHECKED)
            GUICtrlSetData($Combo1,"3")

        Case $MenuItem25
            GUICtrlSetState($MenuItem22, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem23, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem24, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem25, $GUI_CHECKED)
            GUICtrlSetState($MenuItem26, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem27, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem28, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem29, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem30, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem31, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem32, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem33, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem34, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem35, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem36, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem37, $GUI_UNCHECKED)
            GUICtrlSetData($Combo1,"4")

        Case $MenuItem26
            GUICtrlSetState($MenuItem22, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem23, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem24, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem25, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem26, $GUI_CHECKED)
            GUICtrlSetState($MenuItem27, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem28, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem29, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem30, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem31, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem32, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem33, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem34, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem35, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem36, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem37, $GUI_UNCHECKED)
            GUICtrlSetData($Combo1,"5")


        Case $MenuItem27
            GUICtrlSetState($MenuItem22, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem23, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem24, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem25, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem26, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem27, $GUI_CHECKED)
            GUICtrlSetState($MenuItem28, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem29, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem30, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem31, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem32, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem33, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem34, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem35, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem36, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem37, $GUI_UNCHECKED)
            GUICtrlSetData($Combo1,"6")

        Case $MenuItem28
            GUICtrlSetState($MenuItem22, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem23, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem24, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem25, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem26, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem27, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem28, $GUI_CHECKED)
            GUICtrlSetState($MenuItem29, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem30, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem31, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem32, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem33, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem34, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem35, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem36, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem37, $GUI_UNCHECKED)
            GUICtrlSetData($Combo1,"7")

        Case $MenuItem29
            GUICtrlSetState($MenuItem22, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem23, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem24, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem25, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem26, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem27, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem28, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem29, $GUI_CHECKED)
            GUICtrlSetState($MenuItem30, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem31, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem32, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem33, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem34, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem35, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem36, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem37, $GUI_UNCHECKED)
            GUICtrlSetData($Combo1,"8")

        Case $MenuItem30
            GUICtrlSetState($MenuItem22, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem23, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem24, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem25, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem26, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem27, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem28, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem29, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem30, $GUI_CHECKED)
            GUICtrlSetState($MenuItem31, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem32, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem33, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem34, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem35, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem36, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem37, $GUI_UNCHECKED)
            GUICtrlSetData($Combo1,"9")

        Case $MenuItem31
            GUICtrlSetState($MenuItem22, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem23, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem24, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem25, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem26, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem27, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem28, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem29, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem30, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem31, $GUI_CHECKED)
            GUICtrlSetState($MenuItem32, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem33, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem34, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem35, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem36, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem37, $GUI_UNCHECKED)
            GUICtrlSetData($Combo1,"10")

        Case $MenuItem32
            GUICtrlSetState($MenuItem22, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem23, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem24, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem25, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem26, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem27, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem28, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem29, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem30, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem31, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem32, $GUI_CHECKED)
            GUICtrlSetState($MenuItem33, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem34, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem35, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem36, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem37, $GUI_UNCHECKED)
            GUICtrlSetData($Combo1,"11")

        Case $MenuItem33
            GUICtrlSetState($MenuItem22, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem23, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem24, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem25, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem26, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem27, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem28, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem29, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem30, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem31, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem32, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem33, $GUI_CHECKED)
            GUICtrlSetState($MenuItem34, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem35, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem36, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem37, $GUI_UNCHECKED)
            GUICtrlSetData($Combo1,"12")

        Case $MenuItem34
            GUICtrlSetState($MenuItem22, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem23, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem24, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem25, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem26, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem27, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem28, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem29, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem30, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem31, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem32, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem33, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem34, $GUI_CHECKED)
            GUICtrlSetState($MenuItem35, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem36, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem37, $GUI_UNCHECKED)
            GUICtrlSetData($Combo1,"13")

        Case $MenuItem35
            GUICtrlSetState($MenuItem22, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem23, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem24, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem25, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem26, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem27, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem28, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem29, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem30, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem31, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem32, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem33, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem34, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem35, $GUI_CHECKED)
            GUICtrlSetState($MenuItem36, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem37, $GUI_UNCHECKED)
            GUICtrlSetData($Combo1,"14")

        Case $MenuItem36
            GUICtrlSetState($MenuItem22, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem23, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem24, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem25, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem26, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem27, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem28, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem29, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem30, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem31, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem32, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem33, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem34, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem35, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem36, $GUI_CHECKED)
            GUICtrlSetState($MenuItem37, $GUI_UNCHECKED)
            GUICtrlSetData($Combo1,"15")

        Case $MenuItem37
            GUICtrlSetState($MenuItem22, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem23, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem24, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem25, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem26, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem27, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem28, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem29, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem30, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem31, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem32, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem33, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem34, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem35, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem36, $GUI_UNCHECKED)
            GUICtrlSetState($MenuItem37, $GUI_CHECKED)
            GUICtrlSetData($Combo1,"16")

        case $Button17
            GUISetState(@SW_HIDE)
            start()

        Case $MenuItem41
            GUISetState(@SW_HIDE)
            start()

        case $BtnExit
            Exit
        case $MenuItem41
            exit

        Case $MenuItem38
            MsgBox(0,"About", "Created 2010, By Paul Haywood" & @CRLF & _
            "Copyright 2010 to Paul Haywood,"  & @CRLF & _
            "Selling this product without permission is an offence" & @CRLF & _
            "and legal action WILL be taken" & @CRLF & _
            @CRLF & _
            "to distribute this product use the email found in the ReadMe" & @CRLF & _
            "Thankyou.")

        case $MenuItem39
            Run(@ScriptDir & "\HelpFile.exe")

    EndSwitch
WEnd



Func start ()

    $wallcount = GUICtrlRead($Combo1)
    $hours1 = GUICtrlRead($Combo2)

    $mins = GUICtrlRead($Combo3)

                $hours1 = $hours1*60

                $hours1 = $hours1*60

                $hours1 = $hours1*1000

                $mins = $mins*60

                $mins = $mins*1000

                $duration = $mins + $hours1
    $loopcount = 1

    while 1
        If $loopcount <= $wallcount then
            _setwallpaper($wall1,3)
            sleep($duration)
            $loopcount = $loopcount + 1
        EndIf
        If $loopcount <= $wallcount then
            _setwallpaper($wall2,3)
            sleep($duration)
            $loopcount = $loopcount + 1
        EndIf
        If $loopcount <= $wallcount then
            _setwallpaper($wall3,3)
            sleep($duration)
            $loopcount = $loopcount + 1
        EndIf
        If $loopcount <= $wallcount then
            _setwallpaper($wall4,3)
            sleep($duration)
            $loopcount = $loopcount + 1
        EndIf
        If $loopcount <= $wallcount then
            _setwallpaper($wall5,3)
            sleep($duration)
            $loopcount = $loopcount + 1
        EndIf
        If $loopcount <= $wallcount then
            _setwallpaper($wall6,3)
            sleep($duration)
            $loopcount = $loopcount + 1
        EndIf
        If $loopcount <= $wallcount then
            _setwallpaper($wall7,3)
            sleep($duration)
            $loopcount = $loopcount + 1
        EndIf
        If $loopcount <= $wallcount then
            _setwallpaper($wall8,3)
            sleep($duration)
            $loopcount = $loopcount + 1
        EndIf
        If $loopcount <= $wallcount then
            _setwallpaper($wall9,3)
            sleep($duration)
            $loopcount = $loopcount + 1
        EndIf
        If $loopcount <= $wallcount then
            _setwallpaper($wall10,3)
            sleep($duration)
            $loopcount = $loopcount + 1
        EndIf
        If $loopcount <= $wallcount then
            _setwallpaper($wall11,3)
            sleep($duration)
            $loopcount = $loopcount + 1
        EndIf

    If $loopcount <= $wallcount then
            _setwallpaper($wall12,3)
            sleep($duration)
            $loopcount = $loopcount + 1
        EndIf
        If $loopcount <= $wallcount then
            _setwallpaper($wall13,3)
            sleep($duration)
            $loopcount = $loopcount + 1
        EndIf
        If $loopcount <= $wallcount then
            _setwallpaper($wall14,3)
            sleep($duration)
            $loopcount = $loopcount + 1
        EndIf
        If $loopcount <= $wallcount then
            _setwallpaper($wall15,3)
            sleep($duration)
            $loopcount = $loopcount + 1
        EndIf
        If $loopcount <= $wallcount then
            _setwallpaper($wall16,3)
            sleep($duration)
            $loopcount = $loopcount + 1
        EndIf

        $loopcount = 1
WEnd
EndFunc

Func _ImageResize($sInImage, $sOutImage, $iW, $iH)
    Local $hWnd, $hDC, $hBMP, $hImage1, $hImage2, $hGraphic, $CLSID, $i = 0
    Local $sOF = StringMid($sOutImage, StringInStr($sOutImage, "\", 0, -1) + 1)
    Local $Ext = StringUpper(StringMid($sOutImage, StringInStr($sOutImage, ".", 0, -1) + 1))
    $hWnd = _WinAPI_GetDesktopWindow()
    $hDC = _WinAPI_GetDC($hWnd)
    $hBMP = _WinAPI_CreateCompatibleBitmap($hDC, $iW, $iH)
    _WinAPI_ReleaseDC($hWnd, $hDC)
    _GDIPlus_Startup()
    $hImage1 = _GDIPlus_BitmapCreateFromHBITMAP ($hBMP)
    $hImage2 = _GDIPlus_ImageLoadFromFile($sInImage)
    $hGraphic = _GDIPlus_ImageGetGraphicsContext($hImage1)
    _GDIPLus_GraphicsDrawImageRect($hGraphic, $hImage2, 0, 0, $iW, $iH)
    $CLSID = _GDIPlus_EncodersGetCLSID($Ext)
    _GDIPlus_ImageSaveToFileEx($hImage1, $sOutImage, $CLSID)
    _GDIPlus_ImageDispose($hImage1)
    _GDIPlus_ImageDispose($hImage2)
    _GDIPlus_GraphicsDispose ($hGraphic)
    _WinAPI_DeleteObject($hBMP)
    _GDIPlus_Shutdown()
EndFunc

func terminate()
    SplashTextOn("Exit","Closing",100,50)
    sleep(3000)
    Exit
EndFunc

Edited by Thornhunt

Budweiser + room = warm beerwarm beer + fridge = too long!warm beer + CO2 fire extinguisher = Perfect![quote]Protect the easly offended ... BAN EVERYTHING[/quote]^^ hmm works for me :D

Link to comment
Share on other sites
Achilles Universalist

Achilles

Posted
Posted

Just a few ideas (I didn't run your code):

In my opinion you shouldn't add sleeps just so that your splash text displays... People want efficient programs that act fast..

Look into using For loops and arrays... Lots of your controls (the menu items and buttons) could just put into an array (which is basically a list)

I don't have anything to extract .rar files so I couldn't get the wallpaper.au3 file which you need to run it.

My Programs[list][*]Knight Media Player[*]Multiple Desktops[*]Daily Comics[*]Journal[/list]
Link to comment
Share on other sites
Thornhunt Prodigy

Thornhunt

Posted
  • Author
Posted

Just a few ideas (I didn't run your code):

In my opinion you shouldn't add sleeps just so that your splash text displays... People want efficient programs that act fast..

Look into using For loops and arrays... Lots of your controls (the menu items and buttons) could just put into an array (which is basically a list)

I don't have anything to extract .rar files so I couldn't get the wallpaper.au3 file which you need to run it.

thankss for the feedback

i put in th sleeps because while i was writing it i had a number of programms going and my pc wasnt too fast so they were mainly to let me know were it was. i wanted to do loops but i dnt know if you can integrate the name of a variable like you do the value of it in a for next loop without using a array (ddidnt have the effort to think bout a array at the time) however it is up for improvement so improvements will e made :idea:

and the wallpaper.au3 i got from this forum. i will try find the link.

//edit here it is. to use it you wil need a directory called "img" and "Tmbs" also a .exe called "HelpFile" (dnt worry the current one is empty since i havent made it yet.

all the wall papers you must supple since the ones i used took up 15mb

#Include <GDIPlus.au3>


;===============================================================================
;
; Description:         Sets the desktop wallpaper picture
; Syntax:              _setwallpaper($pic, $style = 0, $warn = 1)
; Parameter(s):     $pic      - Path and filename of the picture to set ( JPG or BITMAP )
;                           $style    - 0 = centered   1 = Tiled   2 = Stretched    ( set to 0 )
;                          $warn     - 0 = false     1 = true                      ( set to 1 )
; Requirement(s):   none
; Return Value(s):  On Success - Returns 0
;                           On Failure - Returns -1
; Author(s):           ludocus
; Note(s):              $warn may be anoying,.. Build in picture converter to bmp
;
;===============================================================================
Func _setwallpaper($pic, $style = 0, $warn = 1)
    if $warn = 1 then
    $m1 = @DesktopHeight/2
    $m2 = @DeskTopWidth/2
   EndIf
   If Not FileExists($pic) Then Return -1

   $s = StringSplit ( $pic, '.', 1 )
if $s[2] = 'bmp' Then   ;If Not $s[2] = \'bmp\' then.... didn\'t seem to be working, so that\'s why I did this..
    $bmp = 'true'
Else
    $bmp = 'false'
EndIf


If $bmp = 'false' then
$text = StringReplace($pic, ".jpg", ".bmp")
_GDIPlus_Startup ()
$hImage = _GDIPlus_ImageLoadFromFile($pic)
$sCLSID = _GDIPlus_EncodersGetCLSID ("BMP")
_GDIPlus_ImageSaveToFileEx($hImage, $text, $sCLSID)
_GDIPlus_ShutDown()
$pic = $text
EndIf
   Local $SPI_SETDESKWALLPAPER = 20
   Local $SPIF_UPDATEINIFILE = 1
   Local $SPIF_SENDCHANGE = 2
   Local $REG_DESKTOP= "HKEY_CURRENT_USER\Control Panel\Desktop\"
   if $style = 1 then
   RegWrite($REG_DESKTOP, "TileWallPaper", "REG_SZ", 1)
   RegWrite($REG_DESKTOP, "WallpaperStyle", "REG_SZ", 0)
Else
   RegWrite($REG_DESKTOP, "TileWallPaper", "REG_SZ", 0)
   RegWrite($REG_DESKTOP, "WallpaperStyle", "REG_SZ", $style)
EndIf

   DllCall("user32.dll", "int", "SystemParametersInfo", _
         "int", $SPI_SETDESKWALLPAPER, _
         "int", 0, _
         "str", $pic, _
         "int", BitOR($SPIF_UPDATEINIFILE, $SPIF_SENDCHANGE))
   Return 0
   if $warn = 1 then
   sleep ( 2000 )
   EndIf
EndFunc ;==>_setwallpaper

Budweiser + room = warm beerwarm beer + fridge = too long!warm beer + CO2 fire extinguisher = Perfect![quote]Protect the easly offended ... BAN EVERYTHING[/quote]^^ hmm works for me :D

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...