hta后缀文件能播放本机歌曲么,怎么写代码

经过多次测试 勉强完成

<script language=vbscript>

Set a = CreateObject("MediaPlayer.MediaPlayer")

a.Open "F:\音乐\我的心太乱 小刚.mp3"

</script>

再发个别人写的vbs 加上第一行 和 第四行 就能在虚指hta里用指誉大了唯竖

<script language=vbscript>

set player = createobject("wmplayer.ocx")

player.url = "F:\音乐\我的心太乱 小刚.mp3"

</script>

代码已写好，已实现你要的效果，代码较多，这里贴部分代码。

这里交流比较不便，我扣扣是10552，和88627

    <div id="wrap">

        <h2>请从列表中选择要执行的脚本</h2>

        <ul>

            <li>

                <input type="checkbox" id="item1">

                <label for="item1">这是第1个脚本</label>

            </li>

            <li>

                <input type="checkbox" id="item2">

                <label for="item2">这是第2个脚本</label>

            </li>

            <li>

                <input type="checkbox" id="item3" value="3.vbs">

                <label for="item3">这是第3个脚本</label>

            </li>

            <li>

                <input type="checkbox" id="item4">

                <label for="item4">这是第4个脚本</label>

            </li>

            <li>

         郑首       <input type="checkbox" id="item5" value="5.vbs">

                <label for="item5">这是第5个脚本</label>

  扰升          </li>

        </ul>

        <button id="btnGo" onclick="goScripts">执行选中的脚本</button>

    </div>

</body> Function goScripts()

    Dim dd, d

    Set dd = Self.document.getElementsByTagName("input")

    For Each d In dd

        If d.checked Then

            rPath = Split(Self.location.pathname,"\")

           rPath(UBound(rPath)) = d.value

           filePath = Join(rPath,"\")

         喊李数  

           runFile filePath

End If

    Next

End Function