logo Homepage
Pages: [1]
  Imprimer  
Auteur Fil de discussion: [VB] Recuperer la source d'une page  (Lu 3131 fois)
Nox
Profil challenge

non classé(e).

Membre Complet
***
Hors ligne Hors ligne
Messages: 142


Voir le profil
« le: 20 Octobre 2005 à 11:19:37 »

Bonjour a tous ,

ici je vais expliquer comment recuperer le code source d'un page html par le biai de visual basic (a pas confondre avec visual basic script)

1) Creez un nouveau projet contenant une nouvelle form
2) Creez un composant Inet (Microsoft Internet Transfert Control) et nommez le "web"

[name : web]

3) Mettez au composant inet le protocole http

[protocol : 4-icHTTP]

4) Double cliquez sur votre form , vous arrivez dans Sub Form_Load()

5) Tapez le code suivant :

web.Execute ("www.google.fr")
While web.StillExecuting = True: DoEvents: Wend
MsgBox web.GetChunk(2048)


on obtient le code suivant :

Private Sub Form_Load()
web.Execute ("www.google.fr")
While web.StillExecuting = True: DoEvents: Wend
MsgBox web.GetChunk(2048)
End Sub


6)Lancez le programme et admirrez

Ce code est pas compliquez mais pour ceux qui veulent des explication approfondies n'hesitez pas
Journalisée

<-< Nox | Kernox >->

www.Kernox.ze.cx
Luther
Profil challenge

Classement : 1880/54318

Membre Junior
**
Hors ligne Hors ligne
Messages: 73


Voir le profil
« #1 le: 20 Octobre 2005 à 12:15:55 »

Pas mal, je te montre comment je fais moi (je sais pas si c'est mieux)

Private Sub Form_Load()
WebBrowser1.Navigate "http://www.url_html_a_recuperer.com"
End Sub

Private Sub WebBrowser1_DownloadComplete()
contents = WebBrowser1.Document.documentElement.innerHTML
End Sub

'contents contient le code source de la page
Journalisée
Nox
Profil challenge

non classé(e).

Membre Complet
***
Hors ligne Hors ligne
Messages: 142


Voir le profil
« #2 le: 20 Octobre 2005 à 12:42:27 »

Oui c'est pas mal non plus
Journalisée

<-< Nox | Kernox >->

www.Kernox.ze.cx
Pages: [1]
  Imprimer  
 
Aller à: