I found some of this code off the internet (the VBS part and I don't know what to do with this error

Question

1.00/5 (1 vote)

See more:

I found some of this code:

@echo off
:top
SET /A RAND=%RANDOM% %%6
if %RAND%==1 set "file="%windir%\WinSxS\amd64_microsoft-windows-shell-sounds_31bf3856ad364e35_10.0.17134.1_none_fc93088a1eb3fd11\Windows Exclamation.wav""
if %RAND%==2 set "file="%windir%\WinSxS\amd64_microsoft-windows-shell-sounds_31bf3856ad364e35_10.0.17134.1_none_fc93088a1eb3fd11\tada.wav""
if %RAND%==3 set "file="%windir%\WinSxS\amd64_microsoft-windows-shell-sounds_31bf3856ad364e35_10.0.17134.1_none_fc93088a1eb3fd11\Windows Critical Stop.wav""
if %RAND%==4 set "file="%windir%\WinSxS\amd64_microsoft-windows-shell-sounds_31bf3856ad364e35_10.0.17134.1_none_fc93088a1eb3fd11\Windows Error.wav""
if %RAND%==5 set "file="%windir%\WinSxS\amd64_microsoft-windows-shell-sounds_31bf3856ad364e35_10.0.17134.1_none_fc93088a1eb3fd11\Windows Background.wav""
( echo Set Sound = CreateObject("WMPlayer.OCX.7"^) <------
  echo Sound.URL = "%file%" <------
  echo Sound.Controls.play <-----
  echo do while Sound.currentmedia.duration = 0 <-----
  echo wscript.sleep 100 <-----
  echo loop <-----
  echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000) >sound.vbs <-----
start /min sound.vbs <-----
ping localhost -n 1 >NUL
goto top
:End

The bits with the arrows is the bit I'm not sure about.
Here is my error.Here is a picture[^]

What I have tried:

Well... Nothing.. I don't know what to do.

Posted 23-Sep-18 4:47am

Member 13985992

Updated 23-Sep-18 6:30am

v2

Add a Solution

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Dave Kreskowiak · Accepted Answer · 2018-09-23T06:31:00

Solution 1

Your DOS batch file creates a .VBS file and puts a bit of code in it. Post the content of that sound.vbs file. I get the feeling the batch file part isn't written correctly and it's putting garbage code into the .VBS file.

Posted 23-Sep-18 6:31am

Dave Kreskowiak

Comments

Member 13985992 23-Sep-18 14:04pm

The batch part is the bit I made... But it said from my knowledge that this bit:
echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000) >sound.vbs
^
it thought it should be end of statement so just echo wscript.sleep

Dave Kreskowiak 23-Sep-18 15:02pm

Once again, look in sound.vbs and post that here. Hit the green "Improve question" link to get back into the editor and add the code.

I'm willing to bet what you think is in that file is not what you expect.

Dave Kreskowiak 23-Sep-18 15:23pm

In the picture you linked to, it's complaining about line 2.

Also, I don't know where you got this code from or what you expect it to do.

Member 13985992 24-Sep-18 2:43am

it was a stack overflow post: https://stackoverflow.com/questions/23313709/play-invisible-music-with-batch-file
here is what they gave the person:
@echo off
set "file=track12.mp3"
( echo Set Sound = CreateObject("WMPlayer.OCX.7"^)
echo Sound.URL = "%file%"
echo Sound.Controls.play
echo do while Sound.currentmedia.duration = 0
echo wscript.sleep 100
echo loop
echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000) >sound.vbs
start /min sound.vbs

Dave Kreskowiak 24-Sep-18 10:44am

OK, it's complaining about the line where you set the Sound.URL property. If your file path, set higher up in your batch file, has a single set of quotes around it, this isn't going to work. To put quotes in a string in VBScript requires line of code to look like this:

    String path = """C:\Program Files\Something"""

Two quote marks escape into a single quote mark in the resulting string. You end up with a string (with quotes) like this:

    "C:\Program Files\Something"

To get that same effect in your batch file, the Sound.URL line has to look like this:

    echo Sound.URL = ""%file%""

Member 13985992 24-Sep-18 13:02pm

OK. I ran the code but... Something else broke.
It was playing the sound great as I wanted it but, now it only plays the same sound once. I echoed the %RAND% var and it does come up with random numbers but also after that it says "Access Denied". Never get any look with this type a' thing... =-( (I've tried running as administrator but no luck.)

Dave Kreskowiak 24-Sep-18 16:52pm

You're really not doing any tests to find out how this code works.

The SET /A line near the top will generate 6 values: 0, 1, 2, 3, 4, and 5. What happens in your batch file code if 0 is set?

Also, why are you using a batch file to do this? Just write the code in VBScript and be done with it.

Member 13985992 25-Sep-18 2:11am

Because I CANNOT use vbscript it is my worst enemy.
But why does it play the same sound and say acsess denied? Also, do you have that folder?

Dave Kreskowiak 25-Sep-18 7:59am

It says access denied probably because the file is still locked from the previous play, which isn't done yet.

It's odd that you say VBScript is your worst enemy but it's the batch file that's causing all of your problems.