Post your student desktop backgrounds

[gshaw]

Not quite, you are restricted on what resolutions you can sue, you cant use any old ones.

True, although what's there covers most bases

backgroundDefault.jpg
background768x1280.jpg  (0.6)
background900x1440.jpg  (0.625)
background960x1280.jpg  (0.75)
background1024x1280.jpg (0.8)
background1280x1024.jpg (1.25)
background1024x768.jpg  (1.33-)
background1280x960.jpg  (1.33-)
background1600x1200.jpg (1.33-)
background1440x900.jpg  (1.6)
background1920x1200.jpg (1.6)
background1280x768.jpg  (1.66-)
background1360x768.jpg  (1.770833-)

[edie209]

I use a VBS script that looks at the screen resolution then applies the correct sized wallpaper for the type of screen.

Funny just started looking at this today so is that script on here?

[FN-GM]

Funny just started looking at this today so is that script on here?

Here you go:

Set objWMIService = GetObject("Winmgmts:\\.\root\cimv2") 
Set objSh = CreateObject("Wscript.Shell")
Set colItems = objWMIService.ExecQuery("Select * From Win32_DesktopMonitor where DeviceID = 'DesktopMonitor1'",,0) 
For Each objItem in colItems 
    intHorizontal = objItem.ScreenWidth 
    intVertical = objItem.ScreenHeight 
Next

strResolution = CStr(intHorizontal) & " x " & CStr(intVertical)

Select Case strResolution
Case "1024 x 768"
        strWallpaperPath = "C:\folder\1024x768.jpg"
Case "1280 x 1024"
        strWallpaperPath = "C:\folder\1024x768.jpg"
Case "1440 x 900"
        strWallpaperPath = "C:\folder\1024x768.jpg"
Case "1920 x 1080"
        strWallpaperPath = "C:\folder\1024x768.jpg"
Case Else
End Select

'Set the reg value
objSh.RegWrite "HKCU\Control Panel\Desktop\Wallpaper", strWallpaperPath, "REG_SZ"

'Apply the change
objSh.Run "%windir%\System32\RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters", 0, False