ecrire dans des controls d'une page de webbrowser

Question

Je developpe une appli "clavier virtuel", j'arrive a envoyer mes sendkeys vers tous les controls mais impossible de les faire passer a l'interieur du webbrowser. celui ci prend bien le focus mais ne fait pas passer le send key au control actif de la page HTML ... Quelqu'un a une idée ?
Merci !

slayer · Answer

j'ai pas la solution a ton probleme , mais si toi tu la trouver sa serais simpas de me la filer.

VBNull · Answer

Et puis depui 2001, qq a trouvé ??? J'ai aussi besoin de faire ce truc ...

mamouthix · Answer

j'ai eu le même probleme que toi et j'ai réussi a trouver une parade. en fait quand tu met le focus et que tu fais un sendkey aussitot,, il n'as pas le temps de prendre le focus.

ma technique consiste a faire un timer et a chaque passage dans le timer se prend le focus, puis je tape une lettre, puis une deuxieme,.........

rantska · Answer

Essay le DoEvent comme ca par exemple:

  'mon compte
  WebBrowser.SetFocus
  For nN = 1 To 11
    SendKeys (vbTab) 'pass au menue login 10tab
    DoEvents
  Next nN
  SendKeys ("mon login") 'menu login
  DoEvents
  SendKeys (vbTab) 'pass au menue password
  DoEvents
  SendKeys ("mon pass") 'password
  DoEvents
  SendKeys (vbTab) 'pass au bouton ok
  DoEvents
  SendKeys (vbCrLf) 'entré

  

Mais je fais comme ca (c plus propre):


Private Sub cmdMajInternet_Click()
'charge la page web du crédit agricole puis
'écrit "tartanpion" dans le champ de texte "Numéro"
'Note: Ce type de zone éditable est un "INPUT" en HTML.
'      Le champ "Numéro" de la page se nome "CCPTE"
'      dans le code HTML de la page.
'==================================================
  Dim HtmlNodes As Variant
  Dim HtmlNode As Variant
  Dim ValeurDuChamp As String
  
  'charge une page HTML d'exemple
  WebBrowser.Navigate ("http://www.ca-sudrhonealpes.fr/")
  Do Until WebBrowser.Busy = False
    DoEvents
  Loop
  'recuper tous les tages HTML de la page (Sibling)
  Set HtmlNodes = WebBrowser.Document.All
  'recherche le champ "Numéro"
  For Each HtmlNode In HtmlNodes
    If HtmlNode.nodeName = "INPUT" Then
      If HtmlNode.Name = "CCPTE" Then
        ValeurDuChamp = HtmlNode.Value
        HtmlNode.Value = "tartanpion"
      End If
    End If
  Next
End Sub

thedjpredator · Answer

J'ai essay&#233; ta partie du code, elle marche tr&#232;s bien
mais le probl&#232;me c'est lorsqu'il y a
un bouton (validation) comment toujours utiliser
ton HTMLNode mais cette fois pour faire la fonction
de submit du bouton d'une page internet?

Merci d'avance.

TdP.

Ecrire dans des controls <input> d'une page de webbrowser

5 réponses

Discussions similaires