20090416_004_002

「20090416_004_002」の編集履歴（バックアップ）一覧はこちら

「20090416_004_002」(2009/04/16 (木) 17:01:39) の最新版変更点

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

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

<p><br />
===<br /><br /><br />
Dim s<br />
'対象画面を検索、なければ開く（必要に応じ使用してください）<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="<a href="http://www.yourfilehostdb.com/">http://www.yourfilehostdb.com/</a>" 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 "<a href="http://www.yourfilehostdb.com/">http://www.yourfilehostdb.com/</a>"</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="<a href="http://www.yourfilehost.com/media.php?cat=video&amp;file=nagasawasentai_part001.wmv">http://www.yourfilehost.com/media.php?cat=video&amp;file=nagasawasentai_part001.wmv</a>"
' 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="<a href="http://www.yourfilehost.com/media.php?cat=video&amp;file=nagasawasentai_part001.wmv">http://www.yourfilehost.com/media.php?cat=video&amp;file=nagasawasentai_part001.wmv</a>"
' 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<br /><br /><br />
===</p>

<p><br />
===<br /><br /><br />
Dim s<br />
'対象画面を検索、なければ開く（必要に応じ使用してください）<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="<a href="http://www.yourfilehostdb.com/">http://www.yourfilehostdb.com/</a>" 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 "<a href="http://www.yourfilehostdb.com/">http://www.yourfilehostdb.com/</a>"</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="ttp://www.yourfilehost.com/media.php?cat=video&amp;file=nagasawasentai_part001.wmv"
' 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="ttp://www.yourfilehost.com/media.php?cat=video&amp;file=nagasawasentai_part001.wmv"
' 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><br />
===</p>