vb.net - 如何使用VB点击网页中的按钮？

Question

我正在创建一个单击网页上的按钮的 VB 脚本。我在他们提交表单的地方看到了诸如此类的答案。我不希望这样，因为我需要使用脚本单击按钮，以便使用通常的单击按钮工作流程。

顺便说一句，我正在使用 GWT 和 SmartClient，这使得它变得更加复杂，因为 ID 被混淆了。为了克服这个问题，我使用 GWT DEBUG_ID_PREFIX

Answer 1

如果您提供一个 GWT 按钮示例，以便像我这样不熟悉 GWT 的人获得帮助，那就太好了。我找到了一个包含 GWT 按钮（希望）的页面，并在此基础上写了一些东西。
考虑以下代码。

Sub WaitUntil(varObj)
    On Error Resume Next
    Do
        WScript.Sleep 100
    Loop Until Not varObj Is Nothing
    WScript.Sleep 500
End Sub

Dim IE
Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True
    IE.Navigate "http://gwt.google.com/samples/Showcase/Showcase.html#!CwBasicButton"
    WScript.Sleep 500
    WaitUntil IE.Document 'wait until the document is ready
    WaitUntil IE.Document.getElementById("gwt-debug-cwBasicButton-normal") 'wait until the button is initialized
    Dim theButton
    Set theButton = IE.Document.getElementById("gwt-debug-cwBasicButton-normal")
        theButton.Click
        'theButton.fireEvent "onclick" 'another way
Set IE = Nothing