自動化ツールuwsc使いよ集まれ2

IE = CreateOLEObj("InternetExplorer.Application")
IE.Visible = True
IE.Navigate("http://prog-etc.bbs.thebbs.jp/1164265310/")// 掲示板
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

moji="荒井「なんだばかやろ」"
case　6
moji="志村「あいーん」"
case　7
moji="また来週"
selend
select RANDOM(3)
case　0
mo="志村"
case　1
mo="また来週"
case　2
mo="加藤"
selend
IE.document.all["crypt_moto"].value = moji// タイトル書込み
IE.document.all["name"].value =mo // 名前書込み
IE.document.all["body"].value =moji//テキスト書き込み
IE.document.all["sm"].click()
SLEEP(10)
ACW(GETID("THEBBS 書き込み - MICROSOFT INTERNET EXPLORER","IEFrame"),69,8,870,658,0)

IE.document.all["sm"].click()