vb2010 Webbrowser -Textfeld ausfüllen

[grundschüler (Gast)]

ich möchte in den Netzwerk-hp officejet 8600 aus einer Datenbank 
Faxnummern automatisch eingeben.
mit diesem code

   Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim abfr, x, y, z, u, v
        'Clipboard.SetText(adrFax_dial.ToString)
        'WebBrowser1.ShowPropertiesDialog()
        abfr = WebBrowser1.Size.Height.ToString
        abfr = WebBrowser1.Height.ToString

        z = WebBrowser1.Size.Width
        u = WebBrowser1.Size.Height
        x = WebBrowser1.Location.X()
        y = WebBrowser1.Location.Y()
        WebBrowser1.Left = 0
        Me.Location = New Point(5, 5)
        WebBrowser1.Location = New Point(5, 5)
        Windows.Forms.Cursor.Position = New Point(x + 620, y + 345)
        mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 1)
        mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 1)
        Windows.Forms.Cursor.Position = New Point(400, 390)
        mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 1)
        mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 1)
        mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 1)
        mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 1)
        Threading.Thread.Sleep(150)
        mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 1)
        mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 1)
        mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 1)
        mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 1)
        Threading.Thread.Sleep(150)

        'Clipboard.GetText()
        'Text.StartsWith("99")
        Dim xxx As String
        'xxx = WebBrowser1.DocumentText()
        'WebBrowser1.DocumentText() = "99"
       'SendKeys.Send("99")

    End Sub

komme ich bis zur Selektion des Eingabefeldes.

Mit Ctr-V kann ich jetzt die gewünschte Eingabe per Hand vornehmen. Wie 
bekomme ich vb dazu, den Text im selektierten Textfeld zu ersetzen?

[Arc N. (arc)]

Wenn das Webbrowser-Control das Dokument vollständig geladen hat, kann 
z.B. mit 
WebBrowser1.Document.GetElementById("xyz").SetAttribute(attrName, 
attrValue) der Inhalt verändert werden.

Das Anklicken von Buttons geht ebenso: Button finden und mit 
InvokeMember aufrufen (lassen)

https://msdn.microsoft.com/de-de/library/system.windows.forms.htmldocument.getelementbyid%28v=vs.110%29.aspx
https://msdn.microsoft.com/de-de/library/System.Windows.Forms.HtmlElement%28v=vs.110%29.aspx
https://msdn.microsoft.com/de-de/library/system.windows.forms.htmlelement.setattribute%28v=vs.110%29.aspx

[grundschüler (Gast)]

Arc Net schrieb:


vielen Dank für die Antwort

  

<input id="contactPhoneNumberField-Inp" type="text" class="gui-input-field text" maxlength="55" alt="">

....
 WebBrowser1.Document.GetElementById("contactPhoneNumberField-Inp").SetAttribute("value", "555")

geht aber leider auch nicht

[grundschüler (Gast)]

problem war das refresh des browsers. Mit einem timer geht es einen 
Schritt weiter, danke für den Hinweis von Arcnet
       Timer1.Stop()
        WebBrowser1.Document.GetElementById("contactPhoneNumberField-Inp").SetAt 
tribute("value",  "555")

[Arc N. (arc)]

grundschüler schrieb:
> Arc Net schrieb:
>
>
> vielen Dank für die Antwort
>

> 
> <input id="contactPhoneNumberField-Inp" type="text" 
> class="gui-input-field text" maxlength="55" alt="">
> 
> ....
>  WebBrowser1.Document.GetElementById("contactPhoneNumberField-Inp").SetAttribute("value", 
> "555")
>

> geht aber leider auch nicht

Was geht nicht bzw. was liefert GetElementById zurück bzw. mal ansehen 
was alles in dem zurückgelieferten HtmlElement steht (Children, 
InnerHtml).

Edit: Statt Timer vielleicht auf das DocumentCompleted-Ereignis des 
WebBrowser-Controls reagieren

[grundschüler (Gast)]

Arc Net schrieb:
> Edit: Statt Timer vielleicht auf das DocumentCompleted-Ereignis des

das hatte ich versucht. WebBrowser1_DocumentCompleted kommt nicht. Bei 
refresh springt der Webbrowser auf die Ausgangs-Url zurück. Deswegen die 
Bastelei mit Cursor/ Maustasten. Mit Timern funktioniert das ganze jetzt 
perfekt:

  Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Timer1.Stop()
        If status = 0 Then
            setFaxDial()

        End If

        If status = 1 Then
            status = 2
            Timer1.Stop()
            Timer2.Enabled = True
            Timer2.Interval = 1000
            Timer2.Start()
            WebBrowser1.Document.GetElementById("contactPhoneNumberField-Inp").SetAttribute("value", Clipboard.GetText())
            status = 2
            'SendKeys.Send("{TAB}")
            'SendKeys.Send("{Enter}")
        End If
        If status = 3 Then
            Me.Finalize()
        End If

    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        If status = 2 Then
            status = 3
            Timer1.Start()
            SendKeys.Send("{TAB}")
            SendKeys.Send("{Enter}")
        End If

    End Sub

Danke für die Unterstützung