VB±àд³ÌÐòʵÏÖSRTÊÓÆµÍâ¹Ò×ÖÄ»
ÔÚDVDRip¡¢MKVµÈ720P¸ßÇåÊÓÆµÖУ¬srt¡¢ssa¡¢ass¡¢idx¡¢subµÈÍâ¹Ò×ÖÄ»·Ç³£Á÷ÐУ¬²ÉÓõÄÏÔʾ¼¼ÊõºÁ²»ÀýÍâ¶¼ÊÇVSFilter£¨ÔçÆÚ°æ±¾ÊÇVobSub£©ºÍAviSynthÍâ¹Ò×ÖÄ»²å¼þ¡£ÏÔʾµÄµãÕóºº×ַdz£Æ¯ÁÁ£¡ÏÖÔÚÁ÷ÐеĶàýÌå²¥·ÅÆ÷£¬Èç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
&
Ïà¹ØÎĵµ£º
'* ************************************************************** *
'* ³ÌÐòÃû³Æ£ºmodNtSrv
'* ³ÌÐò¹¦ÄÜ£ºÊµÏÖNT·þÎñ
'* ×÷Õߣºlyserver
'* ÁªÏµ·½Ê½£ºhttp://blog.csdn.net/lyserver
'* ************************************************************** *
Option Explicit
' ......
ÓôÃÆ£¬ÎÒʹÓõÄÕâ¸ö¿Õ¼äµÄIDCÉ̾¹È»Ã¿¸ôÒ»¶Îʱ¼ä¾ÍÒª¼ì²â°ó¶¨µÄÓòÃûÊÇ·ñÔÙδÌá½»±¸°¸ÁбíÖУ¬Èç¹ûÊǾÍɾ³ý£¬µ«ÊÇÈ´²»¼ì²âÎÒÊÇ·ñÌá½»Á˱¸°¸£¬°´ÕÕËûÃÇ˵·¨É¾³ýÓòÃûÒ»Ììºó²ÅÄÜÔٴΰ󶨣¬·ñÔòÕâÒ»ÌìÄÚ°ó¶¨Á˵½Ï´μì²â¾Í»áÔÙɾ³ý¡£ÕâÑùÎҾͲ»Í£µÄÔÚºǫ́¿´£¬¿´ÊÇ·ñ±»É¾³ý£¬Èç¹û±»É¾³ý£¬¾ÍÔÙ°ÑÓòÃû°ó¶¨ÉÏÈ¥£¬;(ºÜÊÜÉË£¡
ÓÚÊÇÓÃV ......
http://blog.csdn.net/cw198624/archive/2009/02/19/3911759.aspx
Ìí¼ÓÒ»¸öListBoxºÍÒ»¸ö°´Å¥
Option Explicit
Private Declare Function CloseHandle Lib "kernel32" (ByVal Handle As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As L ......
Ò»¡¢NT·þÎñ³ÌÐò
ËùνNT·þÎñ£¬Êµ¼ÊÉϾÍÊÇÒ»¸ö¿ÉÒÔÔÚϵͳÆô¶¯Ê±×Ô¶¯ÔÚÒ»¶¨Éí·ÝÏÂÆô¶¯µÄ°éËæÏµÍ³³¤Ê±¼ä´æÔڵĽø³Ì¡£ÏóFTP server¡¢HTTP server¡¢ÍÑ»ú´òÓ¡µÈ¶¼ÊDzÉÓÃNT·þÎñµÄÐÎʽÌṩµÄ¡£Õâʵ¼ÊÉÏÀàËÆUnixµÄroot daemon½ø³Ì¡£NT·þÎñ¹éÄÉÆðÀ´£¬NT·þÎñÓÖÒÔϼ¸¸öÌØÕ÷£º
1¡¢¿ÉÒ ......