Étape 4: Le Script !
Maintenant le moment tout le monde attend depuis :Assurez-vous que vous enregistrez le script comme quelque.vbs , sinon il ne fonctionnera pas correctement.
Option Explicit
Dim theRandom
Dim count
' Tirer un nombre au hasard, puis transformez-le en minutes
alors que (comte < 3)
theRandom = RandomValue()
Pause (theRandom * 60)
OpenCDRom
Count = count + 1
Wend
"Si vous souhaitez changer le" timing "du script, l’ubound est le montant le plus élevé du temps d’attente et le lbound est le plus bas.
« Chaque nombre changera en minutes, alors assurez-vous que vous ne convertissez pas vos modifications, ou bien vous pourriez attendre un certain temps
Fonction RandomValue()
Dim theRandom
Dim ubound
Dim lbound
UBound = 99
LBound = 20
Randomize
' NombrAl = Int ((LimiteSupérieure - lowerbound + 1) * Rnd + lowerbound)
theRandom = Int ((ubound - lbound + 1) * Rnd + lbound)
RandomValue = theRandom
End Function
"C’est où la magie opère, chargement des objets cd et l’ouverture de tous les lecteurs de cd
Void OpenCDRom
Dim oWMP
Dim colCDROMs
J’ai Dim
Set oWMP = CreateObject("WMPlayer.ocx.7")
Set colCDROMs = oWMP.cdromCollection
Si colCDROMs.Count > = 1 then
pour i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i). EJECT
Prochaine
End If
"Une petite pause pour obtenir le look « Hein? » hors d’eux
Pause (2)
Si colCDROMs.Count > = 1 then
pour i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i). EJECT
Prochaine
End If
Set colCDROMs = nothing
End Sub
Public void Pause(duration)
Dim courant
Courant = Timer
Faire jusqu'à Timer - courant > = durée
"DoEvents
Boucle
End Sub