JSObject to JSArray

Question

J'essaie de lire toutes les URL d'un document html.

J'utilise le code suivant:

Dim html As String = 
            "var linksArray = new Array(); " & 
            "for (var i = 0; i < document.links.length; i++) {" & 
            "linksArray[i] = [String(document.links[i].innerHTML), String(document.links[i].innerText), String(document.links[i].href)];" & 
            "} " & 
            "return linksArray;" 

    Try 
     Dim linksArray As JSObject = _Browser.WebView.EvalScript(String.Format("(function(){{ {0} }})()", html)) 

     If linksArray Is Nothing Then 
      Stop 'this line is not reached, so it should be fine so far 
     End If 

     'the following line throws an error 
     Dim urls As JSArray = linksArray.ToArray() 

     For Each link As JSObject In urls 
      Dim sInnerHTML As String = link(0).ToString().Trim() 
      Dim sInnerText As String = link(1).ToString().Trim() 
      Dim sHRef As String = link(2).ToString().Trim() 

      If sHRef <> "undefined" Then 

       Dim nItem As New clsURL 
       nItem.HRef = sHRef 
       nItem.InnerHTML = sInnerHTML 
       nItem.InnerText = sInnerText 

       nList.Add(nItem) 
      End If 

     Next 
    Catch ex As Exception 
     Debug.Print(ex.Message.ToString) 
     Stop 
    End Try 

Cependant, la ligne

Dim urls As JSArray = linksArray.ToArray() 

jette l'erreur "La référence d'objet n'a pas été définie à une instance d'objet".

Est-ce que quelqu'un sait comment le faire correctement?

Merci!

Answer 1

Got it:

 Dim linksArray As JSArray = _Browser.WebView.EvalScript(String.Format("(function(){{ {0} }})()", html)) 

     For Each obj As Object In linksArray 

      Dim sInnerHTML As String = obj(0).ToString().Trim() 
      Dim sInnerText As String = obj(1).ToString().Trim() 
      Dim sHRef As String = obj(2).ToString().Trim() 

     Next