Конференция VBStreets

**SeT** » 15.12.2005 (Чт) 18:01

Охота написать программу, которая меняла бы обои. И у меня 2 вопроса. Как обоину поставить дефолтовой, как сделать, чтобы фон сменился.

**keks-n** » 15.12.2005 (Чт) 18:41

См. статью на www.vbstreets.ru "Пишем программу для смены обоев Windows"

**SeT** » 16.12.2005 (Пт) 12:35

Мдааа. А никак попроще нельзя? Ато батники писать... И нужно, чтобы обои были в jpg формате

**AndreyIl** » 20.12.2005 (Вт) 10:57

Изменяешь ключи реестра Wallpaper в соответствующих разделах и обновляешь рабочий стол.

**SeT** » 20.12.2005 (Вт) 15:52

Такс... С реестром всё понятно. сделано. Как обновить рабочий стол?

**keks-n** » 20.12.2005 (Вт) 15:53

Шли ему F5!

**SeT** » 21.12.2005 (Ср) 10:59

Это понятно. А как?

**SeT** » 21.12.2005 (Ср) 15:23

Я так понял, что сначала нужно установить фокус на рабочий стол, программно нажать f5, затем возвратить фокус на исходное приложение. Я прав? Если прав, то КАК ЭТО СДЕЛАТЬ?

**AndreyIl** » 21.12.2005 (Ср) 15:33

Private Declare Sub keybd_event Lib "user32" Alias "keybd_event" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

**SeT** » 21.12.2005 (Ср) 15:48

А расписать функцию можешь? Что за что отвечает...

**keks-n** » 21.12.2005 (Ср) 16:10

А SendKeys чем не устраивает?

**SeT** » 21.12.2005 (Ср) 16:57

Да меня хоть чё устроит. Вы мне просто поподробнее напишите.

**keks-n** » 21.12.2005 (Ср) 17:10

SendKeys "{F5}"

**SeT** » 21.12.2005 (Ср) 17:57

Чё-то не прокатывает

**AndreyIl** » 22.12.2005 (Чт) 9:15

Сначала установи фокус на рабочий стол, а потом шли Ф5.

**SeT** » 22.12.2005 (Чт) 14:39

А как фокус устпновить... Я в ручную на раюочем столе F5 жму, обновление не происходит (вернее обоина не меняется, хотя значения уже другие)

**keks-n** » 22.12.2005 (Чт) 15:40

Значит неправильно меняешь, т. к. при нажатии F5 он должен отрисовать новую.

**SeT** » 23.12.2005 (Пт) 12:08

Меняю правильно. При перезагрузке выдаётся чистый стол (так и надо, я несуществующую обоину потому что указываю), но при F5 ОБОИНА НЕ МЕНЯЕТСЯ!

**Akella** » 23.12.2005 (Пт) 14:11

http://bbs.vbstreets.ru/viewtopic.php?t ... highlight=

**SeT** » 24.12.2005 (Сб) 14:37

Нафига мне EXE-шник! Мне исходник нужен. Причём не всё, а только касающееся обновления рабочего стола

**GRS** » 24.12.2005 (Сб) 15:10

Попробуй это:

Код: Выделить всё: Private Const SPI_SETDESKWALLPAPER = 20 Private Const SPIF_SENDWININICHANGE = &H2 Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long Private Sub Command1_Click() tmp = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, Null, SPIF_SENDWININICHANGE) End Sub

Только вместо Command1_Click свое событие вставляй...

**SeT** » 26.12.2005 (Пн) 17:41

Та-а-ак. Разобрался. теперь обоина нормально ставится, обновляется. Теперь вот какой вопрос. Я хочу, чтобы например обоина менялась через 5 часов. Как это сделать, если у таймера максимум 32 секунды (потому что Integer)?

**keks-n** » 26.12.2005 (Пн) 18:05

Я где -то выкладывал свой таймер, так ему пофиг было какой интервал, поищи по форуму.

**Odrick** » 26.12.2005 (Пн) 18:22

Ставь таймер, скажем, на 10 секунд. По таймеру делай прирост какого-нить счетчика (хоть double). При достижении определенного значения делай что хош (меняй обои). И счетчик сбрасывай в 0. Азы...

**keks-n** » 26.12.2005 (Пн) 19:11

Вот он таймер http://bbs.vbstreets.ru/download.php?id=3354

Конференция VBStreets

Смена обоев

Смена обоев

Кто сейчас на конференции