2016-12-18 2 views
0

mit bekomme ich den Text aus dem span id "hkoTemp" und hier greifen will, ist der Code:
Text span id Fehler

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load 
    Dim wb As WebBrowser = New WebBrowser 
    wb.Navigate(New Uri("http://www.hko.gov.hk/contentc.htm")) 
    Dim temp = wb.Document.GetElementById("hkoTemp").GetAttribute("innerText") 
    MsgBox(temp) 
    End Sub 


Wenn ich versuche, es zu laufen, wird es ein Fehler auf
Dim temp = wb.Document.GetElementById("hkoTemp").GetAttribute("innerText")


, wie ich es beheben kann?

+0

Was ist *** dieser Fehler ***? Meine beste Vermutung ist, dass Sie das Element 'hkoTemp' nicht finden. Ich würde sehen, ob es zuerst etwas gefunden hat, als ob du auch keine Attribute haben würdest. 'Wenn wb.Document.GetElementById (" hkoTemp ") IsNot Nothing Then ...' dann, wenn Sie etwas nach den Attributen als nächstes versuchen haben ... – Codexer

Antwort

0
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
    Dim wb As WebBrowser = New WebBrowser() 
    wb.AllowNavigation = True 
    AddHandler wb.DocumentCompleted, New WebBrowserDocumentCompletedEventHandler(AddressOf wb_DocumentCompleted) 
    wb.Navigate(New Uri("http://www.hko.gov.hk/contentc.htm")) 
End Sub 

Private Sub wb_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) 
    ' wb.Document is not null at this point 
    Dim wb As WebBrowser = sender 
    Dim temp = wb.Document.GetElementById("hkoTemp").GetAttribute("innerText") 
    MsgBox(temp) 
End Sub