用vbs代码写一个mp3播放器

以下是一个简单的VBScript代码示例，用于创建一个基本的MP3播放器：

Option Explicit

Dim objMediaPlayer

Sub PlayMP3(mp3File)
    Set objMediaPlayer = CreateObject("WMPlayer.OCX")
    objMediaPlayer.URL = mp3File
    objMediaPlayer.controls.play
    Do Until objMediaPlayer.playState = 1
        WScript.Sleep 100
    Loop
End Sub

Sub StopPlayback()
    If Not objMediaPlayer Is Nothing Then
        objMediaPlayer.controls.stop
        Set objMediaPlayer = Nothing
    End If
End Sub

Dim mp3FilePath
mp3FilePath = "C:\path\to\your\mp3\file.mp3"

PlayMP3 mp3FilePath

WScript.Sleep 5000 ' 播放 5 秒钟

StopPlayback

你需要将 mp3FilePath 变量的值更改为你要播放的MP3文件的实际路径。然后，运行这个VBScript代码，它将使用Windows Media Player组件播放指定的MP3文件。播放时间为5秒钟，然后停止播放。

请注意，这只是一个简单的示例，可以根据你的需要进行修改和扩展。例如，你可以添加其他控制按钮（如暂停、下一首、上一首等），或者创建一个用户界面来选择和播放不同的MP3文件