HELP SVP webbrowser + onfocus + textarea

Question

bonjour, J'utilise webbrowser et je voudrais remplir un champs textarea voilà mon code HTML : il y a une autre partie de CODE où mon texte que je mets dans la balise textarea s'affiche. Mais ce code n'est pas présent dans le code Source de webbrowser. Je n'en n'ai aucune idée pourquoi. Il ne trouve pas se code :

salut

Avec onfocus de la première dans la première partie de code j'arrive me positionner dans le textarea de ma page mais je ne sais pas ensuite comment dire à webbrowser d'écrire du texte où je me trouve avec la souris sur la page ... WebBrowser1.Document.All("wall_text").InvokeMember("focus") Merci d'avance !

Renfield · Answer

WebBrowser1.Document.getElementById("wall_text").innerText = "texte entre balises"

attaquevertical · Answer

Merci cela fonctionne mais le problème est que le texte est écrit en gris claire comme si il s'agissait d'un exemple.  Ensuite quand je veux cliquer sur le bouton cela me mets une erreur qui me dis que le textarea du dessus ne contient pas de texte.

attaquevertical · Answer

J'ai trouvé une solution un fois dans le textarea on peux faire un sendkey et envoyer notre texte comme ci dessous:

        Dim message As String
        Dim WshShell As Object

         WebBrowser1.Document.GetElementById("wall_text").InvokeMember("focus")
         WshShell = CreateObject("WScript.Shell")
         WshShell.SendKeys(message)

attaquevertical · Answer

enfaite ca ne fonctionne toujours pas car maintenant il m'écrit le texte n'importe ou si je ne suis pas dans le programme comment fait pour lui  dire d'écrire les sendKeys dans le webbrowser et a null par d'autre

Renfield · Answer

d'où l'importance d'oublier SendKeys au plus vite ^^

tu peux utiliser :

http://www.vbfrance.com/codes/SENDKEYSEX-SIMULER-TOUCHE-DANS-FENETRE-PRECISE_41974.aspx

et cibler la fenetre du WebBrowser, ca devrait aller mieux

attaquevertical · Answer

ok je vais regarder mais ca m'as l'air bien compliqué ton code...

Renfield · Answer

t'occupes pas du code...
tu as juste a trouver le handle du webbrowser, et faire 

SendString monHandle, "ma chaine"

attaquevertical · Answer

mais je dois reprendre tout ton code ou juste noter ce que tu viens de me dire ?

qu est-ce que le handle ? le nom de mon webbrowser?

Renfield · Answer

SendString WebBrowser1.hWnd, "ma chaine"

te faut reprendre tout le code, tel quel...
(sauf ce qui est propre a la Form1, qui n'est là que pour démonstration.

ca inclue donc les déclarations d'APIs, et les deux procédures (SendString et SendKeysEx)

attaquevertical · Answer

j'a un problème avec VBRUN.KeyCodeConstants qui n'est pas définit ...

Renfield · Answer

tu bosses en .NET ?

attaquevertical · Answer

oui avec visual basic 2008 

.NET Framework 3.5

Renfield · Answer

mon code est à adapter, donc, car incompatible en l'état avec VB.Net


pour en revenir a ton probleme, modifier le textHTML de ta balise TextArea ne fait rien du tout ?????

étrange, tout de même.

attaquevertical · Answer

Bien enfaite le code que je prend viens de internet du site facebook donc je ne peux pas modifier. je voudrais écrire automatiquement sur le mur d'un groupe où c'est écrit "'Ecrire quelque chose..." en gris claire : tu peut aller voir par toi même le code sur un groupe Facebook: La balise de cette endroit quand tu n'ajoute pas de texte est : Avec webbrowser si tu modifie la value de ce textarea. La nouvelle valeur va apparaitre mais en gris claire et si tu clique sur le bouton "Publier" cela va te généré un erreur te disant "Pas de message sur le mur pour le moment.". Ensuite j'ai été à la main modifier sur la page internet même. J'ai noté "salut" et j'ai regardé le code source. Impossible de trouver mon "salut" noté à quelque par. Par hasard en sélectionnant toute ma page avec la souris et en faisant clique droite "voir le code source" j'ai remarqué que je devait sélectionner toute la ligne du bas : de "Facebook ©2009http://www.facebook.com/advertising/?src=pf

Renfield · Answer

j'ai pas accès à FaceBook
tentes en simulant divers evenements...

onkeypress
onkeyup
onchange
...

pour faire croire que le texte saisi l'est a partir du clavier.
eBay fait pareil, a certains endroits... en tatonnant un peu, on trouve et le javascript qui est derrière se met en route.

attaquevertical · Answer

mais je dois les stimuler dans mon webbrowser ?

Renfield · Answer

possible via la méthode FireEvent de ton document

attaquevertical · Answer

je vais chercher alors mais pas facile

AXELMEDICAL · Answer

Salut
as tu trouvez une solution j'ai un problemme similaire merci!!

attaquevertical · Answer

pour l'instant non j'ai laissé cela :

        Dim message As String
        Dim WshShell As Object

         WebBrowser1.Document.GetElementById("wall_text").InvokeMember("focus")
         WshShell = CreateObject("WScript.Shell")
         WshShell.SendKeys(message)

c'est fonctionnel mais bon tu peux plus toucher ton pc sinon le sendKeys écrit le message dans les autres fenêtres où tu te trouve. 

Je suis en pleine période d'examen en ce moment donc j'ai laissé un peut le truc de coté mais d'ici 3 semaines  j'espère que je vais trouver une autre solution. si jamais je trouve je posterai le nouveau code. =) 

A plus

HELP SVP webbrowser + onfocus + textarea

26 réponses

Votre réponse

Discussions similaires