Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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
&


Ïà¹ØÎĵµ£º

´¿VBÕæÕýʵÏÖÎȶ¨µÄNT·þÎñ

'* ************************************************************** *
'* ³ÌÐòÃû³Æ£ºmodNtSrv
'* ³ÌÐò¹¦ÄÜ£ºÊµÏÖNT·þÎñ
'* ×÷Õߣºlyserver
'* ÁªÏµ·½Ê½£ºhttp://blog.csdn.net/lyserver
'* ************************************************************** *
Option Explicit
' ......

VB×Ô¶¯µÇ¼¼ì²â²¢Ìí¼ÓÓòÃû

ÓôÃÆ£¬ÎÒʹÓõÄÕâ¸ö¿Õ¼äµÄIDCÉ̾¹È»Ã¿¸ôÒ»¶Îʱ¼ä¾ÍÒª¼ì²â°ó¶¨µÄÓòÃûÊÇ·ñÔÙδÌá½»±¸°¸ÁбíÖУ¬Èç¹ûÊǾÍɾ³ý£¬µ«ÊÇÈ´²»¼ì²âÎÒÊÇ·ñÌá½»Á˱¸°¸£¬°´ÕÕËûÃÇ˵·¨É¾³ýÓòÃûÒ»Ììºó²ÅÄÜÔٴΰ󶨣¬·ñÔòÕâÒ»ÌìÄÚ°ó¶¨Á˵½Ï´μì²â¾Í»áÔÙɾ³ý¡£ÕâÑùÎҾͲ»Í£µÄÔÚºǫ́¿´£¬¿´ÊÇ·ñ±»É¾³ý£¬Èç¹û±»É¾³ý£¬¾ÍÔÙ°ÑÓòÃû°ó¶¨ÉÏÈ¥£¬;(ºÜÊÜÉË£¡
ÓÚÊÇÓÃV ......

ÓÃVBö¾Ùϵͳ½ø³ÌPID¼°Â·¾¶

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 ......

ÈçºÎÀûÓÃVB±àдNT·þÎñ³ÌÐò

Ò»¡¢NT·þÎñ³ÌÐò
    ËùνNT·þÎñ£¬Êµ¼ÊÉϾÍÊÇÒ»¸ö¿ÉÒÔÔÚϵͳÆô¶¯Ê±×Ô¶¯ÔÚÒ»¶¨Éí·ÝÏÂÆô¶¯µÄ°éËæÏµÍ³³¤Ê±¼ä´æÔڵĽø³Ì¡£ÏóFTP server¡¢HTTP server¡¢ÍÑ»ú´òÓ¡µÈ¶¼ÊDzÉÓÃNT·þÎñµÄÐÎʽÌṩµÄ¡£Õâʵ¼ÊÉÏÀàËÆUnixµÄroot daemon½ø³Ì¡£NT·þÎñ¹éÄÉÆðÀ´£¬NT·þÎñÓÖÒÔϼ¸¸öÌØÕ÷£º
    1¡¢¿ÉÒ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ