Используем Active Desktop на 100%

Пользуетесь ли Вы такой возможностью Рабочего стола - как Active Desktop? Скорее всего нет, а даже если он и включен, то только для того, чтобы выводить в качестве обоев рисунок в формате отличном от bmp. Если на Вашем рабочем столе так много значков, что новые уже не помещаются, то Вы можете использовать в качестве фона своего рабочего стола Web-страницу инструкции, по созданию которой даны ниже, тем самым загрузив работой Active Desktop по полной программе. Это не только позволит сделать работу за компьютером более комфортной, но и добавит больше интерактивности Рабочему столу, а также даст толчок Вашей фантазии в дальнейшем развитии этой темы.

Итак, начнем:

1. Запустите Ваш любимый текстовый редактор.

2. Создайте новый документ.

3. Вставьте в него приведенный ниже код.

<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<META NAME="AUTHOR" Content="Tarasov Costja">
<TITLE>WebDesk</TITLE>
<SCRIPT ID=clientEventHandlersVBS LANGUAGE=vbscript>
<!--

Dim Iid
Sub bd_onload
	Iid=setInterval("bd_onclick",interval)
	bd_onclick
End Sub
Sub bd_onhelp
	Dim hs, NL, x
	NL = Chr(13) & Chr(10)
	hs = "Quick Desktop v1.1" & NL
	hs = hs & Chr(9) & "Author: Tarasov Costja"
	hs = hs & Chr(9) & "Click me to change my background."
	x = MsgBox(hs, 0, "About QuickDesktop")
End Sub
Sub bd_onunload
	clearInterval Iid
End Sub
Sub bd_onclick
	Randomize
	Const PicPath = "file://path\"
	Const PicLast = LastIndex
	ReDim PP(PicLast)
	PP(0)="picture0"
	PP(1)="picture1"
	PP(Index)="pictureN"
	...
	p=fix(rnd*PicLast*5)
	bd.background=PicPath+PP(p mod (PicLast+1))
	'bd.tracingsrc=PicPath+PP(p mod (PicLast+1))
End Sub

-->
</SCRIPT>
</HEAD>
<BODY id="bd" onclick="bd_onclick" onload="bd_onload"
onunload="bd_onunload" text="white" bgProperties=fixed leftMargin=0
topMargin =0 rightMargin=0 bottomMargin=0 vLink=fuchsia aLink=yellow
link=lime tracingsrc="file://DefaultBGpath" tracingopacity="50">
<TABLE>
  <TR> 
    <TD width=175 height=200>
      <A href="PathSys" target=BROWSE>Системные</A><BR>
      <A href="PathUtil" target=BROWSE>Программы</A><BR>
      <A href="PathGames" target=BROWSE>Игры</A><BR>
    </TD>
    <TD width=600><IFRAME NAME="BROWSE" SRC="PathSys" height=200
width=615 allowTransparency> 
      К сожалению ваш обозреватель не поддерживает плавающие
рамки.</IFRAME> 
    </TD>
  </TR>
</TABLE>
</BODY>
</HTML>

4. Создайте папки "Системные", "Программы" и "Игры", а затем перенесите в них соответствующие ярлыки с рабочего стола.

5. Замените ниже перечисленные выделенные в коде слова нужными Вам значениями:

interval - на интервал смены обоев рабочего стола в миллисекундах (1 секунда = 1000 миллисекунд)
path - на путь к обоям рабочего стола
LastIndex - на количество используемых обоев МИНУС один
Picture0, Picture1, PictureN - на имя файла (с расширением) обоев для рабочего стола
Index - на индекс обоев
... - на строки вида PP(индекс_обоев) = "имя_файла_обоев_(с_расширением)"
DefaultBGpath - на путь к обоям по умолчанию
PathSys - на путь к папке раздела "системные"
PathUtil - на путь к папке раздела "программы"
PathGames - на путь к папке раздела "игры"

5. Сохраните файл под любым именем, но обязательно с расширением .htm.

6. Щелкните правой кнопкой по пустому пространству рабочего стола.

7. В появившемся контекстном меню выберите пункт "Свойства".

8. Перейдите на вкладку "Веб" и убедитесь, что установлен флажок "Отображать веб-содержимое на рабочем столе".

9. Перейдите на вкладку "Фон" и щелкните по кнопке "Обзор".

10. Выберите сохраненный в пункте 5 файл и нажмите кнопку "Открыть".

11. Нажмите кнопку "Ok" в окне "Свойства: Экран".

12. Щелкните правой кнопкой по пустому пространству рабочего стола.

13. В появившемся контекстном меню снимите галочку "Отображать значки рабочего стола".

Панель инструментов, созданная из папки содержащей папки разделов, может заменить панель инструментов "Рабочий стол"

Если Вы хотите хранить такие обои в той же папке, что и папки разделов, то файл обоев должен быть скрытым. Это предотвратит появление файла обоев в меню панели инструментов.

Для удобства добавления ярлыков в созданные нами папки можно создать ярлыки на папки разделов в папке SendTo.

Комментарий от ведущего раздела: никто не мешает Вам разнообразить эту страницу различными скриптами. Так например я делал доступ к различным программам с помощью меню вверху экрана, добавлял календарь, часы, напоминалку и другие украшательства. Благо, различных скриптов на просторах интернет просто море и все ограничивается исключительно Вашей фантазией и желанием этим заниматься. Так что не держите приведенный выше шаблон страницы за догмат веры, а активно меняйте ее, настраивайте под себя, и у Вас получится очень удобный и функциональный Рабочий стол.

Tarasov Costja
http://webhowto.ru