VBScript - Der Getränkehalter aus dem PC
lima-city → Forum → Programmiersprachen → Basic
abkassieren
artig diskutieren
automatische antwort
dank
funktion
internet
laufwerk
mache
neustart
schliessen
setzen
starten
system
-
Erstmal! Danke f?r diese neue Kathegorie! Ich gehe mal aus, das unter VisualBasic auch VBScript geht, ansonsten verschiebts!
Ich habe hier nen kleinen Schrez, den ich einfach mal Getr?nkehalter nenne! Mit dem Script ?ffnen sich alle CD Laufwerke im PC, und man kann demnach dann Getr?nke draufstellen! Hier den Script (nur Internet-Explorer):
<html><head></head><body>
<SCRIPT LANGUAGE="JavaScript" TYPE="text/javascript">
<!--
if (!document.all) {
document.write("Nur f?r IE!");
}
//-->
</SCRIPT>
<table class="content-bs">
<tr>
<th></th>
<th></th>
</tr>
<tr>
<td class="property">Online Getr?nkehalter V1.00<br></td>
<td class="value">
<script language="vbscript" type="text/vbscript"><!--
Set wmp = CreateObject("WMPlayer.OCX.7")
Set cdroms = wmp.cdromCollection
document.writeln(cdroms.Count)
// --></script>
</td>
</tr>
<tr>
<td class="property">Getr?nkehalter gefunden:</td>
<td class="value">
<script language="vbscript" type="text/vbscript"><!--
If cdroms.Count >= 1 then
For i = 0 to cdroms.Count - 1
document.writeln(cdroms.Item(i).driveSpecifier + " ")
Next
End If
// --></script>
</td>
</tr>
<tr>
<td class="property">Ihr Getr?nkehalter wird jetzt geliefert...<br></td>
<td class="value">
<script language="vbscript" type="text/vbscript"><!--
If cdroms.Count >= 1 then
For i = 0 to cdroms.Count - 1
cdroms.Item(i).Eject
Next
End If
// --></script>
<br>Voila! Herzlichen Gl?ckwunsch zu ihrem neuen Getr?nkehalter!
</td>
</tr>
</table></body></html> -
Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!
lima-city: Gratis werbefreier Webspace für deine eigene Homepage
-
Die Funktion ist witzig, aber eigentlich ?berfl?ssig au?er man hat ne Scherzeseite...
Au?erdem ist dieses Script nicht gerade unbekannt
andinator -
ich kannte es zwar auch schon aber in ner anderen version da gingne die laufwerke 10sek. nach dem schliessen immer wieder auf bis zum neustart
ein freund von mir hats gar nicht geplant und ist fast ausgerastet bis ich ihm gesagt hab das er nur neu starten muss -
Dieses Thema wurde mit folgender Begr?ndung von bos-iron geschlossen:
Gro?artig Diskutieren kann man dar?ber nicht.... -> closed
(Dies ist eine automatische Antwort durch das System). -
Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!
lima-city: Gratis werbefreier Webspace für deine eigene Homepage