桌面背景问题

cj4025

;修改桌面背景05/31/03/30
$i_server = IniRead("SerVer.InI","Wallpaper","path","")
$Wallpaperinstall=IniRead("SerVer.InI","Wallpaper","install","")
If $Wallpaperinstall=1 Then
$Wallpaper = IniRead(@ScriptDir & "\SerVer.InI", "Wallpaper", "Name", "")
$SerWallpaper=""&$i_server&"\"&$Wallpaper&"\"
FileCopy($SerWallpaper,@WindowsDir & "\Www_Xj58Lm_Cn.bmp",1)
RegWrite("HKEY_CURRENT_USER\Control Panel\Desktop","TileWallpaper","REG_SZ",0)
RegWrite("HKEY_CURRENT_USER\Control Panel\Desktop","Wallpaper","REG_SZ",@WindowsDir & "\Www_Xj58Lm_Cn.bmp")
sleep(2000)
RunWait("RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters", "", @SW_HIDE)
; 执行完成报警05/31/03/30
Beep(4000,300) 
EndIf

;以下是配置文件信息
[Wallpaper]
path=\\192.168.0.242\Server
install=1
Name=56.bmp

以上是桌面背景设置BMP文件的方式，请问那位大哥能写出支持所有图片格式（jpg、gif、html）的桌面背景

请那位大哥帮帮忙。

[ 本帖最后由 cj4025 于 2008-6-25 01:28 编辑 ]

kakinkgb

看这个帖子吧,都说了
http://www.autoitx.com/forum.php ... &extra=page%3D2