VB.NET - Modifier valeur TextArea dans IE.

Version imprimable

25/11/2013, 02h53
SmokyTech

VB.NET - Modifier valeur TextArea dans IE.

Bonjour, c'est mon premier post. Je vais essayer d'être aussi clair que possible.

Je développe présentement une application en VB.NET. Je voudrais y ajouter une fonction plutôt cool.

Je souhaite modifier la valeur(le texte dans le TextArea) d'un TextArea qui se trouve dans une page WEB ouverte dans Internet Explorer en même temps que mon programme.

Étape 1 : Mettre du texte dans un TextBox dans mon Form.
Étape 2 : Cliquer sur un bouton qui "par magie" va mettre le texte du TextBox dans le TextArea de la page WEB.

Je NE souhaite PAS utiliser un WebBrowser. Je sais que ça fonctionne de cette façon, mais mon cas requiert d'utiliser Internet Explorer.

Merci!
26/11/2013, 19h07
SmokyTech

Il n'y a vraiment personne qui sait? Ou du moins qui a une piste. Je sais que c'est pas le genre de fonction utilisée tout les jours mais je pensais quand même que quelqu'un avait une idée.

Merci!

Voilà la solution si jamais...

Vous devez ajouter en référence à votre projet les COM suivants ;

Microsoft Internet Controls
Microsoft HTML Object Library

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 
    Dim SWs As New SHDocVw.ShellWindows
    Dim IE As SHDocVw.InternetExplorer
 
    For Each IE In SWs
        If IE.Name = "Internet Explorer" Then
            If IE.LocationName <> "" And IE.LocationURL <> "about:Tabs" And IE.LocationURL <> "about:blank" Then
 
                Dim HTMLDoc As mshtml.HTMLDocument
                HTMLDoc = IE.Document
 
                Dim iHTMLCol As IHTMLElementCollection
                Dim iHTMLEle As IHTMLElement
                Dim strId As String
 
                iHTMLCol = HTMLDoc.getElementsByTagName("textarea")
 
                'Put the text into the TextArea
                For Each iHTMLEle In iHTMLCol
                    If Not iHTMLEle.getAttribute("id") Is Nothing Then
                        strId = iHTMLEle.getAttribute("id").ToString
                        If strId = "NAME OF YOUR FIELD" Then
                            iHTMLEle.setAttribute("value", "YOUR TEXT RIGHT HERE")
                        End If
                    End If
                Next
            End If
        End If
    Next
 
End Sub