将焦点设置到 WebBroswer 控件中的 HTML 文本框或按钮

Question

我正在使用 VB.NET 2008 在

WebBrowser

控件中打开一个网站。在网站的第四页上，我想通过以编程方式触发 Tab 键来聚焦控件。我正在使用以下代码：

If adtxt.Text = "http://aojsl.com/dfassfeed2.php" Then
    System.Windows.Forms.SendKeys.Send("{TAB}")
End If

但是，我的代码无法触发 Tab 键。有谁知道如何做到这一点？

Answer 1

方法1

Private Sub Form_Load()
    WebBrowser1.Navigate "http://www.google.com/"
    Do
     Thread.Sleep(100)
    Loop While webBrowser1.IsBusy = True
End Sub 

Private Sub Command1_Click()
    WebBrowser1.Document.All("q").focus 'Set focus to the search text field
End Sub

Private Sub Command2_Click()
    WebBrowser1.Document.All("btnI").focus 'Set focus to the google "I Am feeling lucky button"
End Sub

方法2

我从这个 MSDN 线程将其转换为 VB.Net：Focus issues with System.Windows.Controls.WebBrowser

您需要将

webBrowser.Document.ActiveElement.Focus()

中的 ActiveElement 更改为文本框或按钮。

Public Partial Class Form1
    Inherits Form
  Public Sub New()
    InitializeComponent()
    Dim host As New WindowsFormsHost()
    im webBrowser As New WebBrowser()
    host.Child = webBrowser
    elementHost1.Child = host

    webBrowser.Navigate(New Uri("http://www.google.com"))
    Me.Activated += Function() Do
      Console.WriteLine(Me.ActiveControl)
      If webBrowser.Document <> Nothing Then
        If Me.ActiveControl = elementHost1 AndAlso webBrowser.Document.ActiveElement <> Nothing Then
          webBrowser.Document.ActiveElement.Focus()
        End If
      End If
    End Function
  End Sub
End Class

方法3

另一种方法可能是在 HTML 中完成，例如：

OnLoad="document.myform2.mybutton.focus();"> 

Answer 2

假设您页面的 html 是：

<button id="btn">Ok</button><input id="txt">

你可以这样设置焦点：

If adtxt.Text = "http://aojsl.com/dfassfeed2.php" Then
    webbrowser1.document.getelementbyid("btn").focus()
    webbrowser1.document.getelementbyid("txt").focus()
End If

Answer 3

另一种方式：

使用

GetElementsByTagName(TagName)

假设您的 html 是：

<button>no</button>
<button>no</button>
<button onclick='alert(1);'>--focus me!--</button>
<button>no</button>

   Dim Elems As HtmlElementCollection
        Dim WebOC As WebBrowser = WebBrowser1
        Elems = WebOC.Document.GetElementsByTagName("button")
        For Each elem As HtmlElement In Elems
            If elem.InnerHtml = "--focus me!--" Then
                elem.Focus()
                elem.InvokeMember("click")

            End If

        Next

另一个：

Dim num As Integer = 1
        Dim elms As HtmlElementCollection
        Dim wb As WebBrowser = WebBrowser1
        elms = wb.Document.GetElementsByTagName("button")
        For Each elem As HtmlElement In elms
            If elem.Id = "" Then
                elem.Id = "button" & num.ToString
                num = num + 1
            End If
        Next

        WebBrowser1.Document.GetElementById("button3").Focus()

Answer 4

使用vb.net中的focus函数来聚焦选择的元素。例如，

Me.WebBrowser1.Document.All.Item("password").Focus()

这会将焦点放在名为“密码”的元素上！

使用

Me.WebBrowser1.Document.All.Item("YOURelement")

找到正确的元素，然后添加

.Focus()

专注于您想要的元素！ ：D

Answer 5

执行此操作 Me.WebBrowser1.Document.All.Item(textbox1.text).Focus()

制作一个文本框，然后如果您想要垃圾邮件机器人，它可以轻松检测您每次编写和发送的打字内容