I have a trouble getting an element from HTML page
what I do is I navigate to a site then I want to find an element called "jobId"
Dim inputs
Set IE = WScript.CreateObject("InternetExplorer.Application")
IE.Visible = 1
IE.Navigate "SOME SITE"
then I want to loop through the site ( HTML CODE )
Set inputs = IE.Document.GetElementsByName("input")
x = msgbox(inputs)
x = msgbox(inputs.Length)
For each Z in inputs
x = msgbox("Item = "+Z,64, "input")
next
on the first msgbox I get an error of unspecified error of NULL
the element is in an iFrame ( I don't know if its impacting some how )
when I use ViewSource this is the elements I want to use :
<input type="hidden" name="videoUrl" value="https://vid-uss2.sundaysky.com:443/v1/w38/flvstreamer?jobId=5850f72f-46e1-49e1-953b-2a9acdf6dd01&authToken=d88fc69cea0c48769c3cd42e8481cd47&videoId=default"></input>
<input type="hidden" name="videoSessionId" value=""></input>
<input type="hidden" name="displaySurvey" value="true"></input>
<input type="hidden" name="isFlashPlayer" value="true"></input>
<input type="hidden" name="posterLocation" value="http://d21o24qxwf7uku.cloudfront.net/customers/att/attlogoinvitation.png"></input>
<input type="hidden" name="jobId" value="5850f72f-46e1-49e1-953b-2a9acdf6dd01"></input>
<input type="hidden" name="sundayskyBaseUri" value="https://att.web.sundaysky.com/"></input>
<input type="hidden" name="oldBucketMode" value="false"></input>
this is followed by my previous post Here
following your instructions I got to this point :
Dim jobId
Set IE = WScript.CreateObject("InternetExplorer.Application")
IE.Visible = 1
IE.Navigate "https://att.web.sundaysky.com/viewbill?bk=dNEdk01ykHC72rQil7D_iTzfjn7Qj4FN6fvJ_YE-ndY"
x = msgbox("Wait for page to load",64, "Job ID")
set jobId = IE.document.getElementsByName("jobId")
x = msgbox(jobId,64, "Job ID")
this is what I get ( and that's my best yet )
Please help Thanks !!
You're using getElementsByName
when you actually mean to use getElementsByTagName
. The former returns elements based on the value of their attribute name
:
<input name="videoUrl" ...>
whereas the latter returns elements based on the name of the tag:
<input name="videoUrl" ...>
Edit: Two other things I noticed:
You don't seem to wait for IE to finish loading the page (which might explain why you're getting Null
results). The Navigate
method returns immediately, so you have to wait for the page to finish loading:
Do
WScript.Sleep 100
Loop Until IE.ReadyState = 4
inputs
contains a DispHTMLElementCollection
, not a string, so trying to display it with a MsgBox
will give you a type error. Same goes for the members of the collection. If you want to display the tags in string form use the objects' outerHtml
property:
For Each Z In inputs
MsgBox "Item = " & Z.outerHtml, 64, "input"
Next
Edit2: To get just the value of the attribute value
of elements whose name
attribute has the value jobId
you could use this:
For Each jobId In IE.document.getElementsByName("jobId")
WScript.Echo jobId.value
Next
Edit3: The page you're trying to process contains an iframe
(sorry, I failed to notice that earlier). This is what prevents your code from working. Element getter methods like getElementsByName
or getElementsByTagName
don't work across frame boundaries, so you need to run those methods on the content of the iframe
. This should work:
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.Navigate "http://..."
Do
WScript.Sleep 100
Loop Until ie.ReadyState = 4
'get the content of the iframe
Set iframe = ie.document.getElementsByTagName("iframe")(0).contentWindow
'get the jobId input element inside the iframe
For Each jobId In iframe.document.getElementsByName("jobId")
MsgBox jobId.value, 64, "Job ID"
Next