Vb.net 如何单击Web浏览器中的javascript按钮,而该代码在网页源代码中未显示?

Vb.net 如何单击Web浏览器中的javascript按钮,而该代码在网页源代码中未显示?,vb.net,Vb.net,访问本网站: 单击“玩”,下注0,然后单击“玩” 现在我发现有趣的是,如果你查看页面的源代码,没有显示游戏板的代码。我认为它需要的Java脚本之一是棋盘游戏。在inspect element中,您可以看到棋盘游戏的元素 所以,我的问题是,如果网站加载到VB中的webbrowser中,是否可以单击其中一个游戏互动程序?如果是这样,请给我指出正确的方向 下面是我如何点击它的。(不起作用。) 啊!你想作弊!(或试图发送垃圾邮件) 当您单击互动程序时,网页发送XMLHTTPRequest以获取应答

访问本网站:

单击“玩”,下注0,然后单击“玩”


现在我发现有趣的是,如果你查看页面的源代码,没有显示游戏板的代码。我认为它需要的Java脚本之一是棋盘游戏。在inspect element中,您可以看到棋盘游戏的元素

所以,我的问题是,如果网站加载到VB中的webbrowser中,是否可以单击其中一个游戏互动程序?如果是这样,请给我指出正确的方向

下面是我如何点击它的。(不起作用。)


啊!你想作弊!(或试图发送垃圾邮件)


当您单击互动程序时,网页发送XMLHTTPRequest以获取应答状态。所以在你点击按钮之前,你看不到按钮下面有什么

我正在尝试制作一个机器人来为我玩这个游戏。^ u^谢谢你的信息!
Private Sub Clicktile()
    TextBox2.Text = TextBox2.Text + "Trying to click Tile..." + Environment.NewLine
    'Try statement so if it dicks up the program won't crash
    Try
        'Declares in Memory the page source as a HtmlElementCollection
        Dim ae As HtmlElementCollection = WebBrowser1.Document.All
        'Declares in Memory each Element within the page source
        For Each wpe As HtmlElement In ae

            If wpe.GetAttribute("data-tile") = "1" Then
                wpe.InvokeMember("click")
            Else
                TextBox2.Text = TextBox2.Text + "Error on ClickTile1" + Environment.NewLine
            End If

        Next
    Catch ex As Exception
       TextBox2.Text = TextBox2.Text + "Catch ex As Exception called" + Environment.NewLine
    End Try
End Sub