新IE窗口中的Vbscript检测按钮

我有一个vbscript，可以打开一个网页，然后单击一个按钮。该按钮在新窗口上打开一个新的弹出网页（注意：窗口不是选项卡）

我想在我的脚本按下按钮并打开一个新窗口后，检测并单击该新窗口中名为

id=“pagesHeaderLikeButton”

的按钮，然后关闭该窗口

到目前为止，我的剧本是：

Set IE = createobject("internetexplorer.application") 
strURL = "website"

Do While True
IE.navigate strURL 
IE.Visible = true   
Do While (IE.Busy Or IE.READYSTATE <> 4)    
    WScript.Sleep 1000
Loop
    Set Popupbutton = IE.Document.GetElementsByClassName("single_like_button btn3-wrap")
    for each button in Popupbutton
       button.click
       WScript.Sleep 5000
    exit for
    objWindow.Quit
    WScript.Sleep 5000
next
Loop

Set IE=createobject（“internetexplorer.application”）
strURL=“网站”
做正确的事
即导航strURL
可见=真实
请稍等片刻（即忙碌或准备就绪状态4）
WScript.Sleep 1000
环
设置Popupbutton=IE.Document.GetElementsByClassName（“单一类按钮btn3包装”）
对于Popupbutton中的每个按钮
按钮。点击
WScript.Sleep 5000
退出
objWindow，退出
WScript.Sleep 5000
下一个
环

也要注意。我想这样做，因为弹出窗口将始终有一个新的url

For Each wnd In CreateObject("Shell.Application").Windows
        If InStr(wnd.Name,"Internet") Then
            if InStr(wnd.Document.URL,"facebook.com") Then
                Set IE2 = wnd
                Exit For
            End If
        End If
Next

上面的脚本将找到URL为facebook.com/***的任何打开的IE，并将IE2设置为打开的IE

因此，按下按钮：

Set Butlike = IE2.Document.getElementsById("pagesHeaderLikeButton")
    For Each btn In Butlike
    button.click
Next

---

所以没有人可以帮忙？在所有打开的MSIE窗口中搜索。您可以使用

Shell.Application

property找到它们并获取它们的句柄；这里有一个例子。据我所知，你的脚本会检测IE是否被打开。在我的例子中，此脚本打开一个网站并单击该网站上的按钮。单击该按钮时，它将打开一个新的IE窗口，其中该按钮具有此

id=“pagesHeaderLikeButton”

，我希望我的脚本在该新IE窗口上按该按钮。我无法使脚本直接打开该网站并按下按钮，因为链接将随机生成。是的，您的脚本将打开一个新的IE窗口。。。在这之后，就是使用

“shell.application”

在所有打开的MSIE窗口中搜索的正确时间。当然，你的标准是不同的，但方法是一样的，不是吗？嗯，我尝试了一些东西，但没有成功。。。我无法通过ID获取按钮。您的脚本很好，但您的脚本在新打开的窗口中检测到url，但我无法使脚本检测到该按钮。你能做一个更简单的版本吗？按钮是：

id=“pagesHeaderLikeButton”