18/05/09 19:52
maverik79
n un form ho messo un pulsante dove come commando gli faccio scrivere una lettera ad esempio la "a" in un webbrowser nei campi textbox della pag internet fin qui tutto bene sempre che la pag internet in questione è composta da un unico frame ..
il mio problema sorge quando la pag è composta da più frame cosa fare?
(provate come link puntomatch.it qui non funziona )
il codice da me inserito è il seguente:
Public Class Form1
Dim activeHtmlElement As HtmlElement
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
WebBrowser1.Navigate("pierotofy.it"
Button1.Text = "a"
End Sub
Private Sub WebBrowser1_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles WebBrowser1.Validating
activeHtmlElement = WebBrowser1.Document.ActiveElement
End Sub
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
activeHtmlElement.Focus()
My.Computer.Keyboard.SendKeys("a"c, True)
Catch ex As Exception
End Try
End Sub
il mio problema sorge quando la pag è composta da più frame cosa fare?
(provate come link puntomatch.it qui non funziona )
il codice da me inserito è il seguente:
Public Class Form1
Dim activeHtmlElement As HtmlElement
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
WebBrowser1.Navigate("pierotofy.it"
Button1.Text = "a"
End Sub
Private Sub WebBrowser1_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles WebBrowser1.Validating
activeHtmlElement = WebBrowser1.Document.ActiveElement
End Sub
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
activeHtmlElement.Focus()
My.Computer.Keyboard.SendKeys("a"c, True)
Catch ex As Exception
End Try
End Sub
aaa