20090416_004_005


※上記の広告は60日以上更新のないWIKIに表示されています。更新することで広告が下部へ移動します。


===



Set objFso02 = CreateObject("Scripting.FileSystemObject")
Set objFile02 = objFso02.OpenTextFile("C:\Documents and Settings\parao\My Documents\w\b.txt", 8, True)


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

'①表示したページの<BODY>部のHTMLを取得し画面に表示
strBody = objIE0.Document.Body.InnerHtml
'WScript.echo strBody

'②表示したページの<BODY>部のテキストだけを取得し画面に表示
strBody = objIE0.Document.Body.InnerText
WScript.echo strBody


    objFile02.WriteLine "aaa " & vbcrlf &  vbcrlf & objIE0.Document.Body.InnerText

objFile02.Close
Set objFile02 = Nothing
Set objFso02 = Nothing

'オブジェクトの破棄
Set objIE0 = Nothing
 


===

ツールボックス

下から選んでください:

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