button - VBS脚本将程序带到前面

Question

我正在编写 VBS 代码来打开 Internet Explorer 并转到 www.google.com 但是当我运行该程序时，它会打开并导航到 www.yahoo.com 但 Internet Explorer 不是前窗口。谁能帮我这个？有没有我可以用来将 Internet Explorer 带到最前面的代码？谢谢你们！这是我的代码：

Option Explicit
 Dim ie


Set ie = CreateObject("InternetExplorer.Application")

ie.Navigate("wwww.yahoo.com")

最后一个问题 - 有没有我可以用来点击某个按钮的代码 - 特别是我无法通过按“tab”到达的按钮？

谢谢你们！

Answer 1

试试这个：

Set ie = CreateObject("InternetExplorer.Application")
ie.Navigate "http://www.yahoo.com/"
Do While ie.Busy : WScript.Sleep 100 : Loop
ie.Visible = True
CreateObject("WScript.Shell").AppActivate ie.document.title

Answer 2

我发现在调用 AppActivate 方法后将Visible 属性设置为 True 可以@daniel-cook。

因此，只需交换@ansgar-wiechers 示例中的最后两行即可产生所需的结果。

Set ie = CreateObject("InternetExplorer.Application")
ie.Navigate "http://www.yahoo.com/"
Do While ie.Busy : WScript.Sleep 100 : Loop
CreateObject("WScript.Shell").AppActivate ie.document.title
ie.Visible = True

Answer 3

这适用于我的电脑，它打开 IE 并加载 www.google.com：

Dim oShell
Set oShell = CreateObject("WScript.Shell")
oShell.Run ("iexplore www.google.com")

至于你的最后一个问题......可能，但你需要更具体，并且可能应该问一个不同的问题。

Answer 4

使用该wscript.sleep()功能。应该可以，因为这可以在记事本上使用。