array and shell

[James L Szatkowski, PE]

I'm using (successfully in VB Express) this routine:
Private Sub Button1_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s) Handles Button1.Click

Call Shell("C:\Progr am Files\Internet Explorer\IEXPLO RE.EXE
http://www.microsoft.c om", AppWinStyle.Min imizedNoFocus, True)

Call Shell("C:\Progr am Files\Internet Explorer\IEXPLO RE.EXE
http://www.yahoo.com",
AppWinStyle.Min imizedNoFocus, True)

Call Shell("C:\Progr am Files\Internet Explorer\IEXPLO RE.EXE
http://www.google.com" ,
AppWinStyle.Min imizedNoFocus, True)

End Sub

However, I'd like to

1) input an array of URL's and sequence through the URL's one at at time.

Right now this routine opens the first and stops until I close it, then
opens the second waiting again until I close it and then opens the third
window (instance) of IE.

I really want it

2) to load the first URL completely, then open the second URL in the same
window in place of the 1st, then 2nd URL, etc.).

Gotta be something simple... I just don't see an example anywhere

Thanks!
Jim

[Cor Ligthert [MVP]]

James,

I don't know if it helps your problem, but you more nice you can use the
application.Sta rt for this.

There is a sample for that on this page
http://www.vb-tips.com/dbpages.aspx?...a-14d6b93856e8

Cor
"James L Szatkowski, PE" <ja******@inovi on.comschreef in bericht
news:%2******** ********@TK2MSF TNGP04.phx.gbl. ..

I'm using (successfully in VB Express) this routine:
Private Sub Button1_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s) Handles Button1.Click

Call Shell("C:\Progr am Files\Internet Explorer\IEXPLO RE.EXE
http://www.microsoft.c om", AppWinStyle.Min imizedNoFocus, True)

Call Shell("C:\Progr am Files\Internet Explorer\IEXPLO RE.EXE
http://www.yahoo.com",
AppWinStyle.Min imizedNoFocus, True)

Call Shell("C:\Progr am Files\Internet Explorer\IEXPLO RE.EXE
http://www.google.com" ,
AppWinStyle.Min imizedNoFocus, True)

End Sub

However, I'd like to

1) input an array of URL's and sequence through the URL's one at at time.

Right now this routine opens the first and stops until I close it, then
opens the second waiting again until I close it and then opens the third
window (instance) of IE.

I really want it

2) to load the first URL completely, then open the second URL in the same
window in place of the 1st, then 2nd URL, etc.).

Gotta be something simple... I just don't see an example anywhere

Thanks!
Jim

[Branco Medeiros]

James L Szatkowski, PE wrote:

I'm using (successfully in VB Express) this routine:
Private Sub Button1_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s) Handles Button1.Click

Call Shell("C:\Progr am Files\Internet Explorer\IEXPLO RE.EXE
http://www.microsoft.c om", AppWinStyle.Min imizedNoFocus, True)

Call Shell("C:\Progr am Files\Internet Explorer\IEXPLO RE.EXE
http://www.yahoo.com",
AppWinStyle.Min imizedNoFocus, True)

Call Shell("C:\Progr am Files\Internet Explorer\IEXPLO RE.EXE
http://www.google.com" ,
AppWinStyle.Min imizedNoFocus, True)

End Sub

However, I'd like to

1) input an array of URL's and sequence through the URL's one at at time.

Right now this routine opens the first and stops until I close it, then
opens the second waiting again until I close it and then opens the third
window (instance) of IE.

I really want it

2) to load the first URL completely, then open the second URL in the same
window in place of the 1st, then 2nd URL, etc.).

<snip>

I'm affraid you'll have to give up the (apparent) simplicity of your
approach and consider dealing with InternetExplore r the COM object,
exposed by the Microsoft Internet Controls COM library (shdocvw.dll).

Something in the ways of:

<aircode>
Private WithEvents IE As SHDocVw.Interne tExplorer
Private mPageIndex As Integer
Private mPages() As String = { _
"www.google.com ", "www.microsoft. com", "www.digg.c om" _
}

Private Sub NextPage()
'Navigates to page pointed by mPages(mPageInd ex) and then increments
'mPageIndex

If mPageIndex < 0 OrElse mPageIndex >= mPages.Length Then Return
Dim URL As String = mPages(mPageInd ex)
mPageIndex += 1

If IE Is Nothing Then IE = New SHDocVw.Interne tExplorer
IE.Visible = True
IE.Navigate2(UR L)
End Sub

Private Sub IE_DocumentComp lete(...) _
Handles IE.DocumentComp lete
'When the pages finishes showing, move on to the next page
'(Yikes!)
NextPage()
End Sub
</aircode>

HTH.

Regards,

Branco.