Discussion :

[fred92g]

voila ma procédure qui fonctionne pas et savoir pour quoi tel et la question ?

Code :

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

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
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Dim theElementCollection As HtmlElementCollection
        theElementCollection = WebBrowser1.Document.GetElementsByTagName("input")
        For Each curElement As HtmlElement In theElementCollection
            Dim controlName As String = curElement.GetAttribute("name").ToString
            If controlName = "username" Then
                curElement.SetAttribute("Value", "textbox2.text")
            ElseIf controlName = "message" Then
                curElement.SetAttribute("Value", "textbox1.text")
                'on peut recuperer la valeur des elements comme ca:
                MessageBox.Show(curElement.GetAttribute("Value"))
            End If
        Next
 
 
 
        '  appuyer le bouton envoyer de facon automatique
        theElementCollection = WebBrowser1.Document.GetElementsByTagName("input")
        For Each curElement As HtmlElement In theElementCollection
            If curElement.GetAttribute("value").Equals("envoyer") Then
                curElement.InvokeMember("click")
            End If
        Next
    End Sub
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        WebBrowser1.Navigate("http://www.i-tchat.com/?116303")
    End Sub
End Class

CODE SOURCE

merci de votre aide

[plume13]

Ah... Mais c'est sensé faire quoi en fait ?

[fred92g]

ECRIRE DANS LES CHAMP DE LA TCHATBOX MES LE PB C EST QUE SA LE FAIT PAS ET J AVAIS OUBLIE DE METTRE LE CODE SOURCE DE LA PAGE JE VIEN DE RECTIFIER