点击后访问下一个网页

Question

要求：单击下面以$ ie.Navigate命名的网页后。 我需要访问接下来打开的HTML / OuterHTML网页源。

例如：当我打开https://www.healthkartplus.com/search/all?name=Sporanox （通过设置$ control = Sporanox）时，下面的代码只需单击第一个匹配的链接。 单击链接后，我需要访问结果页面的HTML。

更新：提出了另一个SO问题，并得知我们可以搜索适当的窗口。 代码似乎适用于某些情况，但不适用于所有情况。 对于$ ie2，我在访问Document属性时遇到问题。

function getStringMatch
 {
    # Loop through all 2 digit combinations in the $path directory
    foreach ($control In $controls)
    {
        $ie = New-Object -COMObject InternetExplorer.Application
        $ie.visible = $true
        $site = $ie.Navigate("https://www.healthkartplus.com/search/all?name=$control")
        $ie.ReadyState

        while ($ie.Busy -and $ie.ReadyState -ne 4){ sleep -Milliseconds 100 }

        $link = $null
        $link = $ie.Document.get_links() | where-object {$_.innerText -eq "$control"}
        $link.click()

        while ($ie.Busy -and $ie.ReadyState -ne 4){ sleep -Milliseconds 100 }

       $ie2 = (New-Object -COM 'Shell.Application').Windows() | ? {
       $_.Name -eq 'Windows Internet Explorer' -and $_.LocationName -match "^$control"
       }

        # NEED outerHTML of new page. CURRENTLY it is working for some.

        $ie.Document.body.outerHTML > d:\med$control.txt
    }
}

$controls = "Sporanox"

getStringMatch

Answer 1

我认为问题是当您在第一页中查找链接时。 链接innerText不等于$ control，它包含$ control，即innerText是“ Sporanox（100mg）”。

以下内容可能会有所帮助：

$link = $ie.Document.get_links() | where-object {if ($_.innerText){$_.innerText.contains($control)}}

编辑

这是我正在使用的完整代码：

function getStringMatch
{
    # Loop through all 2 digit combinations in the $path directory
    foreach ($control In $controls)  
    {
        $ie = New-Object -COMObject InternetExplorer.Application
        $ie.visible = $true
        $site = $ie.Navigate("https://www.healthkartplus.com/search/all?name=$control")
        $ie.ReadyState

        while ($ie.Busy -and $ie.ReadyState -ne 4){ sleep -Milliseconds 100 }   

        $link = $null
        $link = $ie.Document.get_links() | where-object {if ($_.innerText){$_.innerText.contains($control)}}
        $link.click()

        while ($ie.Busy)
        { 
            sleep -Milliseconds 100 
        }

        # NEED outerHTML of new page. CURRENTLY it is working for some.

        $ie.Document.body.outerHTML > d:\med$control.txt
    }
}

$controls = "Sporanox"

getStringMatch