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