CONTROLE DE INTERNET EXPLORER VIA VB
devmax98799
Messages postés
76
Date d'inscription
mercredi 5 février 2003
Statut
Membre
Dernière intervention
12 août 2009
-
2 avril 2003 à 17:50
jpzenitram Messages postés 6 Date d'inscription vendredi 25 juin 2004 Statut Membre Dernière intervention 15 septembre 2005 - 9 mai 2005 à 19:36
jpzenitram Messages postés 6 Date d'inscription vendredi 25 juin 2004 Statut Membre Dernière intervention 15 septembre 2005 - 9 mai 2005 à 19:36
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/6600-controle-de-internet-explorer-via-vb
https://codes-sources.commentcamarche.net/source/6600-controle-de-internet-explorer-via-vb
9 mai 2005 à 19:36
5 mai 2005 à 22:52
26 avril 2005 à 22:45
Merci pour ce code que je n'arrive malheureusement pas à utiliser pour automatiser le click d'un bouton qui référence du javascript dans la page html (ni name, ni id). J'ai essayé la routine de Hobby mais sans succès et je me pose la même question que Polemos. Quelqu'un peut-il m'aider ?
merci
Michel
16 mars 2005 à 11:48
Quelqu'un a trouvé une solution, pour connaitre le nombre et avoir la liste des liens sur une page ?
J'ai tenté ceci:
Public Property Get GetListLinks() As String
Dim a_link As HTMLLinkElement
Dim txt As String
On Error Resume Next
For Each a_link In WebDoc.links
txt = txt & a_link.href & vbCrLf
Next a_link
GetListLinks = txt
End Property
Mais cela ne donne rien.
Merci
Olivier
11 mars 2005 à 12:09
J'ai pas encore tous testé mais j'arrive déjà a quelque résultat.
J'ai mis isready en public, parceque lorsque tu fait un
.FormClickButton "" et ensuite
.GetHTML tu resoit le code de la page du post (normal) donc cela donne:
.FormClickButton ""
.IsReady
.GetHTML
Et la nickel tu as la page final
Merci
Olivier
7 janv. 2005 à 09:28
merci
30 sept. 2004 à 23:46
On Error Resume Next
WebDoc.links(Link).Click
End Sub
Salut,
Comment fais-tu pour connaitre l'indexation de tes lients (pour connaitre le n° Link de ton lien) ?
Merci par avance...
10 août 2004 à 04:44
thank you in advance
9 août 2004 à 16:57
Même ton code ne marche pas il manque quelque chose ?
Les deux premiere ligne du module ne sont pas reconnu voila le message :
"Valide seulement dans un module d'objet"
Au fait ce que j'aimerais faire c'est un programme me permettant d'acceder à mes mails s'en avoir à aler sur Voila, puis la section E-mail, Taper son noms et son mot de passe pour enfin acceder à ces mails.
Avec le code de cette source, j'arrive à acceder à la page des E-mails mais je dois arreter le chargement pour pouvoir continuer donc il faudrait qua environ 95 % on envoi ESC pour arreter le chargement.
Voila en esperant que je me soit fait comprendre.Merci de repondre
FREEGAMER
9 août 2004 à 00:28
9 août 2004 à 00:26
Public WithEvents IE As InternetExplorer 'IE Object
Public WithEvents HTMLpage As HTMLDocument 'la source html de la page
Public PageLoaded As Boolean ' est ce que la pages est chargee
Private Sub IE_DocumentComplete(ByVal pDisp As Object, URL As Variant)
'On test si c bien internet explorer
If (pDisp Is IE) Then
'on test si on est sur la bonne page cad si le titre de la page est "voila.Fr"
If InStr(IE.document.title, "Voila.fr") > 0 Then
Set HTMLpage = IE.document ' on a la source de la page
PageLoaded = True 'on active le flag
Else
'sinon c pas la bonne page
Set HTMLpage = Nothing
End If
Else
PageLoaded = False 'c pas la bonne page
Exit Sub
End If
'on test si y a du code HTML cad si l objet n est pas nothing
If Not m_oIE.document.body Is Nothing Then
' la page est chargee mettre la fonction
Else
'On a cliquer sur Arret dans internet explorer
MsgBox "Stop Chargement"
End If
End Sub
Private Sub IE_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
'le flag permettant de savoir si la page est chargee
PageLoaded = False
End Sub
'dans le formulaire
Private Sub btn_Click()
If PageLoaded = False Then
MsgBox "Page Non Chargee"
else
'sinon ... la page est chargee la fontion peut etre executee
...
End If
End Sub
7 août 2004 à 21:28
OK, j'attend que tu la poste
Merci
FREEGAMER
7 août 2004 à 18:05
mais je crois que cette source bug
il me semble que j avais mis un post sur cette source comme quoi elle bugger
mais je crois que g une source qui fonctionne
faut que je la retrouve et je la poste
7 août 2004 à 18:05
mais je crois que cette source bug
il me semble que j avais mis un post sur cette source comme quoi elle bugger
mais je crois que g une source qui fonctionne
faut que je la retrouve et je la poste
6 août 2004 à 17:52
Je n'arrive pas à le faire en passant par IE_ProgressChange.
De plus voila ne se charge toujours pas en entier et sa commence à me casser les c******
Enfin bon, j'ai essayer de mettre le sendkey dans le timer mais ou je dois rebooter ou sa ne marche pas.
Peut tu m'aider ?
5 août 2004 à 17:58
ps: je crois que le bug vient de chez toi
g tester voila et ca marche
5 août 2004 à 00:17
La questions est plus exactement : comment stopper le chargement de la page par le code ?? (sans appuyer sur Echap)
Car les champs des pages ne sont rempli que quand la page est totalement charger !!!
Or voila (du moin chez moi) bloque le chargement de la page environ 99 %.
Donc j'aimerais pouvoir stopper le chargement à environ 90 %, j'ai essayer un Sendkeys chr$(27) mais la aussi sa attents que la page soit charger.
Sinon pour l'instant j'ai trouver autre chose, mais sa me turlupine comme même.
4 août 2004 à 21:01
4 août 2004 à 20:22
Peut on stopper le chargement de la page aprés un certains pourcentage ??
Car je l'ai adapter pour voila mais le probleme es que le chargement n'arrive jamais jusqua 100 % donc les champs ne sont pas rempli il faut que j'appui sur Echap pour que les champ soient remplient. Si quelqu'un sait comment faire, je posterait ma source dés que j'aurais regler ce bug
24 juin 2004 à 11:50
24 juin 2004 à 11:49
9 déc. 2003 à 03:34
zobyone, j'ai besoin de toi pour mon site.
j'ai ouvert une piste, ce code vous appartient, déchainez vous !
30 sept. 2003 à 11:42
17 sept. 2003 à 09:49
17 sept. 2003 à 09:47
12 mai 2003 à 00:05
quand tu rempli un formulaire ca fonctionne une fois sur 5
je ne sais pas d ou cela peut venir ?
g essayer la synchro (le temps qu il charge la page) mais rien
alors lorsque je met un espion dans vb il m affiche l arbre de webdoc
et la donc 1 fois sur 5 soit y a les valeurs (des champs de forms) soit y a marque "Acces Refusé" ???
si qqun a une idee
11 mai 2003 à 20:30
11 mai 2003 à 20:28
WebDoc.frames(1).document.getElementsByName("test").Item(0).Value = Value
9 mai 2003 à 18:29
8 mai 2003 à 15:33
Public Sub LinksClickButton(Link As Integer)
On Error Resume Next
WebDoc.links(Link).Click
End Sub
8 mai 2003 à 14:31
2 avril 2003 à 22:16
2 avril 2003 à 17:50