echochio

Dim WebPage(7)
WebPage(0) = "http://echochio.pixnet.net/blog/post/32570517"
WebPage(1) = "http://echochio.pixnet.net/blog/post/32570549"
WebPage(2) = "http://echochio.pixnet.net/blog/post/32570679"
WebPage(3) = "http://echochio.pixnet.net/blog/post/32570699"
WebPage(4) = "http://echochio.pixnet.net/blog/post/32570709"
WebPage(5) = "http://echochio.pixnet.net/blog/post/32570783"
WebPage(6) = "http://echochio.pixnet.net/blog/post/32570799"
WebPage(7) = "http://echochio.pixnet.net/blog/post/32571685"


waitTime= 50000 'wait period in milliseconds'

'------------------------------------------------------------------------------ ' 

' Start Main loop'
i = 0
do
' Initialize IE'
Set objExplorer = CreateObject("InternetExplorer.Application")
'objExplorer.AddressBar = 1
'objExplorer.Toolbar = 1
'objExplorer.StatusBar = 1
'objExplorer.Width = 600
'objExplorer.Height = 400
'objExplorer.Left = 300
'objExplorer.Top = 150

' load next page
objExplorer.Navigate WebPage(i)

' wait while loading
Do Until (objExplorer.readyState = 4)
wscript.sleep 1000
Loop

' Show finnaly
objExplorer.Visible = 1

' wait period'
wscript.sleep waitTime


' close IE
objExplorer.Quit

' check our loop
i = i + 1
if i = 8 then
i = 0
end if
loop

===============================================================

開ＩＥ，關ＩＥ