Hey HOL,
Mig og min ven læste for nylig en tråd angående pranks. Vi kom frem til en prank med et CD-drev som åbner af sig selv. Vi har valgt at skrive det i VBScript, men vi ramte et problem, da vi ville have det til at køre Chrome sammen med vores VBScript. Her er koden:
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
do
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If
wscript.sleep 5000
Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.Run "C:\Users\Simon\AppData\Local\Google\Chrome\Appli-
cation\chrome.exe"
loop
Vi skal have dette stykke til at køre udenfor loopet (dvs. 1 gang når programmet starter, men ikke mere end det).
Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.Run "C:\Users\Simon\AppData\Local\Google\Chrome\Appli-
cation\chrome.exe"
Tak på forhånd
Simon Vu og Alexander Ginger
PS. vi havde tænkt på at bruge en simpel batch-fil til at køre VBScript og chrome ved siden af, men det er ikke særlig elegant med CMD.
--
For at opnå noget i denne verden skal man bare overbevise andre om at man har ret.