Bing Fun Wallpaper

The Microsoft Bing search site has a great feature and a beautiful background image is changed every day.

For lazy people, if the desktop of their own computer can automatically change the daily wallpaper that is good.

So, theBing fun wallpaper comes.

The interface of the software is very simple, automatically download the wallpaper from Bing China, so the Chinese New Year will have some features of the picture.

The first version uses Windows Design, which looks ugly.

The second version features a Material design style.

Not much to say, on.

First edition:

Second Edition:

: Bing Fun Wallpaper

Click to get Fun wallpapers, you will generate wallpapers in the C:\BingWallpaper\ folder, and you can copy them to other devices.

Continue open Source:

' Copyright (c) 2014, Yantai University School of Computer ' all Gight reserved. ' File name: Temp.cpp ' Shao ' finish: December 20, 2014 ' version number: v3.0.2option explicitprivate 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 Longprivate Declare Function systemparametersinfo Lib "user32" Alias "SystemParametersInfoA "(ByVal uaction as Long, ByVal Uparam as Long, lpvparam as any, ByVal fuWinIni as Long) as Longprivate Const spi_setdeskw Allpaper = 20Private Const spif_updateinifile = &h1dim wallpaper as stringpublic Function DownloadFile (URL as String,   LocalFilename as String) as Boolean Dim lngretval as Long lngretval = Urldownloadtofile (0, URL, localfilename, 0, 0)  If lngretval = 0 Then DownloadFile = TrueEnd Functionprivate Sub Image1_click () End SubPrivate Sub Image2_click () Dim year, Month, day Dim name As String Dim q as Boolean Year = format (Date, "yyyy") month = Format (DaTE, "mm") Day = Format (Date, "dd") name = "C:\BingWallpaper\BingWallpaper" + year + "-" + month + "-" + day + ". jpg" If Dir ("C:\BingWallpaper", vbdirectory) = "Then ' determines if the folder exists MkDir (" C:\BingWallpaper ") ' Create folder End if ' MsgBox nam e q = DownloadFile ("http://cn.bing.com/hpwp/255ee0820925b9bdc7f23205cdc1d422", name) If Q then MsgBox "Get wallpaper success!" ",," state "End IfEnd SubPrivate Sub Image3_click () Dim t As Long Dim year, Month, day Dim name as String year = Format (Dat E, "yyyy") month = Format (date, "mm") Day = Format (date, "dd") name = "C:\BingWallpaper\BingWallpaper" + year + "-" + mont H + "-" + day + ". jpg" wallpaper = name If wallpaper = "and then Exit Sub t = SystemParametersInfo (ByVal spi_setdeskw Allpaper, True, ByVal wallpaper, spif_updateinifile) MsgBox "Change wallpaper success!" "," status "If t = 0 Then MousePointer = 0 MsgBox" error changing wallpaper.  (Error code: 0X80C05) "," state "Exit sub End IfEnd SubPrivate Sub Image4_click () If Dir (" C:\BingWallpaper ", vbdirectory) =" " Then ' Determine if the folder is storedIn MkDir ("C:\BingWallpaper") ' Create folder end Ifshell ' Explorer.exe ' "C:\BingWallpaper" "", Vbnormalfocus ' open the appropriate folder end SubPrivate Sub Image5_click () Form2.showend SubPrivate Sub Image6_click () EndEnd sub<strong></strong>

Bing Fun Wallpaper@ Mayuko

Bing Fun Wallpaper