Private Function GetURLInPage(ByVal Page As String)
Page = GetPage(Page)
Dim r As Regex = New Regex("")
Dim m As Match
Dim mc As MatchCollection
mc = r.Matches(Page, "embed\ssrc\=[\'\""]([^\>\'\""]+)[\'\""]")
For Each m In mc
If m.Value <> "" Then
Dim URL As String
URL = m.Groups(1).Value()
If InStr(URL, "youtube.com", CompareMethod.Text) Then
Dim youTubeID As String
youTubeID = ""
Try
youTubeID = r.Match(URL, ".*\/([_0-9A-Za-z]+)").Groups(1).Value
Catch ex As Exception
End Try
If youTubeID <> "" Then
'do something with the youtube ID
End If
'it's a youtube embed, so extract the ID
End If
End If
Next
'try to find google embedded (they're so cool coz they dont use embed src...
mc = r.Matches(Page, "http://video\.google\.com/googleplayer\.swf\?[^""'\<\>]+[""']")
For Each m In mc
Try
Dim googleID As String
googleID = ""
Try
googleID = r.Match(m.Value, "playerId\=([\-0-9]+)").Groups(1).Value
Catch ex As Exception
End Try
If googleID <> "" Then
'omg do something with google ID now!
End If
Catch ex As Exception
End Try
Next
'now just get every other type of link possible and check them to see if they end in avi or something?
'or whether they are links to youtube?
mc = r.Matches(Page, "href\=[""']([^""'\<\>]+)[""']")
For Each m In mc
Dim link As String
Try
link = m.Groups(1).Value
'we now have the link, check if it's a video
Select Case LCase(Strings.Right(link, 3))
Case "mov"
Case "avi"
Case "mpg"
Case "mp4"
Case Else
'this link isn't a video
link = ""
End Select
If link <> "" Then
Return link
End If
Catch ex As Exception
End Try
Next
End Function