===Dim s'対象画面を検索、なければ開く(必要に応じ使用してください)Set xShell = CreateObject("Shell.Application")win_s = FalseFor Each Window In xShell.Windows '対象URLが表示されているか? If TypeName(Window.Document) = "HTMLDocument" Then if Window.Document.url="http://www.yourfilehostdb.com/" then Set objIE0 = Window '対象URLが表示→その画面を使う win_s=true exit for end if end ifnext
if win_s=false then '対象URLが非表示→新しく画面を開く
Set objIE0 = CreateObject("InternetExplorer.Application") objIE0.Visible = True objIE0.Navigate "http://www.yourfilehostdb.com/"
Do While objIE0.busy = True '空ループだと無駄にCPUを使うので250ミリ秒のインターバルを置く WScript.sleep(250) Loop
Do While objIE0.document.readyState <> "complete" Loopend if'---header end---
'---以下操作コード、必要な部分をコピーしてください---'objIE0.document.all.q.value="ttp://www.yourfilehost.com/media.php?cat=video&file=nagasawasentai_part001.wmv" ' text index=2'objIE0.document.all.Submit.click ' submit Submit ログイン or tags("INPUT").item(4).Click
on error resume nextobjIE0.document.form1.yourfilehosturl.value="ttp://www.yourfilehost.com/media.php?cat=video&file=nagasawasentai_part001.wmv" ' text index=2'objIE0.document.all.Submit.click ' submit Submit ログイン or tags("INPUT").item(4).ClickobjIE0.document.form1.Submit.click ' submit Submit ログイン or tags("INPUT").item(4).Click
===
このサイトはreCAPTCHAによって保護されており、Googleの プライバシーポリシー と 利用規約 が適用されます。
1文字以上入力してください
本文は少なくとも1文字以上必要です。
1文字以上入力してください。
下から選んでください: