如何使用VBScript将鼠标发送到div答案

【问题标题】：How to send mouse up to div using VBScript如何使用VBScript将鼠标发送到div
【发布时间】：2012-04-13 16:38:36
【问题描述】：

我有一个简单的 VBScript 可以执行下一步操作：

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

页面上有发送信息的按钮（看起来像）。此按钮的单击事件不起作用，因为它是 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

【问题讨论】：

标签： vbscript mouseup

【解决方案1】：

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

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

【讨论】：

不，我做不到，也许 GWT 在 IE 中效果不佳，或者在 IE 9 中 fireEvent 不起作用

【解决方案2】：

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

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

【讨论】：