08/01/08 07:55:03 BSb3RJ0k0
URLﾘﾝｸ(www.vid-dl.net)
↑を使ってダウンロードする場合はアドレスの貼り付けが手作業になる。
「URLリストを開く」でアドレスがまとめて取得できるが、ファイル名が正しくない。
表示されるファイル名を取得して自動的に保存するスクリプトをUWSCで書いてみた。
保存場所はデフォルトなので、あらかじめ１つめをダウンロードして場所を指定しておかないと場所が分からなくなる。
コピペ用 >>21
/////////
// 定義
// ダウンロードサポートサイト
url="URLﾘﾝｸ(www.vid-dl.net)"
//str
//furl
//fname
/////////////
// 処理開始
// IEの起動
IE = CREATEOLEOBJ("InternetExplorer.Application")
IE.visible = True
IE.navigate(url)
REPEAT; SLEEP(0.1); UNTIL !IE.busy AND IE.readystate = 4
ID = GETID(GET_ACTIVE_WIN)
// 動画ページアドレス取得
furl=GETSTR(0)
if !pos( "http", furl ) THEN exit
// 動画ファイルアドレス取得
IE.document.forms[0].URL.value = furl
IE.document.forms[0].url_submit.click()
REPEAT; SLEEP(0.1); str = GetSTR( ID, 3, STR_ACC_EDIT ); UNTIL pos( "http", str )
SendSTR( 0, GetSTR( ID, 4, STR_ACC_EDIT ) )
//sendstr(id, "", 3); sendstr(id, "記事ほんぶん")
// 動画ファイルのダウンロード
SLEEP(0.5); IE.navigate(str)
SLEEP(1); CLKITEM( GetID("ファイルのダウンロード"), "保存(S)" )
SLEEP(0.5); SendSTR( GetID("名前を付けて保存"), GetSTR(0) )
SLEEP(0.5); CLKITEM( GetID("名前を付けて保存"), "保存" )
// 上書きはキャンセル
SLEEP(0.5)
Ifb GetID("名前を付けて保存") Then
CLKITEM( GetID("名前を付けて保存"), "いいえ" )
SLEEP(0.5)
CLKITEM( GetID("名前を付けて保存"), "キャンセル" )
endif
sleep(3)
//IELINK( IE, "この検索結果を閉じる" )