Dim sHTML As String : sHTML = ""
Dim Matcher_ As Matcher
sHTML = sHTML & "<div class='torpicture'>"
sHTML = sHTML & "<img src='http://image.bayimg.com/3cd148d9955431b62ab956f1631de3d87fb1636c.jpg' title='picture' alt='picture' />"
sHTML = sHTML & "</div>"
sHTML = sHTML & "<div class='torpicture'>"
sHTML = sHTML & "<img src='http://image.bayimg.com/3cd148d9955431b62ab956f1631de3d87fb1636c.jpg' title='picture' alt='picture' />"
sHTML = sHTML & "</div>"
sHTML = sHTML & "<div class='torpicture'>"
sHTML = sHTML & "<img src='http://image.bayimg.com/3cd148d9955431b62ab956f1631de3d87fb1636c.jpg' title='picture' alt='picture' />"
sHTML = sHTML & "</div>"
Matcher_ = Regex.Matcher("<img[^>]*>", sHTML)
Dim sImg As String
Dim strFileName As String
Try
Dim iPanel As Int : iPanel = 0
Do While Matcher_.Find
sImg = Matcher_.Match
If sImg.IndexOf("https://") <> -1 Then
sImg = sImg.SubString2(sImg.IndexOf("https://"), sImg.IndexOf("title="))
Else
sImg = sImg.SubString2(sImg.IndexOf("http://"), sImg.IndexOf("title="))
End If
sImg = sImg.Replace(QUOTE, "")
sImg = sImg.Replace("'", "")
strFileName = sImg.SubString(sImg.LastIndexOf("/"))
strFileName = strFileName.Replace("/", "")
ToastMessageShow(sImg & CRLF & strFileName, True)
Loop
Catch
End Try