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