Situatie
Cum putem asculta un fisier mp3 cu HTA si VBScript
Pasul 1
Copiem urmatorul cod intr-un editor de text:
<html>
<head>
<title>Start and Stop music</title>
<SCRIPT Language=”VBScript”>
Sub PlayMusic(LOC)
Call DisableButton1()
Dim STRHTML
STRHTML = “<br>”
STRHTML = STRHTML & “<bgsound src=”& loc &” loop=””infinite””>”
MyMusic.InnerHTML = STRHTML
End Sub
‘******************************************
Sub DisableButton1()
button1.disabled = True
button2.disabled = False
End Sub
‘******************************************
Sub DisableButton2()
button2.disabled = True
button1.disabled = False
End Sub
‘******************************************
Sub StopMusic()
Call DisableButton2()
MyMusic.InnerHTML = “”
End Sub
‘******************************************
</SCRIPT>
</head>
<body>
<input type=”button” name=”button1″ value=”Start the Music” onclick=’PlayMusic(“E:\Users\Desktop\a.mp3″)’>
<input type=”button” name=”button2″ value=”Stop the Music” onclick=”StopMusic()”>
<span id =”MyMusic”></span>
</body>
</html>
Pasul 2
Modificam calea catre mp3 (E:\Users\Desktop\a.mp3)
Pasul 3
Salvam fisierul cu numele dorit si extensia .hta
Leave A Comment?