タイトル : Re: インターネットページを自動的に開く 投稿日 : 2005/01/29(Sat) 22:01 投稿者 : じゃんぬねっと 参照先 : http://jeanne.wankuma.com/
じゃんぬねっと です。 > Process.Start("hhttp://www.xxx.co.jp/") > でOKですが、ページが最後まで表示されたかがわからなく、 まずブラウザを決めてください。 この方法では、Process を返すことができない (関連起動) になっていますよね。 IE ならば hProcess = Process.Start("IExplore", "hhttp://f57.aaa.livedoor.jp/~jeanne/") という感じで、Process を戻り値として返すことができます。 > 一つのページが表示されないまま、次々とページを開きにいって > 最後まで表示されるのは最後のURLだけとなってしまいます。 > よろしくおねがいします。 タイマを使ってこんな実験してみましょう。 Private WithEvents mTimer As New Timer() Private mStrSaveUrl As String = "" Private Sub FormMain_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load mTimer.Interval = 1000 mTimer.Enabled = True End Sub Private Sub mTimer_Tick(ByVal sender As Object, ByVal e As EventArgs) Handles mTimer.Tick If mStrSaveUrl <> txtUrl.Text Then mStrSaveUrl = txtUrl.Text Dim hProcess As Process = Process.Start("IExplore", mStrSaveUrl) hProcess.WaitForInputIdle() End If End Sub |