Программка меняющая десктоп через инет =(((((

[homA]

Как такую фичу реализовать, оооочень требуется..
Прога должна смотреть каждый день (в час ночи) файл http://www.site.ru/desktop.jpg и засылать этот JPG на рабочий стол.
Буду признателен за любую помощь!

ЗЫ. адрес сайта вымышлен )))))

[Snussi]

А в чем сложность?
1. Через инет контрол качаем этот файл во временную папочку.
2. Если он скачался - переписываем существующий desktop.jpg

Вот и все кажись. Кода от силы строк 50.

[FaKk2]

homA
Твоя задача разбивается на 3 части

1. Выждать часа ночи.
2. Загрузить картинку из Интернета.
2. Заменить картинку на декстопе.

Даю ключевые слова на поиск примеров

1. Time, Timer
2. Winsock, Webbrowser
3. Тут у меня подвернулся код:

Код: Выделить всё


'This project needs
'- a common dialog box
'  (To add the Common Dialog Box to your tools menu, go to Project->Components (or press CTRL-T)
'   and select Microsoft Common Dialog control)
'- a button
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_UPDATEINIFILE = &H1
Private Sub Command1_Click()
    'KPD-Team 1998
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    'Set the commondialogbox' title
    CDBox.DialogTitle = "Choose a bitmap"
    'Set the filter
    CDBox.Filter = "Windows Bitmaps (*.BMP)|*.bmp|All Files (*.*)|*.*"
    'Show the 'Open File'-dialog
    CDBox.ShowOpen
    'Change the desktop's background
    SystemParametersInfo SPI_SETDESKWALLPAPER, 0, CDBox.filename, SPIF_UPDATEINIFILE
End Sub
Private Sub Form_Load()
    Command1.Caption = "Set Wallpaper"
End Sub


[homA]

Биг спасибо, но можно более подробный код, если не сложно.

[FaKk2]

homA
Это тебе надо самому найти.
Прояви смекалку, либо жди у моря погоды.