5953
夜月琉璃:表24 填充数据 域名称 数据类型 大小(字节)
----------------------------
对象ID GUID 16
对象大小 QWORD 8
填充数据 BYTE 不定
---------------------------- 说明:对象ID固定为 74 D4 06 18 DF CA 09 45 A4 BA 9A AB CB 96 AA E8。三、实例 1.《大家一起喜洋洋》歌曲的头对象部分数据 -----------------------------------------------------
000: 30 26 B2 75 8E 66 CF 11 A6 D9 00 AA 00 62 CE 6C
010: 16 24 00 00 00 00 00 00 07 00 00 00 01 02 33 26
020: B2 75 8E 66 CF 11 A6 D9 00 AA 00 62 CE 6C 94 00
030: 00 00 00 00 00 00 1C 00 10 00 14 00 32 00 00 00
040: 27 59 B6 5B 00 4E 77 8D 9C 55 8A 7F 8A 7F 20 00
050: 2D 00 20 00 68 54 14 7B 45 75 00 00 9C 55 8A 7F
060: 8A 7F 0E 4E 70 70 2A 59 FC 72 00 00 48 72 43 67
070: 52 5F 31 55 47 72 6C 51 F8 53 40 62 09 67 00 00
080: 35 00 32 00 30 00 6D 00 75 00 73 00 69 00 63 00
090: 2E 00 63 00 6F 00 6D 00 D0 63 92 91 A8 60 2D 8D
0A0: 70 4E D8 9A F3 97 28 8D 63 6B 48 72 43 00 44 00
0B0: 00 00
----------------------------------------------------- 2.简要分析: 000-00F:WmaID 010-017:头对象长度=&H2416,也是数据对象起始偏移量 018-01B:=7,有7个子头对象(本文件中的标准标签对象是第1个) 01C-01D:=01 02,保留字节 01E-0B1:标准标签对象 01E-02D:标准标签对象ID 02E-035:=94,标签长度为148字节 036-037:=1C,标题项长度为28字节 038-039:=10,艺术家项长度为16字节 03A-03B:=14,版权项长度为20字节 03C-03D:=32,注释项长度为50字节 03E-03F:=0,比率项长度为0,也就是说,没有比率项 040-05B:标题项:大家一起喜羊羊-周笔畅(Unicode字符) 05C-06B:艺术家项:喜羊羊与灰太狼(Unicode字符) 06C-07F:版权项:版权归唱片公司所有(Unicode字符) 080-0B1:注释项:520music.com提醒您购买高音质正版CD(Unicode字符)四、获取标准标签内容的代码 在窗体上添加1个按纽、4个文本框,将文本框设置成控件数组。Option Explicit
Private Type LContent
ObjectSize As Long '对象大小
vain As Long '4个空字节
LTitle As Integer '标题项长度
LAuthor As Integer '艺员项长度
LCopyright As Integer '版权项长度
LPostil As Integer '注释项长度
LRating As Integer '比率项长度
End Type
Private Sub Command1_Click()
On Error GoTo 100
Dim Ltag As LContent
Dim i As Integer, k As Long, st As String, OpenName As String
Dim ObjectID(15) As Byte, tem() As Byte, wmaData() As Byte
OpenName = "D:\儿童歌曲\大家一起喜洋洋.wma" '全路径歌曲名
Me.Caption = OpenName
st = "3326B2758E66CF11A6D900AA0062CE6C" '标准标签对象ID
For i = 0 To 15: ObjectID(i) = Val("&H" & Mid(st, i * 2 + 1, 2)): Next
Open OpenName For Binary As #1
ReDim wmaData(LOF(1) - 1)
Get #1, , wmaData
k = InStrB(wmaData, ObjectID)
If k > 0 Then '如果有标准标签
ReDim wmaData(0)
k = k + 16
Get #1, k, Ltag
k = k + 18
If Ltag.LTitle > 3 Then
ReDim tem(Ltag.LTitle - 3)
Get #1, k, tem
st = tem: Text1(0) = st
End If
k = k + Ltag.LTitle
If Ltag.LAuthor > 3 Then
ReDim tem(Ltag.LAuthor - 3)
Get #1, k, tem
st = tem: Text1(1) = st
End If
k = k + Ltag.LAuthor
If Ltag.LCopyright > 3 Then
ReDim tem(Ltag.LCopyright - 3)
Get #1, k, tem
st = tem: Text1(2) = st
End If
k = k + Ltag.LCopyright
If Ltag.LPostil > 3 Then
ReDim tem(Ltag.LPostil - 3)
Get #1, k, tem
st = tem: Text1(3) = st
End If
End If
100
Close #1
End Sub 附:在很多WMA文件中都有下面的对象ID,但笔者不知道与它们对应的头对象的名称以及用途,如哪位 朋友知道,请不吝赐教。 CE 75 F8 7B 8D 46 D1 11 8D 82 00 60 97 C9 A2 B2(对象大小32字节)
A9 46 43 7C E0 EF FC 4B B2 29 39 3E DE 41 5C 85
5D 8B F1 26 84 45 EC 47 9F 5F 0E 65 1F 04 52 C9
EA CB F8 C5 AF 5B 77 48 84 67 AA 8C 44 FA 4C CA
7905
夜月琉璃:当前版本号:V1.2 文件名称:J:\编程区\系统编程\系统数据\工具盘\Source工具盘V1.3.iso
文件大小:1167532032 字节
修改时间:2014年12月7日 20:40:36
MD5 :9C56685EBFDE752087CEA0A0940F20EC
SHA1 :A6F77117E40E714880A76DF0F07063A81C8B7290
CRC32 :9F974264下一版本号:V1.3 计划更新项目:1.移除Win8 PE中无法使用的两款软件 2.新增Win 8 64位PE 3.增加EZboot方式启动下载地址:V1.2正式版:百度网盘V1.3测试版:百度网盘
11351
夜月琉璃:Windows 7 SP1 64位纯净版 系列:简系列 文件大小: GHO:3.10 GB
ISO:3.55 GB 文件校验信息: GHO文件:
文件名称:J:\系统光盘\64WIN7.GHO
文件大小:3331022861 字节
修改时间:2016年4月14日 22:55:38
MD5 :58A55431F802151E9C7A8F4E2A0D97EC
SHA1 :7BE3932FE204610AD916301504234F6E5807F95E
CRC32 :6619CC78 ======================================================== ISO镜像:
文件名称:J:\系统光盘\Source Win7 64位纯净版.iso
文件大小:3815712768 字节
修改时间:2016年4月16日 17:43:43
MD5 :8DEA6824EE44D30287DA6FB5180C4BC2
SHA1 :958881DF46FE99B708AAF39A62358D5796F5E278
CRC32 :559D395E 说明: Source系统具有更安全、更稳定、更人性化等特点。我们的原则,做最干净的系统,绝不捆绑任何第三方插件,我们承诺绝非二次封装,系统在保证稳定的情况下进行简单优化。 1、 更安全 * 源安装盘采用微软官方Windows 7 Ultimate with Service Pack 1 (x86) - DVD (Chinese-Simplified) 操作系统,并进行永久激活,集成系统补丁至2015年(可通过微软漏洞扫描) * 安装过程会自动删除各分区下可能存在的AUTORUN病毒,删除灰鸽子及磁碟机病毒。 * 无新建用户帐户,仅保留Administrator,密码为空。(用户装好系统后请及时加密码) * 关闭了硬盘各分区的默认共享(如C$、D$、E$ ……),系统更安全。 2、 更稳定 * 包含绝大多数的SATA,SCSI,RAID控制器驱动,支持64位处理器,支持双核处理器。 * 支持IDE SATA USB 光驱安装,解决了其他GHOST系统在部份SATA或有隐藏分区的电脑上无法正常恢复的问题。 3、 更人性化 * 我的文档、收藏夹、都位于D盘。这样做可以避免下次重装系统时丢失用户个人文件。 4、 功能增强 * 优化注册表,提高系统性能。 * 禁用少量服务,提高系统运行效率。 * 破解连接数为1024,大大加快下载速度。 * 破解uxtheme主题限制,可直接使用第三方主题。* 集成DX最新版本,VBVC常用运行库。 我们对我们的产品保有最终更改权,如果使用上与描述的不同,我们对此保留解释权利。 系统仅用于学习,如果可以还请支持正版,谢谢! 使用预览: 声明:本站发布的系统与软件仅为个人学习测试使用,请在下载后24小时内删除,不得用于任何商业用途,否则后果自负,请支持购买微软正版软件! 下载地址:百度网盘(ISO镜像) 百度网盘(GHO文件)
5368
6339
5380
17947
7902