VERSION  5.00
Begin VB.Form Form1 
   Caption          =     " 优酷视频下载工具 "
   ClientHeight     =     3210
   ClientLeft       =     60
   ClientTop        =     435
   ClientWidth      =     4680
   LinkTopic        =     " Form1 "
   ScaleHeight      =     3210
   ScaleWidth       =     4680
   StartUpPosition  =     1   ' 所有者中心
   Begin VB.Frame Frame1 
      Caption          =     " 说明: "
      Height           =     1815
       Left              =     120
      TabIndex         =     3
      Top              =     1200
      Width            =     4455
      Begin VB.Label Label3 
         Caption          =     " 比如要下载光良的不会分离这个视频就直接把视频地址http://v.youku.com/v_show/id_cf00XMTIzNDExNzY= .html复制到上面的文本输入框就可以了           o(∩_∩)o...哈哈 "
         Height           =     975
          Left              =     120
         TabIndex         =     5
         Top              =     720
         Width            =     4215
       End
      Begin VB.Label Label2 
         Caption          =     " 直接把所要下载的视频的URL复制到上面的文本输入框里面就可以了^_^ "
         Height           =     495
          Left              =     120
         TabIndex         =     4
         Top              =     240
         Width            =     4215
       End
    End
   Begin VB.CommandButton CmdOk 
      Caption          =     " 下 载 "
      Height           =     615
       Left              =     3720
      TabIndex         =     2
      Top              =     480
      Width            =     855
    End
   Begin VB.TextBox url 
      BeginProperty Font 
         Name             =     " 宋体 "
         Size             =     12
         Charset          =     134
         Weight           =     400
         Underline        =     0     ' False
         Italic           =     0     ' False
         Strikethrough    =     0     ' False
      EndProperty
      Height           =     615
      Left              =     120
      MultiLine        =     - 1   ' True
      ScrollBars       =     1   ' Horizontal
      TabIndex         =     1
      Top              =     480
      Width            =     3615
    End
   Begin VB.Label Link 
      Caption          =     " Isto-LivinG "
      BeginProperty Font 
         Name             =     " 宋体 "
         Size             =     9
         Charset          =     134
         Weight           =     400
         Underline        =     - 1   ' True
         Italic           =     0     ' False
         Strikethrough    =     0     ' False
      EndProperty
      ForeColor        =     & H00FF0000 &
      Height           =     255
       Left              =     3480
      TabIndex         =     6
      Top              =     120
      Width            =     1095
    End
   Begin VB.Label Label1 
      Caption          =     " 视频页面地址: "
      Height           =     255
       Left              =     120
      TabIndex         =     0
      Top              =     240
      Width            =     1335
    End
End
Attribute VB_Name  =   " Form1 "
Attribute VB_GlobalNameSpace  =   False
Attribute VB_Creatable  =   False
Attribute VB_PredeclaredId  =   True
Attribute VB_Exposed  =   False
Private  Declare  Function  DoFileDownload Lib  " shdocvw.dll "  _
    (ByVal lpszFile  As   String )  As   Long
Private  Declare  Function  ShellExecute Lib  " shell32.dll "  Alias  " ShellExecuteA "  (ByVal hwnd  As   Long , ByVal lpOperation  As   String , ByVal lpFile  As   String , ByVal lpParameters  As   String , ByVal lpDirectory  As   String , ByVal nShowCmd  As   Long )  As   Long
Private   Const  SW_SHOWNORMAL  =   1
Private   Const  SW_SHOWMINIMIZED  =   2
Private   Sub  CmdOk_Click()
     Dim  str  As   String
     Dim  Link  As   String
     Dim  sDownload  As   String
     Set  xmlHTTP1  =   CreateObject ( " Microsoft.XMLHTTP " )
    xmlHTTP1.Open  " get " , url.Text,  True
    xmlHTTP1.send
     While  xmlHTTP1.readyState  <>   4
    DoEvents     ' 转让系统控制权给CPU,好让CPU有空闲时间处理其他的事情,这样可以防止程序死锁
     Wend
    str  =  xmlHTTP1.responseText
     Set  xmlHTTP1  =   Nothing
    ary  =   Split (str,  " =',' " )
    ary  =   Split (ary( 2 ),  " '); " )
    Link  =   " http://121.14.140.22/ "   &  ary( 0 )  &   " .flv "
    sDownload  =  StrConv(Link, vbUnicode)
     Call  DoFileDownload(sDownload)
End Sub
Private   Sub  Link_Click()
Call  ShellExecute(Me.hwnd,  " open " ,  " http://blog.csdn.net/I_S_T_O " , vbNullString, vbNullString, SW_SHOWNORMAL)
End Sub