Vista - Simulating a button click to bypass a prompt

Hi everyone. I'm trying to use VB script to load a table from a HTML
page to a text file. The problem is that the webpage has a EULA
agreement prompt which i need to get past in order to download the
table. I get an error message about button sometimes but at times the
button is being clicked, although IE.document.body is non-existent and
nothing gets written to the file.

Do any of you know how I can click the button that appears but at the
same time be able to access the document body of the page I get to.

Thanks
Paul

Dim strContents
Dim row
Dim Tables, Table
Dim IE, IE2, IE3
Dim TableData, Td, Tr, Trs
Dim Data, Data1
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate ("https://www.noridianmedicare.com/p-medb/enroll/
optout/oregon_optout.html")
Do While IE.Busy
Loop
wscript.sleep(100)

strContents = Space(1)
IE.document.getElementbyID("eula-accept").click()

Set Tables = IE.document.Body.getElementsbyTagName("table")

Set myFSO = CreateObject("Scripting.FileSystemObject")
Set WriteStuff = myFSO.OpenTextFile("\\db1\production\Files
\MedicareOptoutProviderList\medicareoptout.txt", 2, True)

For Each Table In Tables
Set TableData = Tables.Item(0)
Set Trs = TableData.getElementsbyTagName("tr")
For Each Tr In Trs
Set Data = Tr.getElementsbyTagName("td")
For Each Td In Data
row = row & Td.innertext & vbTab
Next
row = Replace(row, vbCrLf, strContents)
WriteStuff.WriteLine(row)
row = ""
Next
Next
WriteStuff.Close
IE.Quit

"piancu" <paul.r.iancu@newsgroup> wrote in message
news:e1f622dc-d889-407b-bcf7-12761ee94675@newsgroupIf you open the three web pages below in the shown order then you should be
able to access your table:

1. https://www.noridianmedicare.com/p-m...on_optout.html
2. https://www.noridianmedicare.com/eul...oll%2F&agree=1
3. https://www.noridianmedicare.com/p-m...on_optout.html

On Oct 30, 3:17*am, "Pegasus [MVP]" <n...@newsgroup> wrote:

Thank You! The navigation works but the document body doesn't seem to
have anything in it.

IE.Navigate ("https://www.noridianmedicare.com/p-medb/enroll/
optout/oregon_optout.html")
Do While IE.Busy
Loop
IE.Navigate ("https://www.noridianmedicare.com/%2Fp-medb%2Fenroll
%2F&agree=1")
Do While IE.Busy
Loop
IE.Navigate ("https://www.noridianmedicare.com/p-medb/enroll/
optout/oregon_optout.html")
Do While IE.Busy
Loop
wscript.sleep(100)

strContents = Space(1)

Set Tables = IE.document.Body.getElementsbyTagName("table")

On Oct 30, 11:07*am, piancu <paul.r.ia...@newsgroup> wrote:I found the problem. I had to use the url of the I Agree button, the
url that appears at the bottom of the browser window when the mouse is
over the button.

IE.Navigate ("https://www.noridianmedicare.com/eula.php?t=%2Fp-medb
%2Fenroll%2Foptout2Foregon_optout.html&agree=1")

"piancu" <paul.r.iancu@newsgroup> wrote in message
news:6a962ee1-e96a-496d-bc2d-e36305890821@newsgroup
On Oct 30, 11:07 am, piancu <paul.r.ia...@newsgroup> wrote:I found the problem. I had to use the url of the I Agree button, the
url that appears at the bottom of the browser window when the mouse is
over the button.

IE.Navigate ("https://www.noridianmedicare.com/eula.php?t=%2Fp-medb
%2Fenroll%2Foptout2Foregon_optout.html&agree=1")

=============

Thanks for the feedback.