Script as service and WP change at exact time

[noobish]

Well i don't like to be spoon feed but i cant do it guys.

You see i want to make a script ran at startup as a service or just a background app.I wanted to be as a tray icon, and in christmas to have the desktop background change into a christmas one and the same for last day of december, also how to add a countdown clock that appears some time before new year's, as info balloon every hour that gives time remaining untill new year 00:00.

I found these in help file but dont know how to put them in a script

@year @mday and @mon

I am sorry gentlemen and lady's but can you help, maybe an example to work on.

Thank you in advance

Edited December 8, 2012 by noobish

[JLogan3o13]

Hi, noobish, search function not working for ya? If you do a forum search for script + as + service, you'll see a number of threads on this topic; including a UDF in the Examples section. Why don't you use this to get you started? Once you have something on your own (even if it isn't working just the way you'd like), come on back and we can try to assist.

Also look at Tray Management in the help file.

[guinness]

Also try to opt for more descriptive titles in the future, as most who post in general help and support are looking for help of some degree.

[DicatoroftheUSA]

Backgrounds are usually a personal thing and not really appropriate to control as a service. If it is for your workplace, there might be people like me who are sick of christmas and may go postal on you.

If it is just for your computer, then just drop it in in the "all users" or "public" startup folder. It is a lot easier and much less likely to turn your computer into a paperweight.

Edited December 8, 2012 by DicatoroftheUSA

[noobish]

Thank you guys.

i'll have this but it doesn't seems to work

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <date.au3>

$form = GUICreate("Christmas?", 615, 438, 192, 124)
GUISetState(@SW_SHOW)
$button1 = GuiCtrlCreateButton("Klick me!",100,100)
$label1 = GuiCtrlCreateLabel("",10,20,100,50)


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

if _nowdate() = "24.12.2012" Then
GuiCtrlSetData($label1,"Weihnachtszeit weihnachtszeit sag allen bescheid das wenn Sido kommt und sack bei hat.... ") ; <= IF Christmas
ElseIf _nowdate() = "01.01.2013" Then
GuiCtrlSetData($label1,"Happy New Year!! HURRAY!!") ; <= IF New Year

Else
GuiCtrlSetData($label1,"Today: " & _nowdate())

EndIf





EndSwitch
WEnd

Edited December 8, 2012 by noobish

[noobish]

Found this too but don't work either.

Any help guys ?

expandcollapse popup

Func _ChangeDesktopBackground($sFile, $iPosition=3)
Local $sCLSID, $tBuffer, $hImage, $sTemp

; Convert JPG image to BMP image
_GDIPlus_Startup()
$hImage = _GDIPlus_ImageLoadFromFile($sFile)
$sCLSID = _GDIPlus_EncodersGetCLSID("BMP")
$sTemp = _Str_ChangeFileExt($sFile, ".bmp")
_GDIPlus_ImageSaveToFile($hImage, $sTemp)
_GDIPlus_ImageDispose($hImage)
_GDIPlus_Shutdown()

; Set wallpaper position
Switch $iPosition
Case 1; Tile
RegWrite('HKCUControl PanelDesktop', 'TileWallpaper' , 'reg_sz', '1')
RegWrite('HKCUControl PanelDesktop', 'WallpaperStyle', 'reg_sz', '0')
Case 2; Center
RegWrite('HKCUControl PanelDesktop', 'TileWallpaper' , 'reg_sz', '0')
RegWrite('HKCUControl PanelDesktop', 'WallpaperStyle', 'reg_sz', '0')
Case 3; Stretch
RegWrite('HKCUControl PanelDesktop', 'TileWallpaper' , 'reg_sz', '0')
RegWrite('HKCUControl PanelDesktop', 'WallpaperStyle', 'reg_sz', '2')
EndSwitch

; Set wallpaper
$tBuffer = DllStructCreate("char Text[" & StringLen($sTemp) + 1 & "]")
DllStructSetData($tBuffer, "Text", $sTemp)
_WinAPI_SystemParametersInfo($SPI_SETDESKWALLPAPER, 1, DllStructGetPtr($tBuffer), BitOR($SPIF_UPDATEINIFILE, $SPIF_SENDCHANGE))
EndFunc

Func _Str_ChangeFileExt($sFileName, $sExtension)
Local $iIndex

$iIndex = _Str_LastDelimiter(".:", $sFileName)
if ($iIndex = 0) or (StringMid($sFileName, $iIndex, 1) <> ".") then $iIndex = StringLen($sFileName) + 1
Return StringLeft($sFileName, $iIndex - 1) & $sExtension
EndFunc

Func _Str_LastDelimiter($sDelimiters, $sString)
Local $iI, $iN, $sDelimiter

for $iI = 1 to StringLen($sDelimiters)
$sDelimiter = StringMid($sDelimiters, $iI, 1)
$iN = StringInStr($sString, $sDelimiter, 0, -1)
if $iN > 0 then Return $iN
next
EndFunc