vb6 + winsock + HTML

Question

bonjour
j'utilise winsock dans VB6 pour me connecter à des sites et récupérer une réponse suivant les données que je poste dans mes requêtes, après avoir récupérer les données je voudrais bien les utiliser en tant que HTML pour pouvoir extraire des liens et d'autres informations contenu dans des champs.
est ce que c'est possible de convertir une variable de type string en htmldocument ?

merci d'avance

Answer 1

Bonjour devtn,

Si tu peux adapter l'url, tu as :

  Dim objMSHTML As MSHTML.HTMLDocument
  Dim objDocument As MSHTML.HTMLDocument
  Dim a As MSHTML.HTMLAnchorElement
  Dim e As MSHTML.HTMLGenericElement
  Dim myUrl As String, s As String
  
  myUrl = "http://www.microsoft.fr"
  
  Set objMSHTML = New MSHTML.HTMLDocument
  Set objDocument = objMSHTML.createDocumentFromUrl(myUrl, vbNullString)
  While objDocument.readyState <> "complete"
    DoEvents
  Wend
  s = objDocument.body.innerHTML

Nécessite l'ajout d'une référence à : Microsoft HTML Object Library (mshtml.tlb)

---

Cordialement, Jacques

Answer 2

merci beaucoup pour votre réponse, j'ai adapté votre code pour mes besoins,

 
Dim objDocument As MSHTML.HTMLDocument 
Set objMSHTML = New MSHTML.HTMLDocument
objMSHTML.body.innerHTML = "ok"