Salve, uso la libreria html agility pack.
Fino ad oggi, ho usato questo codice :
per questo codice html:codice:Dim sourceDocument As New HtmlAgilityPack.HtmlDocument() sourceDocument.LoadHtml(WebBrowser2.DocumentText) Dim nodes = sourceDocument.DocumentNode.SelectNodes("//span") Dim value1 = nodes.Where(Function(n) n.Attributes("id") IsNot Nothing AndAlso n.Attributes("id").Value.Contains("value_wine")).[Select](Function(v) v.InnerText).FirstOrDefault()
Ora il sito si è aggiornato con il seguente codice html:codice:<li class="wine"> <span class="textLabel">Vino: </span> <span id="value_wine" class=""> 138</span>
Ho provato con :codice:<li class="wine"> <span id="js_GlobalMenu_wine" class="">6,392</span> <div class="tooltip" style="line-height:13px;">
ma non funziona, nel senso che nella label non viene scritto nulla.codice:Dim value1 = nodes.Where(Function(n) n.Attributes("id") IsNot Nothing AndAlso n.Attributes("id").Value.Contains("js_GlobalMenu_wine")).[Select](Function(v) v.InnerText).FirstOrDefault()

Rispondi quotando
