vbscript - 如何使用VBScript将鼠标发送到div

Question

我有简单的 VBScript 来执行下一步操作：

1. 打开浏览器
2. 填写输入（登录名、密码等）

有用于在页面上发送信息的按钮（看起来像）。此按钮的单击事件不起作用，因为它是 GWT 按钮。我想向这个按钮发送 MouseUp 事件。

我怎样才能使用 VBScript 来做到这一点？

Function Main
 Set IE = WScript.CreateObject("InternetExplorer.Application", "IE_")
 IE.Visible = True
 IE.Navigate "http://example.com"
 With IE.Document
  .getElementByID("login").value = "Login"
  .getElementByID("password").value = "Password"
  'It doesn't work
  .getElementByID("div-button").MouseUp 
 End With
End Function

Answer 1

可以使用fireEvent方法触发事件。

.getElementByID("div-button").fireEvent "onmouseup"

Answer 2

我通过使用解决了我的问题

Function Main
 ' ...
 Dim objShell
 Set objShell = CreateObject("WScript.Shell")
 objShell.SendKeys "{TAB}"
 objShell.SendKeys "{TAB}"
 objShell.SendKeys "{ENTER}"
End Function