this may help get the ball rolling..have you tried
either way once you have the source code you can use instr to locate the line or starting text you want then locate something after the text you want then hone in on the part you want..and this part is probably not the best solution but it should work. Once you have the Source that is.Code:Dim strAuthorCode As String = sender.Document.Body.InnerText or if you want to save it to a text file Dim HtmlFile = "C:\whatever.txt" Dim HTMlAuthorCode As String = sender.DocumentText My.Computer.FileSystem.WriteAllText(HtmlFile, HTMlAuthorCode, False)
This is just an example you can mess with it until you find something else?Code:Dim UrlStart As Integer = InStr(HtmlFile, "<a href="/url?q=") Dim UrlEnd As Integer = InStr(UrlStart , HtmlFile, "</A>") Dim UrlLink = Mid(HtmlFile, UrlStart + 21, UrlEnd - UrlStart - 26) <-----you'll have to change these numbers to hone in on the exact part you want
these would go in the webbrowser1_completed sub




Reply With Quote