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”键来访问的按钮？

谢谢大家！

- Trung Tran

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

- Ansgar Wiechers

---

对我没用。它激活了应用程序，但没有让它出现。 :( - Daniel

Answer 2

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

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

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

- Paul M Edwards

Answer 3

这个在我的电脑上可以运行，它会打开IE并加载www.google.com：

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

关于你最后一个问题...可能是，但你需要更具体，并且最好在另一个问题中提问。

- Daniel

Answer 4

使用wscript.sleep()函数。应该可以工作，因为这在记事本上也可以。

- Khizar Caliphate

---

你的回答可以通过提供更多支持信息来改进。请编辑以添加进一步的细节，例如引用或文档，以便他人可以确认你的答案是正确的。您可以在帮助中心中找到有关如何编写良好答案的更多信息。 - Community