支持多种格式的VB网络电视程序

Public Function GetFileName(strURL As String) As String On Error Resume Next Dim i As Integer Dim strFileName As String i = Len(strURL) - 1 If i