てきとーなサンプルコード
Option Explicit
Dim objIE
'IEオブジェクトを作成します
Set objIE = CreateObject("InternetExplorer.Application")
'ウィンドウの大きさを変更します
objIE.Width = 800
objIE.Height = 600
'表示位置を変更します
objIE.Left = 0
objIE.Top = 0
'ステータスバーとツールバーを非表示にします
objIE.Statusbar = False
objIE.ToolBar = False
'インターネットエクスプローラ画面を表示します
objIE.Visible = True
'ステータスバーとツールバーを表示します
objIE.Statusbar = True
objIE.ToolBar = True
dim list(1024) 'サイズは適当
dim i_max
i_max=0
Dim fso,file,str
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.OpenTextFile("list.txt", 1 )
while file.AtEndOfLine = false
str = file.ReadLine
list(i_max)=str
i_max=i_max+1
wend
dim i
for i=0 to i_max-1
'①指定したURLを表示します
objIE.Navigate list(i)
'②ページの読み込みが終わるまでココでグルグル回る
Do Until objIE.Busy = False
'空ループだと無駄にCPUを使うので250ミリ秒のインターバルを置く
WScript.sleep(250)
Loop
next
'IE閉じます
objIE.Quit
Set objIE = Nothing
