Encanto código

"Encanto..."

contribuição de Hélio Biagio

Credits:

° photos: send by OVNI (found for free, in the net)
° mid: "anangel" (found for free, in the net)
° text: Guacira Sampaio Rocha
° script author: unfortunatly I lost this information - could you help me?
° prepared, commented and posted (as it is in this page) by: OVNI and Helio Biagio

1) Dentro das tags "<body> </body>" coloque:

"<BODY bgColor=#ffffff>
<DIV> </DIV><BGSOUND balance=0
src="aqui o caminho do som" volume=0 loop=infinite>
<P dir=ltr style="MARGIN-RIGHT: 0px" align=center> </P>
<DIV id=sky
style="BORDER-RIGHT: 0px; BORDER-TOP: 0px; FILTER: BlendTrans(Duration=0.5); LEFT: 0px; BORDER-LEFT: 0px; WIDTH: 275px; BORDER-BOTTOM: 0px; POSITION: absolute; TOP: 20px; HEIGHT: 150px"><IMG
id=pi1 style="LEFT: 0px; VISIBILITY: hidden; POSITION: absolute; TOP: 0px"
src="aqui o caminho da primeira imagem de cima"> <IMG id=pi2
style="LEFT: 0px; VISIBILITY: hidden; POSITION: absolute; TOP: 0px"
src="aqui a segunda imagem"> <IMG id=pi3
style="LEFT: 0px; VISIBILITY: hidden; POSITION: absolute; TOP: 0px"
src="a terceira"> <IMG id=pi4
style="LEFT: 0px; VISIBILITY: hidden; POSITION: absolute; TOP: 0px"
src="a quarta"> </DIV>
<DIV id=water
style="BORDER-RIGHT: 0px; BORDER-TOP: 0px; FILTER: BlendTrans(Duration=0.5) wave(freq=20, strength=6, phase=0, lightstrength=0, add=1, enabled=1) flipv; LEFT: 0px; BORDER-LEFT: 0px; WIDTH: 275px; BORDER-BOTTOM: 0px; POSITION: absolute; TOP: 170px; HEIGHT: 150px"><IMG
id=pic1 style="LEFT: 0px; VISIBILITY: hidden; POSITION: absolute; TOP: 0px"
src="aqui a primeira imagem do efeito wave"> <IMG id=pic2
style="LEFT: 0px; VISIBILITY: hidden; POSITION: absolute; TOP: 0px"
src="aqui a segunda"> <IMG id=pic3
style="LEFT: 0px; VISIBILITY: hidden; POSITION: absolute; TOP: 0px"
src="aqui a terceira"> <IMG id=pic4
style="LEFT: 0px; VISIBILITY: hidden; POSITION: absolute; TOP: 0px"
src=" a quarta"> </DIV>
<SCRIPT language=VBScript>

Dim w, i1, i2, cnt, p1, p2, count, wav

Set w=document.all

' Initialize
sub setUp()
cnt=1
sky.filters(0).Apply()
pi1.style.visibility="visible" 'Display the first image
sky.filters(0).Play()
count=1
water.filters(0).Apply()
pic1.style.visibility="visible" 'Display the first image
water.filters(0).Play()
shimmer
SetTimeOut"showIt",10000 'Allow time for the filter to do the transition
end sub

sub shimmer()
wav = (wav + 5)
water.filters(1).phase = wav
SetTimeOut "shimmer()",1
end sub

sub showIt()
cnt=cnt+1 'Maximum cnt=Number_of_Images-1
if cnt<5 then
'Process all Images except the last to first transition here
Set i1=w("pi"&cnt-1) 'Select Images according to count
Set i2=w("pi"&cnt)
sky.filters(0).Apply() 'Prepare filter
i1.style.visibility="hidden" 'Hide previous Image
i2.style.visibility="visible" 'Display next Image
sky.filters(0).Play() 'Play filter
SetTimeOut"doIt",0 'Repeat after waiting for filter
else
'Go here to process the last Image to first image transition
cnt=1
sky.filters(0).Apply()
pi4.style.visibility="hidden"
pi1.style.visibility="visible"
sky.filters(0).Play()
SetTimeOut"doIt",0
end if
end sub

sub doIt()
count=count+1 'Maximum count=Number_of_Images-1
if count<5 then
'Process all Images except the last to first transition here
Set p1=w("pic"&count-1) 'Select Images according to count
Set p2=w("pic"&count)
water.filters(0).Apply() 'Prepare filter
p1.style.visibility="hidden" 'Hide previous Image
p2.style.visibility="visible" 'Display next Image
water.filters(0).Play() 'Play filter
SetTimeOut"showIt",10000 'Repeat after waiting for filter
else
'Go here to process the last Image to first image transition
count=1
water.filters(0).Apply()
pic4.style.visibility="hidden"
pic1.style.visibility="visible"
water.filters(0).Play()
SetTimeOut"showIt",10000
end if
end sub

' Everything starts here
sub Window_OnLoad()

SetTimeOut"setUp",100
end sub

</SCRIPT>

3) Fechar as tags </body> </html>

Atenção: não esqueça de desprezar todas as aspas que não estejam na cor branca.

Esse script pode perfeitamente ser copiado dentro da aba Origem de seu Outlook Express, e ser enviado, com fundo musical, como mensagem aos seus amigos.