刚才写错了，补充一下！！
给你段代码：
dim s as string,be as byte,le as long,i as long,j as long
dim sn as string
s="000000146674797069736F6D000002"
le=len(s)/2-1
for i=1 to 200
sn="D:\" & string(3-len(cstr(i)),"0") & i & ".mp4"
open sn for binary as #1
for j=0 to le
be=val("&H"+mid(s,j*2+1,2))
put #1,,be
next j
close #1
next i
直接运行就可以了！！！
如果不行再试试这一段代码
dim s as string,be as byte,le as long,i as long,j as long
dim sn as string
s="000000146674797069736F6D000002"
le=len(s)/2-1
for i=1 to 200
sn="D:\" & left("000",3-len(cstr(i))) & i & ".mp4"
open sn for binary as #1
for j=0 to le
be=val("&H"+mid(s,j*2+1,2))
put #1,,be
next j
close #1
next i
先用mid取得第1,2,3,4,5....N个字
然后用asc把每个字换成ascii字符
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024