VB音乐播放器制作问题

我是新手菜鸟，今天无聊做个音乐播放器
源码：Private Sub Command1_Click()
WindowsMediaPlayer1.URL = Text1.Text
End Sub
Private Sub Command2_Click()
End
End Sub Private Sub Command3_Click()
WindowsMediaPlayer1.Controls = pause
End Sub Private Sub List1_Click()
Select Case List1.ListIndex
Case 0
Text1.Text = "http://zhangmenshiting2.baidu.com/data2/music/918091/918091.mp3?xcode=8871e42efe1dce407637fd9107335d5f&mid=0.74399970340016"
Case 1
Text1.Text = "http://zhangmenshiting2.baidu.com/data2/music/7301045/7301045.mp3?xcode=f4410bdc0eb8c9d5b033f115eaff28df&mid=0.84169945840824"
Case 2
Text1.Text = "http://zhangmenshiting2.baidu.com/data2/music/7308150/7308150.mp3?xcode=c0dc08908a1d24233a905004ccbf3834&mid=0.21855864167616"
Case 3
Text1.Text = "http://zhangmenshiting2.baidu.com/data2/music/755835/755835.mp3?xcode=b4d55f67c07f520000f94af7f4eefafa&mid=0.94993775251717"
Case 4
Text1.Text = "http://zhangmenshiting2.baidu.com/data2/music/829260/829260.mp3?xcode=372867262e6e7a72a7d100c9b652dcea&mid=0.54823682559535"
Case 5
Text1.Text = "http://zhangmenshiting2.baidu.com/data2/music/1629499/1629499.mp3?xcode=68dba856c4b332d9674e52aa74965028&mid=0.84783266770502"
Case 6
Text1.Text = "http://zhangmenshiting2.baidu.com/data2/music/845503/845503.mp3?xcode=1f0d85d1675fecb659d39cf18b4d910d&mid=0.17573333903111"
Case 7
Text1.Text = "http://zhangmenshiting2.baidu.com/data2/music/842370/842370.mp3?xcode=9809a71a5ce1fe937e85deeab998d759&mid=0.86465045323435"
Case 8
Text1.Text = "http://zhangmenshiting2.baidu.com/data2/music/15363852/15363852.mp3?xcode=8c4ccd8d3783b7a9af56b6d72d12c4b0&mid=0.99581375389431"
Case 9
Text1.Text = "http://zhangmenshiting2.baidu.com/data2/music/5667841/5667841.mp3?xcode=8c4ccd8d3783b7a952f81344843b869a&mid=0.75098618811097"
End Select
End Sub Private Sub WindowsMediaPlayer1_Click() End Sub
可是歌曲找得百度音乐盒链接在变？还是怎么回事，本来可以播放，不过多久就不行了，显示“准备就绪”
高手指教