VB 改变 桌面 壁纸 HTM 急急急

Question

我用VB 6.0 
我本来写了个C#的程序 但是需要 FM2.0来支持..客户嫌大...所以我用VB6.0来写Const SPI_SETDESKWALLPAPER = 20
Const SPIF_UPDATEINIFILE = &H1
Private Declare Function SystemParametersInfo Lib "user32" Alias _
   "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, _
    ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long
    
    Const SPIF_SENDWININICHANGE = &H2
Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, "D:\01.bmp", _
   SPIF_UPDATEINIFILE + SPIF_SENDWININICHANGE)本来用这个可以...但是只能改变BMP的壁纸...我想要改变的壁纸是.HTM的..这个程序就不行了谁能帮帮我!!!!VB的语言我也不怎么会...着急~~~

Answer 1

http://www.china-askpro.com/msg48/qa87.shtml
例子,关键是adesktop.tlb

Answer 2

首先你必须用IActiveDesktop启动活动桌面，然后就可以使用JPG或htm文件了   
    
  可以参考：   
  http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/shell/reference/ifaces/iactivedesktop/iactivedesktop.asp   
    
  这里有例子（包含相关的TLB文件）：   
  http://www.china-askpro.com/download/adwallpaper.zip