VB编写程序实现SRT视频外挂字幕
在DVDRip、MKV等720P高清视频中，srt、ssa、ass、idx、sub等外挂字幕非常流行，采用的显示技术毫不例外都是VSFilter（早期版本是VobSub）和AviSynth外挂字幕插件。显示的点阵汉字非常漂亮！现在流行的多媒体播放器，如KMPlayer、暴风影音等都采用了上述DirectVobSub技术。虽然DirectVobSub技术具有开放性强，支持众多语言编写的播放器，但经常有挂不上字幕的问题。于是，想到用VB来编写外挂字幕程序。那VB能否实现外挂字幕呢？答案是肯定的！对于idx、sub等图形字幕来说，VB无能为力；但对于文本字幕srt、ssa、ass，VB还是可以解决的。虽不能和DirectVobSub技术相比，但基本功能还是可以实现的。请看下面VB编写的srt字幕解析代码：
'********************************************************************************
'* 模块名称：Srttitle.bas
'* 调用srt字幕文件成功后：SRTFileAnalysis返回字幕个数（每一个srt字幕可能有多行显示文本）
'* 调用失败后SRTFileAnalysis返回一个长整型数0
'* 特别声明：转载请用IP地址，严禁原文转载！
'* 作者：Chenjl1031(东方之珠)
'********************************************************************************
Option Explicit
Public SRTtitle() As String 'srt字幕数组
'srt字幕提取
Public Function SRTFileAnalysis(ByVal SrtFileName As String) As Long
Dim LineCount As Long, FileNumber As Long, TimeLenth As Long, TimeNumber As Long
Dim Stitle As String, TimeLabel(1 To 2) As String, St As String, StC As String, sSrt() As String
Dim GotTime As Boolean
Dim sHour As Long, sMunite As Long, sSecond As Long, s1 As Long, s2 As Long, s3 As Long
On Error Resume Next
If Dir(SrtFileName) = "" Then SRTFileAnalysis = 0: Exit Function
'扫描srt字幕个数并定义字幕数组
FileNumber = FreeFile: LineCount = 1
&
相关文档：
由底至上是：
• 托管资源
• WMI 基础结构
• 使用者
托管资源
托管资源是任意逻辑或物理组件，通过使用 WMI 进行公开和管理。可以使用 WMI 管理� ......
植物大战僵尸这个小游戏做的还真不错，我看到了几个版本的植物大战僵尸修改器，如C++版，C#版，所以就改写了一个VB版本的，以下是源码
'界面中有两个按钮，分别是cmdSunUnlimited（caption为启用阳光无限），cmdMoneyUnlimited（caption为启用金钱无限），并且需要放两个Timer控件，名称为默认值timer1和timer2
'基地址直 ......
vb制作可输出函数的通用DLL---VB_DLL_Link用法
论坛越来越多人关注dll，特分享一下vb制作可输出函数的通用DLL---VB_DLL_Link用法
大家知道，VB6只能制作ActiveX DLL文件，制作能输出函数的通用DLL文件通常要用到VC等工具。实际上，VB在编译的时候加以控制，经过适当处理也是可以制作通用DLL的。使用VB_DLL_ ......
摘自VB吧高手鲸无敌兄的一段管首示例代码：
'******* 读取DOS程序ipconfig.exe的返回结果： ********
'作者： 鲸无敌 2006-10-19 21:57
'**************************************************
'窗体代码：Form1
'**************************************************
Option Explicit
Private Const NOR ......
