none
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

    lundi 4 juin 2012 23:37

Réponses

  • 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

    • Marqué comme réponse devtn vendredi 8 juin 2012 22:08
    • Non marqué comme réponse devtn vendredi 8 juin 2012 22:08
    • Marqué comme réponse devtn vendredi 8 juin 2012 22:08
    mardi 5 juin 2012 16:37

Toutes les réponses

  • 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

    • Marqué comme réponse devtn vendredi 8 juin 2012 22:08
    • Non marqué comme réponse devtn vendredi 8 juin 2012 22:08
    • Marqué comme réponse devtn vendredi 8 juin 2012 22:08
    mardi 5 juin 2012 16:37
  • 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"





    • Modifié devtn vendredi 8 juin 2012 22:15
    vendredi 8 juin 2012 22:11