这个教程代码比较简单 做出来的视频软件体积很小 却可以放5-6个小时的电影都没问题

为了不耽误时间 都是刚写的 新鲜的很啊

Private Sub Form_Load()
Dim a As String

Form1.Visible = False
a = InputBox("输入密码")
While a <> "123456"
a = InputBox("密码错误，请重新输入")
Wend
Form1.Visible = Trua

End Sub