6

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

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

但是，我的代码无法触发 tab 键。有谁知道如何使这项工作？

4

5 回答 5

0

方法一

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

方法二

我从这个MSDN 线程将其转换为 VB.Net：System.Windows.Controls.WebBrowser 的焦点问题

您需要将 ActiveElement 更改webBrowser.Document.ActiveElement.Focus()为文本框或按钮。

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

方法三

另一种方法可能是在 HTML 中进行，例如：

OnLoad="document.myform2.mybutton.focus();">
于 2012-06-24T04:38:47.697 回答
0

另一种方法：

使用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()
于 2012-06-24T10:30:13.140 回答
0

假设你的页面的 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
于 2012-06-24T09:43:54.003 回答
0

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

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

这将把焦点放在称为密码的元素上！

用于Me.WebBrowser1.Document.All.Item("YOURelement")找到正确的元素，然后添加.Focus()以专注于您想要的元素！:D

于 2016-12-10T16:08:04.300 回答
-1

这样做 Me.WebBrowser1.Document.All.Item(textbox1.text).Focus()

制作一个文本框，然后如果您想使用 Spambot，它很容易检测您每次输入和发送的类型

于 2017-11-23T12:37:38.020 回答