<p><br /> ====<br /><br /> Dim s</p> <p>url_Val01 = "ttp://www.yourfilehostdb.com/"<br /> url_Val02 = "ttp://www.yourfilehost.com/media.php?cat=video&file=nagasawasentai_part002.wmv"</p> <p>'対象画面を検索、なければ開く(必要に応じ使用してください)<br /> Set xShell = CreateObject("Shell.Application")<br /> win_s = False<br /> For Each Window In xShell.Windows '対象URLが表示されているか?<br /> If TypeName(Window.Document) = "HTMLDocument" Then<br /> if Window.Document.url=url_Val01 then<br /> Set objIE0 = Window '対象URLが表示→その画面を使う<br /> win_s=true<br /> exit for<br /> end if<br /> end if<br /> next</p> <p>if win_s=false then '対象URLが非表示→新しく画面を開く</p> <p> Set objIE0 = CreateObject("InternetExplorer.Application")<br /> objIE0.Visible = True<br /> objIE0.Navigate url_Val01</p> <p> Do While objIE0.busy = True<br /> '空ループだと無駄にCPUを使うので250ミリ秒のインターバルを置く<br /> WScript.sleep(250)<br /> Loop</p> <p> Do While objIE0.document.readyState <> "complete"<br /> Loop<br /> end if<br /> '---header end---</p> <p>'---以下操作コード、必要な部分をコピーしてください---<br /> 'objIE0.document.all.q.value=url_Val02 ' text index=2<br /> 'objIE0.document.all.Submit.click ' submit Submit ログイン or tags("INPUT").item(4).Click</p> <p>on error resume next<br /> objIE0.document.form1.yourfilehosturl.value=url_Val02 ' text index=2<br /> 'objIE0.document.all.Submit.click ' submit Submit ログイン or tags("INPUT").item(4).Click<br /> objIE0.document.form1.Submit.click ' submit Submit ログイン or tags("INPUT").item(4).Click</p> <p> Do While objIE0.busy = True<br /> '空ループだと無駄にCPUを使うので250ミリ秒のインターバルを置く<br /> WScript.sleep(250)<br /> Loop</p> <p> Do While objIE0.document.readyState <> "complete"<br /> Loop</p> <p>'①表示したページの<BODY>部のHTMLを取得し画面に表示<br /> strBody = objIE0.Document.Body.InnerHtml<br /> WScript.echo strBody</p> <p>'②表示したページの<BODY>部のテキストだけを取得し画面に表示<br /> strBody = objIE0.Document.Body.InnerText<br /> WScript.echo strBody</p> <p>'オブジェクトの破棄<br /> Set objIE0 = Nothing<br /> <br /><br /><br /><br /> ====</p>