|
|
<! 9) Achtergrond steeds veranderend van
kleur
Ga hierboven naar “bewerken” en kies voor “alles selecteren”. Terug “bewerken” en dan “kopieren”?. Open nu outlook express en neem “nieuw bericht”. Onderaan open je de “bron” en klik tussen </BODY><!</HTML>. <! Dat is daar waar de groene tekens staan en klik daarna met de rechtermuisknop. Kies nu voor “plakken” en onderaan op “voorbeeld”. Je ziet dat je mail klaar is behalve je tekst. Die kun je bewerken zoals aangegeven.>
<HEAD>
<META content="text/html; charset=iso-8859-1"
http-equiv=Content-Type>
<META content="MSHTML
5.00.2614.3500" name=GENERATOR>
</HEAD>
<BODY bgColor=#ffffff>
<DIV> </DIV>
<DIV style="FONT: 10pt
arial"><BR> </DIV>
<DIV
style="FONT: 10pt arial"> </DIV>
<DIV style="FONT: 10pt
arial"> </DIV><A <DIV><BGSOUND balance=0
src="e:(2).mid" volume=-80>
<DIV id=txt
style="HEIGHT: 206px; LEFT: 20px; POSITION: absolute; TOP: 20px;
WIDTH: 483px; Z-INDEX: 5">
<H2>Hallo , <BR></H2>
<H2>Als
test!!!<BR>een zeer leuk scriptje</H2>
<H2> </H2>
<H2>Dubbelklikken op
de tekst om hem te veranderen<BR></H2>
<H2>Groetjes van
Raymond </H2></DIV>
<SCRIPT language=VBScript>
Dim w,nx,ny
Set w=document.body
sub window_onload()
w.scroll="no"
w.bgcolor="#000000"
w.style.cursor="crosshair"
txt.style.visibility="visible"
Tar
end sub
sub Tar()
typeFond tr,tv,tb
for i=0 to 255 step 2
document.all("c"&i).bgColor="RGB("&aleat(tr,i)&","&aleat(tv,i)&","&aleat(tb,i)&")"
next
coulTxt
setTimeout "Tar()", 1000
end sub
'-------------degradage de fond
aléatoire-----------------------
'--------------65536 couleurs c'est
mieux-----------------------
randomize()
dim coul
fond
sub fond
typeFond tr,tv,tb
'----------------écriture du fond
document.write "<TABLE cellspacing=0
style='left=0; top=0%; POSITION: absolute; WIDTH: 105%; HEIGHT=120%; Z-INDEX:
-1'><TBODY>"
for i=0 to 255 step 2
document.write "<TD
id=c"&i&"
bgColor=RGB("&aleat(tr,i)&","&aleat(tv,i)&","&aleat(tb,i)&")></TD>"
next
document.write
"</TBODY></TABLE>"
coulTxt
end sub
'----------------choix du type de fond
sub typeFond(tr,tv,tb)
do
tr=int(Rnd()*5)
tv=int(Rnd()*5)
tb=int(Rnd()*5)
loop while tr=tv=tb or (tr<2 and tv<2 and
tb<2)
coul=0
end sub
function aleat(t,i)
select case t
case 0
aleat=0
case 1
aleat=255
case 2
aleat=i
case 3
aleat=255-i
case 4
aleat=abs(128-i)
end select
coul=coul+aleat
end function
'-----------adaptation couleur texte
foncé/sombre---------
sub coulTxt
if coul<=48896 then
txt.style.color="#FFFF00" else txt.style.color="#000000"
end sub
</SCRIPT>
<DIV></DIV></A></BODY>