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< | >郵便物の転送サービス >>
search
layout
admin

[▲page top]