nicht angemeldet
Hallo Forumsteilnehmer!
Ich bin neu auf dem Gebiet VBScript, aber kann mir einer von Euch vielleicht sagen, warum mein Browser abstürzt, wenn ich das Script ausführe?
Achja, das Quellcodebeispiel ist aus der MSDN (April 2002), deswegen auch teilweise die englischen "Remarks".
Dieses Script soll angeblich Text-Objekte zufällig durchlaufen. Es ist als Übung für ActiveX Timer Control gedacht, aber wie soll ich üben, wenn mein IE 6.0 andauernd abschmiert?
Bloß komisch, daß Microsoft VBScript Beispiele einfügt, die dann gar nicht funktionieren...
Danke für die Hilfe...
Sir Fart-A-Lot
+++
Hier die HTML-Datei:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Absturz, aber warum?</title>
</head>
<body>
<OBJECT ID="txtFactoid" WIDTH=130 HEIGHT=130 CLASSID="CLSID:8BD21D10-EC42-11CE-9E0D-00AA006002F3">
<PARAM NAME="VariousPropertyBits" VALUE="-1400879085">
<PARAM NAME="ScrollBars" VALUE="2">
<PARAM NAME="Size" VALUE="6350;3457">
<PARAM NAME="SpecialEffect" VALUE="0">
<PARAM NAME="FontName" VALUE="Garamond">
<PARAM NAME="FontCharSet" VALUE="0">
<PARAM NAME="FontPitchAndFamily" VALUE="2">
<PARAM NAME="FontWeight" VALUE="0">
<PARAM NAME="FontHeight" VALUE="200">
</OBJECT>
<OBJECT ID="tmrFactoid" WIDTH=0 HEIGHT=0 CLASSID="CLSID:59CCB4A0-727D-11CF-AC36-00AA00A47DD2">
<PARAM NAME="Interval" VALUE="2000">
</OBJECT>
<SCRIPT LANGUAGE="VBScript" type="text/vbscript">
<!--
dim strFactoids(14)
strFactoids(0) = "Scientists have"
strFactoids(1) = "two"
strFactoids(2) = "cocks"
strFactoids(3) = "but"
strFactoids(4) = "only"
strFactoids(5) = "one"
strFactoids(6) = "ball"
strFactoids(7) = "and"
strFactoids(8) = "no"
strFactoids(9) = "brain"
strFactoids(10) = "because"
strFactoids(11) = "they"
strFactoids(12) = "are"
strFactoids(13) = "genetically altered."
strFactoids(14) = "By the way: Jojoba, a shrub related to boxwood…"
sub Window_Onload()
'Init random number sequence
Randomize
'Set inital value of txtFactoid
Call SetFactoid
end sub
Sub tmrFactoid_Timer()
Call SetFactoid
end sub
Sub SetFactoid()
txtFactoid.Locked = False
txtFactoid.Value = strFactoids(Int((UBound(strFactoids) + 1) * Rnd))
end sub
//-->
</script>
</body>
</html>