Сборник статей по настройке Windows


Используем Active Desktop



Автор: Tarasov Costja


Пользуетесь ли Вы такой возможностью Рабочего стола - как 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>




Начало  Назад  Вперед



Книжный магазин