/af0f6d2f4c694ed3a1d76464db75acd4/auth-avatar/d6ad18fb86f5d2e97e72ff0a7b77560b-allthew3)
Lire contenu d'une page web dans WebBrowser [Résolu]
allthew3
- Messages postés
- 552
- Date d'inscription
- samedi 8 janvier 2005
- Dernière intervention
- 12 avril 2008
- Messages postés
- 552
- Date d'inscription
- samedi 8 janvier 2005
- Dernière intervention
- 12 avril 2008
A voir également:
- Webbrowser vb.net
- Lire page web - Meilleures réponses
- Vb.net webbrowser - Meilleures réponses
- Problème Flash/Webbrowser VB.Net 2005 ✓ - Forum - VB.NET
- Visual Basic / VB.NET : Les execwb du webbrowser intégré .... - CodeS SourceS - Guide
- Visual Basic / VB.NET : Execwb - webbrowser de microsoft - CodeS SourceS - Guide
- Visual Basic / VB.NET : Piloter internet explorer (ou un webbrowser) - Guide
- Visual Basic / VB.NET : Drag and drop d'un webbrowser ou explorateur vers composant windows media pl - Guide
16 réponses
Meilleure réponse
/39b9c3628b5e4777a622f68e4330feb3/auth-avatar/cdb17dd712f21b50dc01261361df1b97-Renfield)
- Messages postés
- 17308
- Date d'inscription
- mercredi 2 janvier 2002
- Dernière intervention
- 22 août 2018
cela ne m'etonne pas...
attends que la page arrive...
Navigate rend la main tout de suite, mais le document n'est pas encore là.
tu remarqueras que mon test attend l'evenement WebBrowser1_DocumentCompleted
fais le test, dans ton code :
ShowMyIP.Navigate("http://www.whatismyip.org" )
MsgBox("Merci de patienter quelques secondes avant de valider")
MsgBox(ShowMyIP.DocumentText)
attends que la page arrive...
Navigate rend la main tout de suite, mais le document n'est pas encore là.
tu remarqueras que mon test attend l'evenement WebBrowser1_DocumentCompleted
fais le test, dans ton code :
ShowMyIP.Navigate("http://www.whatismyip.org" )
MsgBox("Merci de patienter quelques secondes avant de valider")
MsgBox(ShowMyIP.DocumentText)
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
124 internautes nous ont dit merci ce mois-ci
- Messages postés
- 17308
- Date d'inscription
- mercredi 2 janvier 2002
- Dernière intervention
- 22 août 2018
ben dans la doc, pardi ^^
http://msdn2.microsoft.com/en-us/library/ms535255.aspx
allez, un petit exemple, parce que tu m'a l'air un peu perdu...
(exemple en VB6, mais tu manipules le DOM, derrière, peu importe le langage, le principe est le même)
Private Sub Form_Load()
WebBrowser1.Navigate "http://www.google.com"
End Sub<hr />
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim oDoc As HTMLDocument
Set oDoc = WebBrowser1.Document
If oDoc.hasChildNodes Then
MsgBox oDoc.childNodes.Item(0).innerHTML
End If
End Sub , ----
By Renfield
Renfield
Admin CodeS-SourceS- MVP Visual Basic
http://msdn2.microsoft.com/en-us/library/ms535255.aspx
allez, un petit exemple, parce que tu m'a l'air un peu perdu...
(exemple en VB6, mais tu manipules le DOM, derrière, peu importe le langage, le principe est le même)
Private Sub Form_Load()
WebBrowser1.Navigate "http://www.google.com"
End Sub<hr />
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim oDoc As HTMLDocument
Set oDoc = WebBrowser1.Document
If oDoc.hasChildNodes Then
MsgBox oDoc.childNodes.Item(0).innerHTML
End If
End Sub , ----
By Renfield
Renfield
Admin CodeS-SourceS- MVP Visual Basic
- Messages postés
- 552
- Date d'inscription
- samedi 8 janvier 2005
- Dernière intervention
- 12 avril 2008
Erreur 3 'hasChildNodes' n'est pas un membre de 'System.Windows.Forms.HtmlDocument'. D:\Users\Jerem\Documents\Visual Studio 2005\Projects\LiveKill3\LiveKillGUI\LiveKillGUI\Principal.vb 142 28 LiveKillGUI
Erreur 4 'childNodes' n'est pas un membre de 'System.Windows.Forms.HtmlDocument'. D:\Users\Jerem\Documents\Visual Studio 2005\Projects\LiveKill3\LiveKillGUI\LiveKillGUI\Principal.vb 143 36 LiveKillGUI
Dim
oDoc
As HtmlDocument = ShowMyIP.Document
If oDoc.hasChildNodes
ThenMsgBox(oDoc.childNodes.Item(0).innerHTML)
End
If
Erreur 4 'childNodes' n'est pas un membre de 'System.Windows.Forms.HtmlDocument'. D:\Users\Jerem\Documents\Visual Studio 2005\Projects\LiveKill3\LiveKillGUI\LiveKillGUI\Principal.vb 143 36 LiveKillGUI
Dim
oDoc
As HtmlDocument = ShowMyIP.Document
If oDoc.hasChildNodes
ThenMsgBox(oDoc.childNodes.Item(0).innerHTML)
End
If
/2a4f9f30ab1c45d1bc47648f8c892876/auth-avatar/d20879c7319bcec47aeef1ac45fc09e6-mortalino)
- Messages postés
- 6812
- Date d'inscription
- vendredi 16 décembre 2005
- Dernière intervention
- 21 décembre 2011
regarde dans l'explorateur d'objets ce que tu as en équivalent de la propriété hasChildNodes en dotnet.
Ps : MsgBox
est modifié par MessageBox.Show()
@++
<hr size="2" width="100%" />( Nouveau forum : Exclusivement Office & VBA
Ps : MsgBox
est modifié par MessageBox.Show()
@++
<hr size="2" width="100%" />( Nouveau forum : Exclusivement Office & VBA
- Messages postés
- 17308
- Date d'inscription
- mercredi 2 janvier 2002
- Dernière intervention
- 22 août 2018
y'a pas a dire, t'es un mec qui cherche dans ce que propose les objets, toi
tu m'a fait installer VB2005 juste pour ça ?
Private
Sub WebBrowser1_DocumentCompleted(
ByVal sender
As System.Object,
ByVal e
As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs)
Handles WebBrowser1.DocumentCompletedMsgBox(WebBrowser1.DocumentText)
End
Sub
Private
Sub Form1_Load(
ByVal sender
As
Object,
ByVal e
As System.EventArgs)
Handles
Me.LoadWebBrowser1.Navigate(
"www.google.com")
End
Sub
l'explorateur d'objets te l'aurait dit, pourtant...
Public Property DocumentText() As String
Membre de : <gras>System
.<gras>Windows
.<gras>Forms
.
<gras>WebBrowser
Résumé :
Obtient ou définit le contenu HTML de la page affichée dans le contrôle System.Windows.Forms.WebBrowser.
Renfield
Admin CodeS-SourceS- MVP Visual Basic
tu m'a fait installer VB2005 juste pour ça ?
Private
Sub WebBrowser1_DocumentCompleted(
ByVal sender
As System.Object,
ByVal e
As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs)
Handles WebBrowser1.DocumentCompletedMsgBox(WebBrowser1.DocumentText)
End
Sub
Private
Sub Form1_Load(
ByVal sender
As
Object,
ByVal e
As System.EventArgs)
Handles
Me.LoadWebBrowser1.Navigate(
"www.google.com")
End
Sub
l'explorateur d'objets te l'aurait dit, pourtant...
Public Property DocumentText() As String
Membre de : <gras>System
.<gras>Windows
.<gras>Forms
.
<gras>WebBrowser
Résumé :
Obtient ou définit le contenu HTML de la page affichée dans le contrôle System.Windows.Forms.WebBrowser.
Renfield
Admin CodeS-SourceS- MVP Visual Basic
- Messages postés
- 552
- Date d'inscription
- samedi 8 janvier 2005
- Dernière intervention
- 12 avril 2008
même DocumentText me renvoie pas la source :
je vais sur whatismyip.org dans un webbrowser invisible, pour obtenir mon IP
voici le code :
If
My.Computer.Network.IsAvailable
And
My.Computer.Network.Ping(
"www.whatismyip.org")
Then
ShowMyIP.Navigate(
"http://www.whatismyip.org"
)MsgBox(ShowMyIP.DocumentText)
ShowMyIP.Visible =
True
' debug
InfosPC.Text = InfosPC.Text & vbCrLf &
My
.Resources.ip &
""
' System.Net.Dns.GetHostByName(System.Net.Dns.GetHostName).AddressList.GetValue(0).ToString
End
If
je vais sur whatismyip.org dans un webbrowser invisible, pour obtenir mon IP
voici le code :
If
My.Computer.Network.IsAvailable
And
My.Computer.Network.Ping(
"www.whatismyip.org")
Then
ShowMyIP.Navigate(
"http://www.whatismyip.org"
)MsgBox(ShowMyIP.DocumentText)
ShowMyIP.Visible =
True
' debug
InfosPC.Text = InfosPC.Text & vbCrLf &
My
.Resources.ip &
""
' System.Net.Dns.GetHostByName(System.Net.Dns.GetHostName).AddressList.GetValue(0).ToString
End
If
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.