Блог

Я довольно успешно работаю с GeckoFX уже некоторое время. Но теперь у меня возникла проблема с получением HTML сайта, который был открыт при нажатии на ссылку с атрибутом target =»_blank».

 PromptFactory.PromptServiceCreator = Function() New MyPromptService()
Xpcom.ProfileDirectory = "C:gecko-cache"
Xpcom.Initialize("Firefox")
Dim form3 As New Form
Browser = New GeckoWebBrowser() 
Browser.Visible = True
form3.Controls.Add(Browser)
Browser.navigate("http://www.asd.com")
browser_wait_javascript(5)
Browser.Document.GetElementsByTagName("a").(0).Click()
browser_wait_javascript(5)
  

Теперь браузер открывает содержимое этой ссылки в новом окне.
Как получить HTML-код, щелкнув ссылки в новых окнах?
Мне нравится иметь что-то вроде этого:

 dim new_browser_window = get_window(last_opened_window)
dim html = new_browser_window.document.getelementsbytagname("body").(0).outerHTML
  

Каков наилучший способ достижения этой цели?

Большое вам спасибо

  Public Sub browser_wait_javascript(ByVal maxTimeout As Integer)
    Dim maxTimeouttime As DateTime = DateTime.Now.AddSeconds(maxTimeout)
    While DateTime.Now < maxTimeouttime
        System.Threading.Thread.Sleep(0)
        System.Windows.Forms.Application.DoEvents()
        System.Threading.Thread.Sleep(100)
    End While
    While Browser.IsBusy()
        System.Threading.Thread.Sleep(0)
        System.Windows.Forms.Application.DoEvents()
        System.Threading.Thread.Sleep(100)
    End While
End Sub