VBÊÓƵ¼ô¼­£¿£¿½øÀ´ÇÆÇÆ·· - VB / »ù´¡Àà

ÓÐÒ»¸öWMV¸ñʽµÄÊÓƵ£¬ÏëÓÃVB×ö¼ô¼­£¬ÊÓƵ×ܹ²³¤1·ÖÖÓ£¬ÎÒÖ»Òª0Ãëµ½20µÄÕâÒ»¶ÎÊÓƵ


զŪ°¡£¿


ÓÐʲôºÃµÄ½¨ÒéÂ𣿡·

---

ûÈ˶¥

×Ô¼º¶¥

---

ÓÃMCI»òÓÃÊÓƵ´¦ÀíÈí¼þ

---

ÒýÓÃ

VB code
Option Explicit

Private Sub Command1_Click()
Dim a() As Byte
Dim l As Long
l = Int(FileLen("C:\12.WMV") / 3)
Open "C:\12.WMV" For Binary As #1
a = InputB(l, 1)
Close #1
Open "C:\13.¡­¡­

ÊÓƵҲ¿ÉÒÔÕâô¸ã £¿£¿£¿£¿

---

ÒýÓÃ

VB code
Option Explicit

Private Sub Command1_Click()
Dim a() As Byte
Dim l As Long
l = Int(FileLen("C:\12.WMV") / 3)
Open "C:\12.WMV" For Binary As #1
a = InputB(l, 1)
Close #1
Open "C:\13.¡­¡­

»¹ÕæÄÜÕâôŪ  

ÎҸղŰÑÄÃÁËÒ»¸ö30ÃëµÄʵÑéÁËһϷ··¼ô¼­ÍêÁ˾ÍÊ£ÏÂ8ÃëµÄÄÚÈÝÁË

µ«ÊÇ´Ó±©·çÓ°Òô¿´µÄ»°ÈÏΪ»¹ÊÇ30Ãë··µ«Êǵ½Á˵Ú8Ãë¾ÍÍ£ÁË

ÎļþÓÉÔ­À´µÄ443K±ä³ÉÁË148K



ÎÒÒªÊÇÏë½ØÈ¡µÚ10Ãëµ½µÚ20ÃëµÄզŪ°¡£¿

---

http://engineer-j.appspot.com
¶«Î÷ÒѾ­ÅªºÃÁË

ÎÒÉÏ´«µ½ÁËÕâÀ

ÊÇÎÒµÄСÖ÷Ò³

ɶ¶¼Ã»Óоͼ¸¸ö³ÌÐòºÍÓÎÏ·