如何单击此按钮？在Visual Basic 2010中，WebBrowser控件

Question

我试图在WebBrowser Control中单击此按钮

我试图使用visual basic 2010 express从游戏停止购买网络自动化继承人我的代码看起来像什么 公共类Form1

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    WebBrowser1.Document.GetElementById("mainContentPlaceHolder_dynamicContent_ctl00_RepeaterResultFoundTemplate_ResultFoundPlaceHolder_1_ctl00_1_ctl00_1_StandardPlaceHolderTop_3_ctl00_3_rptResults_3_res_0_btnAddToCart_0").InvokeMember("Click")

End Sub

Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    WebBrowser1.Navigate("http://www.gamestop.com/browse?nav=16k-3-wwii,28zu0")
End Sub


Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    WebBrowser1.Document.GetElementById("cartcheckoutbtn").InvokeMember("Click")
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    WebBrowser1.Document.GetElementById("buyasguest").InvokeMember("Click")
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
    WebBrowser1.Document.GetElementById("ShipTo_FirstName").SetAttribute("value", "Rob")
    WebBrowser1.Document.GetElementById("ShipTo_LastName").SetAttribute("value", "Horton")
    WebBrowser1.Document.GetElementById("ShipTo_City").SetAttribute("value", "San Diego")
    WebBrowser1.Document.GetElementById("USStates").InvokeMember("Select")
    WebBrowser1.Document.GetElementById("ShipTo_Line1").SetAttribute("value", "9295 PebbleStone Ln")
    WebBrowser1.Document.GetElementById("ShipTo_PostalCode").SetAttribute("value", "92128")
    WebBrowser1.Document.GetElementById("ShipTo_PhoneNumber").SetAttribute("value", "6194682282")
    For Each ee As HtmlElement In WebBrowser1.Document.All
        If ee.InnerText Is Nothing Then Continue For
        If ee.InnerText = "California" Then ee.SetAttribute("Selected", True)
    Next
    WebBrowser1.Document.GetElementById("ShipTo_EmailAddress").SetAttribute("value", TextBox1.Text)
    For Each element As HtmlElement In WebBrowser1.Document.GetElementsByTagName("input")
        If element.GetAttribute("class") = "btn_positive ats-checkoutbtn" Then
            element.InvokeMember("click")
        End If
    Next







End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

我试图点击这个按钮，我检查了它，这就是** **

  

（继续结账▶）

** 我怎么做它点击这个我试过Id但它没有id 刚刚尝试制作一个自动网络自动化软件购买游戏的新手当我检查元素时，那里的代码位于顶部顶部

Answer 1

您实际上是在尝试点击链接而不是输入按钮。

该链接具有onclick属性，该属性包含javascript并返回false。

所以你可以找到那个链接，也可以只执行链接执行的Javascript submitshipto()

WebBrowser1.InvokeScript("submitshipto()")

或者：

For Each element As HtmlElement In WebBrowser1.Document.GetElementsByTagName("a")
    If element.GetAttribute("class") = "btn_positive ats-checkoutbtn" Then
        element.InvokeMember("click")
    End If
Next