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

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

403:名無しさん＠お腹いっぱい。
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

次ページ

続きを表示

1を表示