泰安地图导航:请教高手!VB6中如何修改wma文件的标签信息?

来源:百度文库 编辑:杭州交通信息网 时间:2024/04/29 02:57:23
如题,我搜索到以下方法,

Private Sub Form_Load()
Dim i As Long
Dim oWMP As WindowsMediaPlayer
Dim oMedia As IWMPMedia3
Dim oPlaylist As IWMPPlaylist

Set oWMP = WindowsMediaPlayer1
Set oMedia = oWMP.newMedia("E:\music\test.wma")
Set oPlaylist = oWMP.playlistCollection.newPlaylist("我的列表")
oPlaylist.appendItem oMedia
Set oWMP.currentPlaylist = oPlaylist
With oMedia
'列出所有可用属性
For i = 0 To .attributeCount - 1
Debug.Print .getAttributeName(i)
Next
'设定属性 作者
Call .setItemInfo("Author", "超级绿豆")
End With

End Sub

媒体信息"Title"=媒体标题,"Author"=艺术家,"Copyright"=版权信息,"Description"=媒体内容描述,"Duration"=

上面的方法可以用,但是需要引用wmp,而且不能修改Copyright这样有保护的项

请问有没有其他的办法??

QQ22441980

Alignment---2-Center