|
|
<!
Ga hierboven naar "bewerken" en kies voor "alles selecteren". Terug "bewerken" en dan "kopiëren"?. Open nu outlook express en neem "nieuw bericht". Onderaan open je de "bron" en klik onderaan tussen </BODY><!</HTML> <! Dat is daar waar het 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 foto's en tekst. De tekst kun je in de stand "bewerken", of zie rode tekst hieronder, aan passen en de foto's moet je in de "bron" vervangen. En dat 3 maal, zie het blauwe deel: <IMG id=pic1 src=" draaiscript_bestanden/……...gif “>
<HEAD>
<META
content=text/html;charset=iso-8859-1
http-equiv=Content-Type>
<META
content="MSHTML 5.00.2614.3500" name=GENERATOR>
<META
content="MSHTML 5.00.2314.1000" name=GENERATOR>
<META
content="MSHTML 5.00.2314.1000" name=GENERATOR>
<STYLE></STYLE>
<META
content="MSHTML 5.00.2314.1000" name=GENERATOR>
<META
content="MSHTML 5.00.2314.1000" name=GENERATOR>
<META
content="MSHTML 5.00.2314.1000" name=GENERATOR>
<META
content="MSHTML 5.00.2314.1000" name=GENERATOR>
<META
content="MSHTML 5.00.2614.3500" name=GENERATOR>
<META
content="MSHTML 5.00.2614.3500" name=GENERATOR>
<META
content="MSHTML 5.00.2614.3500" name=GENERATOR>
<META
content="MSHTML 5.00.2614.3500" name=GENERATOR>
<META
content="MSHTML 5.00.2614.3500" name=GENERATOR>
<META
content="MSHTML 5.00.2614.3500" name=GENERATOR>
<META
content="MSHTML 5.00.2614.3500" name=GENERATOR>
<META
content="MSHTML 5.00.2614.3500" name=GENERATOR>
<META
content="MSHTML 5.00.2614.3500" name=GENERATOR>
<META
content="MSHTML 5.00.2614.3500"
name=GENERATOR></HEAD>
<BODY
bgColor=#00ffff>
<DIV><FONT color=#000080
face=Eurostile><STRONG>Hallo</STRONG></FONT></DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV> tekst</DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV> </DIV><BGSOUND
balance=0 loop=99 src="" volume=0>
<DIV><FONT color=#000080
face=Eurostile><STRONG>Groetjes</STRONG></FONT></DIV>
<BLOCKQUOTE
style="BORDER-LEFT: #000080 0px solid;
MARGIN-LEFT: 5px; MARGIN-RIGHT: 0px; PADDING-LEFT: 5px; PADDING-RIGHT:
0px">
<DIV style="FONT: 10pt
arial"> </DIV>
<DIV><BR></DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV><BR></DIV>
<DIV> </DIV>
<P><IMG
height=32 id=pic0 src="draaiscript_bestanden/smile1.gif"
style="LEFT: -200px; POSITION: absolute;
TOP: 0px" width=32> <IMG height=50
id=pic1 src="draaiscript_bestanden/smile2.gif"
style="LEFT: -200px; POSITION: absolute;
TOP: 0px" width=50> <IMG height=32
id=pic2 src="draaiscript_bestanden/smile1.gif"
style="LEFT: -200px; POSITION: absolute;
TOP: 0px" width=32> <IMG height=32
id=pic3 src="draaiscript_bestanden/smile2.gif"
style="LEFT: -200px; POSITION: absolute;
TOP: 0px" width=32> <IMG height=46
id=pic4 src="draaiscript_bestanden/smile3.gif"
style="LEFT: -200px; POSITION: absolute;
TOP: 0px" width=50> <IMG height=44
id=pic5 src="draaiscript_bestanden/smile1.gif"
style="LEFT: -200px; POSITION: absolute;
TOP: 0px" width=42> <IMG height=48
id=pic6 src="draaiscript_bestanden/smile3.gif"
style="LEFT: -200px; POSITION: absolute;
TOP: 0px" width=48> <IMG height=34
id=pic7 src="draaiscript_bestanden/smile2.gif"
style="LEFT: -200px; POSITION: absolute;
TOP: 0px" width=35> <IMG height=65
id=pic8 src="draaiscript_bestanden/smile1.gif"
style="LEFT: -200px; POSITION: absolute;
TOP: 0px" width=65> <IMG height=108
id=pic9 src="draaiscript_bestanden/smile3.gif"
style="LEFT: -200px; POSITION: absolute;
TOP: 0px" width=105>
<SCRIPT
language=VBSCRIPT>
'
IMPORTANT: Value in brackets for the arrays below taken from last image
number.
Dim w, wW,
wH, an(9), x(9), y(9), ox(9), oy(9), c(9), cW, cH, sL, sT, numPics,
capture
Set
w=document.body
'
Initialize
sub
setUp()
'
Get window dimensions
cW=w.clientWidth
cH=w.clientHeight
sL=w.scrollLeft
sT=w.scrollTop
capture=153
'
IMPORTANT: Enter number of last image here
numPics=9
for
i=0 to numPics
randomize
c(i)=0
' Number of pixels to move image per step
ox(i)=4
oy(i)=-4
' Initial coordinates
an(i)=3.14159-i
x(i)=Int(SIN(an(i))* 50)+70
y(i)=Int(COS(an(i))* 50)+70
document.all("pic"&i).style.top=y(i)
document.all("pic"&i).style.left=x(i)
next
'
start bouncing
bnce
end
sub
sub
bnce()
ClearTimeOut(myTimer)
' VBScript version of
bounce routine
'
Loop for each object
for
i=0 to numPics
if c(i)=1 then
if x(i)<50 and y(i)<50 then
c(i)=0
ox(i)=4
oy(i)=-4
end if
p="pic"&i
Set bal=document.all(p)
' Increment position
x(i)=x(i)+ox(i)
y(i)=y(i)+oy(i)
' Check for walls on right or left
if (x(i) + bal.offsetWidth > cW + sL) OR (x(i) <= sL)
then
ox(i)=-ox(i)
if (x(i) < sL) then x(i) = sL
if (x(i) + bal.width > cW + sL) then x(i) = cW - bal.offsetWidth +
sL
end if
' Check for walls on bottom or top
if
(y(i) + bal.offsetHeight > cH + sT) OR (y(i) <= sT+R)
then
oy(i)=-oy(i)
if (y(i) < sT+R) then y(i) = sT+R
if (y(i) + bal.offsetHeight > cH + sT) then y(i) = cH -
bal.offsetHeight + sT
end if
' Position object
bal.style.posTop = y(i)
bal.style.posLeft = x(i)
else
an(i)=an(i)-.1
x(i)=Int(SIN(an(i))* 50)+70+sL
y(i)=Int(COS(an(i))* 50)+70+sT
document.all("pic"&i).style.top=y(i)
document.all("pic"&i).style.left=x(i)
sw=INT(rnd*1000)
if sw mod 333 = 0 then c(i)=1
end if
next
'
Repeat. If bounce is too fast, increase the number
' in
the line below from the default value of 2.
myTimer=SetTimeOut("bnce",2)
end
sub
' This sub
starts the action as soon as the message is received.
sub
window_OnLoad()
setUp
end
sub
' In case
window is re-sized
sub
window_OnResize()
setUp
end
sub
' In case
text is scrolled this keeps the bouncing inside the
window.
sub
window_OnScroll()
sL=w.scrollLeft
sT=w.scrollTop
end
sub
</SCRIPT>
</P></BLOCKQUOTE></BODY>