Get-BrowserControl.ps1
|
function Get-BrowserControl { <# .Synopsis Gets a control from a browser .Description Gets a control from a browser. Controls can be selected by id, name, tagname, and innertext .Link Get-BrowserControl .Link Open-Browser #> [CmdletBinding(DefaultParameterSetName='Id')] [OutputType([PSObject], [string])] param( # The Browser Object. [Parameter(Mandatory=$true, ValueFromPipeline=$true, ValueFromPipelineByPropertyName=$true)] [ValidateScript({ if ($_.psobject.typenames -notcontains 'System.__ComObject' -and -not $_.Quit) { throw "Not IE" } $true })] $IE, # The ID of the object within the page [Parameter(Mandatory=$true, ParameterSetName='ById')] [string]$Id, # The name of the object within the page [Parameter(Mandatory=$true, ParameterSetName='ByName')] [string]$Name, # The tag name of the object within the page [Parameter(Mandatory=$true, ParameterSetName='ByTagName')] [string]$TagName, # Will find a tag title within items a specific tag [string]$TagTitle, # Will find a css class within items of a specific tag or name [string]$CssClass, # Will find a link that points to a particular HREF [Parameter(Mandatory=$true, ParameterSetName='ByHref')] [string]$Href, # The property of the document object [Parameter(Mandatory=$true, ParameterSetName='ByInnerText')] [string]$DocumentProperty, # The inner text to find. [Parameter(Mandatory=$true, ParameterSetName='ByInnerText')] [string]$InnerText, # If set, will find elements that have an innertext like the value, rather than an exact match [Parameter(ParameterSetName='ByInnerText')] [switch]$Like ) process { #region Get the Controls if ($psCmdlet.ParameterSetName -eq 'ById') { $ie.Document.getElementById($id) } elseif ($psCmdlet.ParameterSetName -eq 'ByName') { $ie.Document.getElementById($name) } elseif ($psCmdlet.ParameterSetName -eq 'ByHref') { $ie.Document.getElementsByTagName("A") | Where-Object { $_.Href -eq $HRef} } elseif ($psCmdlet.ParameterSetName -eq 'ByTagName') { $found = $ie.Document.getElementsByTagName($tagname) if ($tagTitle) { $Found = $found | Where-Object { $_.Title -eq $tagTitle } } if ($CssClass) { $found = $found } } elseif ($psCmdlet.ParameterSetName -eq 'ByInnerText') { foreach ($obj in $ie.Document.$DocumentProperty) { if ($like) { if ($obj.InnerText -like "$InnerText") { $obj } } else { if ($obj.InnerText -eq "$InnerText") { $obj } } } } #endregion Get the Controls } } |