複数のURLを使ったvbsスクリプトの繰り返し

Question

このスクリプトを自動的に実行する必要がありますが、urllist.txtファイルで指定された異なるURLを使用してください。

Dim objWshShell,IE,searchStr 

Set objWshShell = Wscript.CreateObject("Wscript.Shell") 
Set IE = CreateObject("InternetExplorer.Application") 

With IE 
    .Visible = True 
    .Navigate "url.com" 

    Do While .Busy 
    WScript.Sleep 100 
    Loop 

set objButtons = IE.document.getElementsByTagName("button") 
for each objButton in objButtons 
    strText = objButton.innerhtml 

    if InStr(strText,"rtes") > 0 then 
    'msgbox strText 
objButton.click 
     exit for 
     end if 
next 
end with 
ie.quit 

urllist.txt内容：

url1.com url2.com ...

あなたが助けてくださいことはできますか？

Answer 1

readlineメソッドを使用してテキストファイルを開き、行ごとにコードを実行します。

コード：

Dim IE,searchStr, objFso, objFile, strFilePath 
strFilePath = "store the file's path in this variable" 'store the path here 
Set IE = CreateObject("InternetExplorer.Application") 
IE.visible=True 
Set objFso = createObject("Scripting.FileSystemObject") 
Set objFile = objFso.OpenTextFile(strFilePath,1) 
While Not objFile.AtEndOfStream 
    IE.Navigate trim(objFile.Readline) 
    Do While IE.Busy 
     WScript.Sleep 100 
    Loop 
    set objButtons = IE.document.getElementsByTagName("button") 
    for each objButton in objButtons 
     strText = objButton.innerhtml 
     if InStr(1,strText,"rtes") > 0 then 
      'msgbox strText 
      objButton.click 
      exit for 
     end if 
    next 
Wend 
IE.Quit 
objFile.Close 
Set objFile = Nothing 
Set objFso = Nothing 
Set IE = Nothing