DreamFlasher
New member
Hallo alle zusammen!
Ich hoffe ich werde jetzt nicht geköpft, weil ich ein VBScript gemacht habe, aber anders hab ichs nicht hinbekommen. Das Script soll alle Bilder eines Verzeichnisses in einen String einlesen, dann zufällig eine Datei auswählen und sie dann als Hintergrundbild der Webseite darstellen.
Ich würde ja hier nicht schreiben wenn es perfekt laufen würde...also es tut leider garnichts. Habt ihr ne Ahnung was noch verbessert werden müsste?
Vielen Dank
DreamFlasher
Ich hoffe ich werde jetzt nicht geköpft, weil ich ein VBScript gemacht habe, aber anders hab ichs nicht hinbekommen. Das Script soll alle Bilder eines Verzeichnisses in einen String einlesen, dann zufällig eine Datei auswählen und sie dann als Hintergrundbild der Webseite darstellen.
Code:
<html>
<head>
<title></title>
<script language="VBScript" type="text/vbscript">
<!--
Dim WshShell
Dim upperbound
Dim n
Dim fso, folder, filescollection, file
Dim regexp
Set regexp = New RegExp
Set WshShell = WScript.CreateObject("WScript.Shell")
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
FUNCTION rndWallpaper()
'Hier den Ordner angeben, der die Hintergrunddateien enthält.
if fso.FolderExists("D:\Dokumente\Bilder\Desktop\Wallpaper\scifi") Then
'Hier auch noch einmal den gleichen Ordner angeben.
Set folder = fso.GetFolder("D:\Dokumente\Bilder\Desktop\Wallpaper\scifi")
Set filescollection = folder.Files
Dim Files()
ReDim Files(filescollection.Count)
n = 0
For Each file In filescollection
regexp.Pattern = ".jpg$"
regexp.IgnoreCase = True
If regexp.test(file.Name) Then
Files(n) = file.Path
n = n + 1
End If
regexp.Pattern = ".bmp$"
If regexp.test(file.Name) Then
Files(n) = file.Path
n = n + 1
End If
regexp.Pattern = ".gif$"
If regexp.test(file.Name) Then
Files(n) = file.Path
n = n + 1
End If
Next
upperbound = n
Randomize
n = Int((upperbound + 1) * Rnd)
Else
MsgBox "This folder does not exist!"
End If
END FUNCTION
//-->
</script>
<noscript></noscript>
</head>
<body onLoad="rndWallpaper()" background="'Files(n)'">
</body>
</html>Ich würde ja hier nicht schreiben wenn es perfekt laufen würde...also es tut leider garnichts. Habt ihr ne Ahnung was noch verbessert werden müsste?
Vielen Dank
DreamFlasher
