06/12/08 20:27:49 dcPVzq7I0
IE = CreateOLEObj("InternetExplorer.Application")
IE.Visible = True
IE.Navigate("URLﾘﾝｸ(prog-etc.bbs.thebbs.jp))// 掲示板
while True // 接続表示待ち
if (! IE.busy) and (IE.readyState=4) then Break
sleep(0.1)
wend
select RANDOM(7)
case 0
moji="長すけ「ばかやろ！」"
case 1
moji="仲本「長さんのいうとうり」"
case 3
moji="加藤「すんずれいしました」"
case 4
moji="高木「ブー」"
case 5