IE6でネットを安定して観覧するには

初心者 2005-05-28 02:29:57 No: 122021

VB6を使いプロジェクトで参照設定  Microsoft Internet Control にチェックを入れ  IE6で  ネットを観覧するソフトを作っているのですが
はじめはうまく動くのですが  時間がたつうちに  ネットのアクセスが悪くなり
ほとんど動かなくなってしまいます
メモリーのせいでしょうか
私のマシンでは６０００くらいで止まってしまいます
どなたか解決策を教えていただけないでしょうか

Option Explicit
Public WithEvents MyIe As SHDocVw.InternetExplorer
Dim httplebel1, no
Private Sub Command1_Click()
Set MyIe = New SHDocVw.InternetExplorer

MyIe.Visible = True
MyIe.navigate httplebel1
End Sub

Private Sub Form_Load()

httplebel1 = "http://search.msn.co.jp/results.aspx?FORM=MSNH&v=1&RS=CHECKED&CY=ja&cp=932&q="
'httplebel2 = "http://www.msn.co.jp/home.armx"
no = 1
End Sub

Private Sub MyIe_DocumentComplete(ByVal pDisp As Object, URL As Variant)

Timer1.Enabled = True

End Sub

Private Sub interval()
MyIe.Quit

Set MyIe = Nothing

Set MyIe = New SHDocVw.InternetExplorer

MyIe.Visible = True

no = no + 1

MyIe.navigate httplebel1 & no

End Sub

Private Sub Timer1_Timer()
Timer1.Enabled = False

Call interval
End Sub

IE6で ネットを 安定して 観覧するには

IE6でネットを安定して観覧するには