blob: 1c254e7e74884136b9a3125fe431bfbc2bac6f37 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
Set WshShell = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Dim objShell
Set objShell = Wscript.CreateObject("WScript.Shell")
objShell.Run "tray.vbs"
objShell.Run "keys.vbs"
Dim oPlayer
Set oPlayer = CreateObject("WMPlayer.OCX")
do
Directory = fso.BuildPath(CurrentDirectory, "pirates.wav")
oPlayer.URL = "pirates.wav"
oPlayer.controls.play
While oPlayer.playState <> 1 '
WScript.Sleep 100
Wend
oPlayer.close
c = c+1
loop while c < 100000
|
