Simulating a button click to bypass a prompt

Prev: Set AD Computer Member Of attribute using the computer object
Next: Sorting files by month

From: piancu on 29 Oct 2009 23:29

---

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

From: Pegasus [MVP] on 30 Oct 2009 06:17

---

"piancu" <paul.r.iancu(a)gmail.com> wrote in message
news:e1f622dc-d889-407b-bcf7-12761ee94675(a)y10g2000prg.googlegroups.com...
> 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

If 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-medb/enroll/optout/oregon_optout.html
2. https://www.noridianmedicare.com/eula.php?t=%2Fp-medb%2Fenroll%2F&agree=1
3. https://www.noridianmedicare.com/p-medb/enroll/optout/oregon_optout.html

From: piancu on 30 Oct 2009 14:07

---

On Oct 30, 3:17 am, "Pegasus [MVP]" <n...(a)microsoft.com> wrote:
> "piancu" <paul.r.ia...(a)gmail.com> wrote in message
>
> news:e1f622dc-d889-407b-bcf7-12761ee94675(a)y10g2000prg.googlegroups.com...
>
>
>
>
>
> > 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
>
> If 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-medb/enroll/optout/oregon_optout.html
> 2.https://www.noridianmedicare.com/eula.php?t=%2Fp-medb%2Fenroll%2F&agr....
> 3.https://www.noridianmedicare.com/p-medb/enroll/optout/oregon_optout.html- Hide quoted text -
>
> - Show quoted text -



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")

From: piancu on 30 Oct 2009 16:17

---

On Oct 30, 11:07 am, piancu <paul.r.ia...(a)gmail.com> wrote:
> On Oct 30, 3:17 am, "Pegasus [MVP]" <n...(a)microsoft.com> wrote:
>
>
>
>
>
> > "piancu" <paul.r.ia...(a)gmail.com> wrote in message
>
> >news:e1f622dc-d889-407b-bcf7-12761ee94675(a)y10g2000prg.googlegroups.com....
>
> > > 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
>
> > If 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-medb/enroll/optout/oregon_optout.html
> > 2.https://www.noridianmedicare.com/eula.php?t=%2Fp-medb%2Fenroll%2F&agr...
> > 3.https://www.noridianmedicare.com/p-medb/enroll/optout/oregon_optout.h....Hide quoted text -
>
> > - Show quoted text -
>
> 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")- Hide quoted text -
>
> - Show quoted text -

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")

From: Pegasus [MVP] on 30 Oct 2009 16:36

---

"piancu" <paul.r.iancu(a)gmail.com> wrote in message
news:6a962ee1-e96a-496d-bc2d-e36305890821(a)y28g2000prd.googlegroups.com...
On Oct 30, 11:07 am, piancu <paul.r.ia...(a)gmail.com> wrote:
> On Oct 30, 3:17 am, "Pegasus [MVP]" <n...(a)microsoft.com> wrote:
>
>
>
>
>
> > "piancu" <paul.r.ia...(a)gmail.com> wrote in message
>
> >news:e1f622dc-d889-407b-bcf7-12761ee94675(a)y10g2000prg.googlegroups.com...
>
> > > 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
>
> > If 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-medb/enroll/optout/oregon_optout.html
> > 2.https://www.noridianmedicare.com/eula.php?t=%2Fp-medb%2Fenroll%2F&agr...
> > 3.https://www.noridianmedicare.com/p-medb/enroll/optout/oregon_optout.h...Hide
> > quoted text -
>
> > - Show quoted text -
>
> 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")- Hide quoted
> text -
>
> - Show quoted text -

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.

 | 
Pages: 1
Prev: Set AD Computer Member Of attribute using the computer object
Next: Sorting files by month