Shulou(Shulou.com)06/03 Report--

This article mainly introduces how to use VBS to achieve music playback, the text is very detailed, has a certain reference value, interested friends must read!

The first code will use the default mp3 file associated with the program, will appear music playback box

The code is as follows:

wscript.sleep 12000

set ws=createobject("wscript.shell")

ws.run "Brother are you tired.mp3"

The second code calls the WMPler.OCX plug-in, and the music playback box does not appear. If you want to close the music playback, you need to close the wscript.exe process in the process.

The code is as follows:

Dim wmp

Set wmp = CreateObject("WMPlayer.OCX")

wmp.URL = "Brother Zhang Mengmeng.mp3"

Do Until wmp.playState = 1

WScript.Sleep 1000

Loop

VBS Hide Play Music

The code is as follows:

set ws=createobject("wscript.shell")

ws.run "wmplayer.exe "&ws.currentdirectory&"\08.wma",0

ws.currentdirectory Get the local directory for vbs, this program needs to use wmplayer.exe player.

or

The code is as follows:

set ws=createobject("wscript.shell")

ws.run "wmplayer.exe E:\mp3\08.mp3",0

A good VBS player recommended

The code is as follows:

MsgBox "This is only a sample. It cannot play songs. You need to modify it yourself! Author: hindsight,"60," maniac homemade player "

Set Player = CreateObject("wmplayer.ocx")

do

i=inputbox ("Please enter the song number you want to select, press 0 to exit: "&vbCrlf&"1 >> Phoenix Legend "&vbCrlf&"2 >> Laugh Jianghu "&vbCrlf&"3 >> Han Jing-Don't hurt me with my love "&vbCrlf&"4 >> Xu Huixin-The taste of happiness "&vbCrlf&"5 > Kelly Chen-It's better to dance "&vbCrlf&"6 > FIR-Our love "&vbCrlf&"7 > East to East-Even crying is my fault "&vbCrlf&"8 >> Peici Wu-Tearful Decision","Music Player-hindsight","1")

if i=1 then

Player.url = "E:\music\Phoenix Legend.mp3"

elseif i=2 then

Player.url = "E:\music\Laughing Jianghu.mp3"

elseif i=3 then

Player.url = "E:\music\Han Jing-Don't hurt me with my love.mp3"

elseif i=4 then

Player.url = "E:\music\Xu Huixin-Taste of Happiness.wma"

elseif i=5 then

Player.url = "E:\music\not as good as dancing-Kelly Chen.mp3"

elseif i=6 then

Player.url = "E:\music\Feier Orchestra-Our Love.wma"

elseif i=7 then

Player.url = "E:\music\east to east-even crying is my fault.mp3"

elseif i=8 then

Player.url = "E:\music\tearful decision.mp3"

elseif i=0 then

exit do

end if

loop

Set Player=nothing

rem URL can be web or local! If it's a web script, it can be used anywhere.

Set Wshell=WScript.CreateObject("WScript.Shell")

If MsgBox("Go around my space? And dig for gold! ", vbYesNo + vbQuestion, "") = vbYes Then

Wshell.Run "http://user.qzone.qq.com/420123641"

End if

A simpler version of the above version.

The code is as follows:

Set Player = CreateObject("wmplayer.ocx")

strsong=inputbox ("Please input songs, such as F:\mp3\1.mp3; exit press cancel: " & vbCrlf & "Recursive traversal is also simple, too lazy to integrate" ,"vbs player","F:\! music\classic\piano\Strauss-"Blue Danube" waltz. mp3 ")

if strsong "" then

do

Player.url = strsong

strsong=inputbox ( "Playing ●●" & vbCrlf &"Please ● Don't close window" & vbCrlf & "You can also choose to play other"& vbCrlf & "Exit Press Cancel" & vbCrlf & " ,"vbs is playing ",strsong)

if strsong="" then exit do

loop

end if

Set Player=nothing

The above is "how to use VBS to achieve music playback" all the content of this article, thank you for reading! Hope to share the content to help everyone, more relevant knowledge, welcome to pay attention to the industry information channel!

Welcome to subscribe "Shulou Technology Information " to get latest news, interesting things and hot topics in the IT industry, and controls the hottest and latest Internet news, technology news and IT industry trends.