如果知道一个网页里的图片的URL,用程序把它改为墙纸.

Question

如果知道一个网页里的图片的URL,用程序把它改为墙纸.
有这样的API吗?

Answer 1

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 SPI_SETDESKWALLPAPER = 20
Const SPIF_SENDWININICHANGE = &H2
Const SPIF_UPDATEINIFILE = &H1
Private Sub Command1_Click()
    re = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, "c:\Test.BMP", 0)
End Sub知道url 放到本地就可以的,用socket 或者inet等技术去下载

Answer 2

Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As String, ByVal fuWinIni As Long) As Long
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Const SPI_SETDESKWALLPAPER = 20
Const SPIF_UPDATEINIFILE = &H1
Const SPIF_SENDWININICHANGE = &H2Sub changewallpaper(ByVal url As String)
Dim tempfile As String
tempfile = "C:\" & Mid(url, InStrRev(url, "/") + 1)
URLDownloadToFile 0, url, tempfile, 0, 0
SystemParametersInfo SPI_SETDESKWALLPAPER, 0&, tempfile, SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE
Kill tempfile
End Sub

Answer 3

当下来,就好了
northwolves(狼行天下) 说完了

Answer 4

。能否让系统自动处理呢，直接设置图片的URL为臂纸。猜想而已。。

Answer 5

在windowsxp下,直接将URL图片保存为
Environ("userprofile") & "\Local Settings\Application Data\Microsoft\wallpaper1.bmp"就可以了

Answer 6

通过url下载是很容易的inet socket等都是可以的

Answer 7

用google baidu 搜索一大把