>>370
そのソースを見て俺がアドバイスできるのは以下の2点。

1.Rb標準のcountFields、nthFieldは処理が遅い。代替のプラグインがけっこうあるのでそれを使うといいかと。
ttp://micono.hoops.ne.jp/rb/
ここがお薦め。
2.for構文の中にinStr(data,"<title>")を3回も処理している。
if inStr(data,"<title>") <> 0 then　を呼ぶ前に、
TheTitleAppeared = inStr(data,"<title>")
という様に一度変数に入れてしまい、後はこの変数で判断させた方がいいのでは。

あと気になった点。
socketBufferメソッドでif inStr(SBuffer,"</html>") <> 0 thenがtrueになった後、
addRow SBuffer
でaddRowに渡しているけれども、渡した後SBufferは空にしなくていいの？
実際に動いてるのを見てないから断言はできないけど。