> なあ(;´Д`)このｽｸﾘﾌﾟﾄﾝ何？
>  myPAGE = "http://www.cosp.jp/prof.aspx?id=18777"
>  Set myIE = CreateObject("InternetExplorer.application")
>  myIE.Visible = False
> 
> For I = 1 To 100000 Step 1
>  myIE.Navigate myPAGE
>  mySTOP(myIE) '読み込むまで待つ
>  I = I - 1
> Next
> Sub mySTOP(myIE)
>     Do 
>       If myIE.Busy = False Then Exit Do
>     Loop
>     Do 
>       If myIE.Document.readyState = "complete" Then Exit Do
>     Loop
> End Sub

英語は分からんので翻訳につっこんでみたよ(;´Д`)

 myPAGEは" http://www.cosp.jp/prof.aspx?id=18777 "と等しいです。

myIE=CreateObject("InternetExplorer.application")myIE.Visibleを= 虚偽で設定してください。


'1?100000ステップ1私=myIE.Navigate myPAGE mySTOP(myIE)'読み込むまで待つI=I--1
次へ

サブmySTOP(myIE)
してください。誤った当時のmyIE.Busy=出口が輪にされるなら、してください。myIE.Document.readyStateが当時の「完全な」出口と等しいなら、終わりの潜水艦を輪にしてください。

参考：2010/05/05(水)09時57分55秒