Discussion :

[alberto314]

Bonjour,

Toujours au travail sur un automate qui met à jour mes propres sites, je tombe sur un nouvel os.

Alors que tout se passe bien, au moment ou je valide une action une message box de validation apparait et me pose bien des problèmes puisque si je ne réponds pas bien il ne se passe rien... Comme toutes les messages box !

Je n'arrive pas à comprendre comment valider cette message box.

Note - Je développe sous VB.net avec un webbrowser.

Merci pour votre précieuse aide

[jopopmk]

Salut,

tu utilises des Form maison ou de simple MessageBox ?

[alberto314]

Bonjour "jopopmk" et merci de ta réponse.

Je le suis peut être mal exprimé, c'est le site internet qui me demande confirmation, je n'ai aucun contrôle à ce niveau là. Il s'agit d'une "réaction" javascript d'àprès ce que j'en comprends.

Voici l'histoire (extrait)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if(!confirm("Êtes-vous certain?"))return false;$("#form3_submit").hide();$("#form3_submit_anim").show();var str=$("#form3").serialize();$.post('ajax.php?PHPSESSID=XXXX=remove_empty',str,function(data){if(data.ok=='1')

Merci

[Pol63]

manipuler un site via un webbrowser ca reste du bricolage
ca ne répond pas à toutes les problématiques, et ca peut s'arrêter de marcher du jour au lendemain si le site change d'un pouième

[jopopmk]

Ah ! En fait t'es pas sur la création d'un automate qui fait tes updates, mais sur l'utilisation d'un outil existant. J'ai bon ?

Dans le JS que tu nous montres voilà ce qu'il se passe :
- on te demande si t'es sûr,
- si tu réponds oui : ça cache un bout de HTML, ça fait une tite animation, ça sérialise des donnée du HTML et ça les envoie en AJAX,
- si tu réponds non : il ne se passe rien.

Du coup c'est quoi le comportement qui ne te convient pas ?
Tu réponds oui et il fait rien ?
Tu réponds non et il fait des trucs ?

[alberto314]

Bonsoir jopopmk,

Pour être précis je vais sur un site et je supprime des données, le site me demande si je suis sur de ma demande.

Mon problème est que je ne sais pas coder le clic sur le oui


Bonsoir Pol63,

Je peux convenir que pour un puriste il s'agit de bricolage, mais d'une part je ne suis pas un pro du développement et d'autre part je préfère coder "mon bricolage" que je peux réparer à tout moment qu'utiliser des choses qui me dépassent. Vu que les sites m'appartiennent, quand il y a des changements je suis au courant De plus, le temps me donne raison puisque cela est stable depuis longtemps; en résumé cela me convient.

Merci pour votre aide.

[Pol63]

ca se concoit tout à fait, je tenais juste à préciser ^^

si les messagebox sont en html, alors tu peux relire la propriété document, et quand tu as un htmlelement tu peux faire .click dessus

après si les sites sont à toi, le mieux est de faire une sorte d'api, il est possible d'en faire des simples (peu importe le langage côté serveur)
dans le principe il te faut des url pour faire des actions (lister des trucs, supprimer quelques chose...) et faire des appels vers ces url

[alberto314]

Bonjour à tous,

Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
     ' Clic bouton Vider
        Dim btnValide2 = WebBrowser1.Document.GetElementsByTagName("a")
        For Each separe As HtmlElement In btnValide2
            If separe.GetAttribute("InnerText") = "Vider" Then
                separe.InvokeMember("click")
                MsgBox("clic fait")
                Call WaitForPageLoad()
                Exit For
            End If
        Next

Le clic se fait bien mais la messagebox "clic fait" n'apparait pas" car dans le webbrowser il y a un autre messagebox qui me demande confirmation.

J'en déduis donc que je ne peux rien faire car il faudrait accepter la confirmation avant de passer la commande de clic puisque après le clic le logiciel est attente de la réponse de confirmation avant de passer à la ligne de code suivante.

Suis-je clair ?

Ais-je juste ?

Comment faire cela ?

Merci pour votre précieuse aide.

[alberto314]

Re bonjour,

Je viens de trouver une solution qui est très certainement un bricolage, mais qui est fonctionnelle.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
  Dim btnValide2 = WebBrowser1.Document.GetElementsByTagName("a")
        For Each separe As HtmlElement In btnValide2
            If separe.GetAttribute("InnerText") = "Vider" Then
                SendKeys.Send("{ENTER}")
                separe.InvokeMember("click")
                MsgBox("clic fait")
                              Call WaitForPageLoad()
                Exit For
            End If
        Next

La solution est de rajouter un clic sur "enter" AVANT de cliquer : SendKeys.Send("{ENTER}")

Merci pour l'aide que vous m'avez apporté.