3 Comments

1. dave | March 21, 2005 12:52 PM

   This looks like a ceiling to a cave or something.
   Enjoying the blog, well done :)

2. jk | March 21, 2005 2:48 PM

   Here's a small update to my script that sets the background as the daily travisruse picture. Again, open up notepad and copy this in, name it something like "ruse.vbs", save it, and set it to run on a schedule
   (Start->Programs->Accessories->System Tools->Scheduled Tasks)
   and you'll have a new background synced from the site every morning.

   ''''''''''''''''''''' begin ruse.vbs file ''''''''''''''''''''''''''''''''''''''''
   wallpaperFile="c:\wallpaper.jpg"
   Set Http = CreateObject("WinHttp.WinHttpRequest.5.1")
   Set WshShell = CreateObject("WScript.Shell")
   Http.Open "GET", "https://www.travisruse.com" : Http.Send
   GetURL = Http.ResponseText
   Set regexp = New RegExp
   regexp.Pattern = "<img class=""bodypic"" src=""([^""]*)"
   set matches = regexp.execute(GetUrl)
   image = matches(0).submatches(0)
   Http.Open "GET", image : Http.Send
   set oStream = createobject("adodb.stream")
   oStream.type = 1 : oStream.open
   oStream.write Http.responseBody
   oStream.savetofile wallpaperFile, 2
   WshShell.Exec("REG ADD ""HKCU\Control Panel\Desktop"" /v Wallpaper /t REG_SZ /d " + wallpaperFile + " /f")
   wshshell.Run "%SystemRoot%\System32\RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters", 1, True
   ''''''''''''''''''''''' end ruse.vbs file ''''''''''''''''''''''''''''

3. Zee | April 5, 2005 8:06 AM

   Fantastic, Fantastic!