20090416_004_004

「20090416_004_004」の編集履歴(バックアップ)一覧はこちら

20090416_004_004」(2009/04/16 (木) 17:26:47) の最新版変更点

追加された行は緑色になります。

削除された行は赤色になります。

<p><br /> ====<br /><br /><br /><br /><br /> ====</p>
<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&amp;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 &lt;&gt; "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 &lt;&gt; "complete"<br />  Loop</p> <p>'①表示したページの&lt;BODY&gt;部のHTMLを取得し画面に表示<br /> strBody = objIE0.Document.Body.InnerHtml<br /> WScript.echo strBody</p> <p>'②表示したページの&lt;BODY&gt;部のテキストだけを取得し画面に表示<br /> strBody = objIE0.Document.Body.InnerText<br /> WScript.echo strBody</p> <p>'オブジェクトの破棄<br /> Set objIE0 = Nothing<br />  <br /><br /><br /><br /> ====</p>

表示オプション

横に並べて表示:
変化行の前後のみ表示:
ツールボックス

下から選んでください:

新しいページを作成する
ヘルプ / FAQ もご覧ください。