Question

就在我以为我可以处理任何按钮的时候，我遇到了一个对我没有做出反应的尝试。这是我的代码的基本框架（非常基本）。只是尝试打开此页面并单击下一页按钮。

Set objWshShell = Wscript.CreateObject("Wscript.Shell")
Set IE = CreateObject("internetexplorer.application")
IE.Visible = True
IE.Navigate "http://centraloklahomaproperties.com/SiteContent/OKC/MemberSearchOKC.aspx"
Do Until IE.ReadyState = 4: WScript.sleep 100: Loop

On error resume next

Dim i
i = 0

Do while i < 5
i = i + 1

Do Until IE.ReadyState = 4: WScript.sleep 100: Loop

'Click button here!

Loop

我尝试过的事情：

1) IE.Navigate "javascript:open.document.getElementByID('btnRight').onclick;"

2) IE.Navigate "Javascript:window.opener.btnright.click();"

3) For Each btn In IE.Document.getElementsByTagName("img")
If btn.id = "btnRight" Then btn.Click()
Next

4) ie.navigate "javascript:InvokeScript('Next(1)');"

5) Browser.InvokeScript("Next(1)")

6) ie.Navigate( Uri("javascript:(function(){ Next(1); })();") )

7) Set oButton = IE.getElementById("btnRight")
oButton.Click()

此处也试过方法： How can I click a js button on VB

这是按钮html：

<img width="30" height="28" id="btnRight" onmouseover="Tab(event)" onmouseout="Tab(event)" onclick="Next(1);" alt="Next" src="http://centraloklahomaproperties.com/SiteContent/OKC/images/icon_arrow_next-default.gif">

奇怪的是，除非我专门右键单击左框架并查看源代码，否则就好像该框架甚至不存在一样。如果我只是在IE中打开页面并转到＆gt;编辑＆gt;来源，则它不存在。可能是我问题的一部分。

Answer 1

尝试更改：

Set IE = CreateObject("internetexplorer.application")

到

Set IE = WScript.CreateObject("InternetExplorer.Application","objIE_")

怎么样：

Set oButton = IE.getElementById("btnRight")
oButton.Click()

单击蓝色的按钮（从vbs单击js按钮）

1 个答案: