> > なあ(;´Д`)このｽｸﾘﾌﾟﾄﾝ何？
> >  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(水)10時01分07秒