Delta Posted May 17, 2008 Share Posted May 17, 2008 They say necessity is the mother of all invention. I needed a way to relieve stress and this was the solution.There is only one video right now but there are three types of audio. I don't have a fireplace so I had to pull the video from the web and edit it to my needs. The audio are Shoutcast radio stations so every now and again you might hear ads. However the most important thing is that you relax, I know I am.expandcollapse popup#NoTrayIcon #cs ---------------------------------------------------------------------------- AutoIt Version: 3.2.11.1 (beta) Author: Deltaforce229 Script Function: Creates a relaxing screensaver. #ce ---------------------------------------------------------------------------- #include <_SS_UDF.au3> #include <GUIConstants.au3> $rss = "rss.ini" $fireplace = "\fireplace.swf" $VideoFile = IniRead($rss,"Settings","Video","Fireplace") $VideoFile = StringReplace($VideoFile, "Fireplace", $fireplace) $MusicUrl = IniRead($rss,"Settings","Music","Jazz") $MusicUrl = StringReplace($MusicUrl, "Jazz", "http://64.92.199.69:8240/") $MusicUrl = StringReplace($MusicUrl, "Classical", "http://72.13.81.178:9030/") $MusicUrl = StringReplace($MusicUrl, "Zen", "http://91.121.5.74:8800/") _SS_GUICreate() _SS_SetConfigLoop("_SSConfig"); _SS_SetMainLoop("_SSLoop"); _SS_Start() Func _SSLoop() ;Video FileInstall("C:\Dforce\autoit\RSS\fireplace.swf",@SystemDir&"\"&$fireplace,0) $Video = ObjCreate("ShockwaveFlash.ShockwaveFlash") GUICtrlCreateObj($Video, 0, 0, @DesktopWidth, @DesktopHeight) $Video.LoadMovie(0, @ScriptDir&$VideoFile) ;Audio $Music = ObjCreate("WMPlayer.OCX") $Music.URL = $MusicUrl $Music.controls.play() ;Loop Do If $_SS_IsPreview and not ProcessExists("rundll32.exe") Then ;Preview bug fix. Exit Endif Until _SS_ShouldExit() EndFunc Func _SSConfig() $ConfigGui = GUICreate("Configure Relaxing Screensaver",400,100) $SetVideo = GUICtrlCreateCombo("- Set Video -",10,10,380) GUICtrlSetData(-1,"Fireplace") $SetMusic = GUICtrlCreateCombo("- Set Music -",10,40,380) GUICtrlSetData(-1,"Jazz|Classical|Zen") $Save = GUICtrlCreateButton("Save Settings",10,70) GUISetState() While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE Exit Case $msg = $Save IniWrite($rss,"Settings","Video",GUICtrlRead($SetVideo)) IniWrite($rss,"Settings","Music",GUICtrlRead($SetMusic)) EndSelect Wend EndFuncScr file was over Autoit's posting limits so I had to upload it to Filefront.http://files.filefront.com/rssscr/;10250936;/fileinfo.html [size="1"]Please stop confusing "how to" with "how do"[/size] Link to comment Share on other sites More sharing options...
ACS Posted May 17, 2008 Share Posted May 17, 2008 Doesn't work for me; I don't see any video. Where's the SWF file? Link to comment Share on other sites More sharing options...
Delta Posted May 17, 2008 Author Share Posted May 17, 2008 Doesn't work for me; I don't see any video.Where's the SWF file?Scr file was over Autoit's posting limits so I had to upload it to Filefront.http://files.filefront.com/rssscr/;10250936;/fileinfo.html [size="1"]Please stop confusing "how to" with "how do"[/size] Link to comment Share on other sites More sharing options...
gseller Posted May 17, 2008 Share Posted May 17, 2008 Doesn't seem to know where to find _SS_UDF.au3 in 3.2.12.0... I like the fireplace.swf file tho, and the rss file that runs it. Nice music. Thanks Link to comment Share on other sites More sharing options...
Delta Posted May 17, 2008 Author Share Posted May 17, 2008 sorry you can get it here.http://www.autoitscript.com/forum/index.ph...;hl=screensaver [size="1"]Please stop confusing "how to" with "how do"[/size] Link to comment Share on other sites More sharing options...
gseller Posted May 17, 2008 Share Posted May 17, 2008 Cool, Got it thanx! Link to comment Share on other sites More sharing options...
ACS Posted May 30, 2008 Share Posted May 30, 2008 That's an SCR file. I'm looking for the SWF. The Flash animation. Link to comment Share on other sites More sharing options...
Delta Posted May 30, 2008 Author Share Posted May 30, 2008 ugh just gotta make things difficult. when you run the scr file the swf file will install in your system32 directory. maybe sometime saturday when im not busy i'll upload the swf file separate. [size="1"]Please stop confusing "how to" with "how do"[/size] Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now