UWSCでWebの自動巡回
- (2010-09-17 10:21:37)
//自動巡回オートパイロット スクリプト
//-------------------------------
//とりあえず100個以内で巡回するURLを記述
//各URLを4秒表示し次のURLへ。空URLで終了
//-------------------------------
i=0
//100個の巡回URL確保
DIM urls[100] =_
"http://www.tokyocafe.net/slog/?eid=196",_
"http://www.tokyocafe.net/slog/?eid=197",_
"http://www.tokyocafe.net/slog/?eid=198",_
"http://www.tokyocafe.net/slog/?eid=199",_
"",_
"",_
"",_
"",_
"",_
"",_
""
//IE起動
ie = CreateOLEObj("InternetExplorer.Application" )
ie.visible = True
ie.navigate(urls[i])
sleep(4)
While True //表示待機
if (! ie.busy) and (ie.readyState=4) then Break
sleep(0.5)
Wend
While True //URL巡回
i=i+1
If (urls[i]="") then Break //次のURLがなくなればBreak
ie.navigate(urls[i])
sleep(4) //各URL4秒表示
Wend
//ie.Quit
//-------------------------------
<< (備忘録) IE< | >「e転居」郵便物の転送サービス、複雑すぎる >>