忍者ブログ

Home > > IEでサイトからダウンロード

[PR]

  • 2018-11-17
×

[PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。

Comments:

Trackback+Pingback:

Listed below are links to weblogs that reference
[PR] from 溺れる者はUWSCを掴め!

Home > > IEでサイトからダウンロード

Home > 実用スクリプト > IEでサイトからダウンロード

IEでサイトからダウンロード

  • 2011-12-03
  • 実用スクリプト

ファイルのアップロードを作ったのでついでにダウンロードも作ってみようという事でそのサンプル

追記12/21:サンプルの最後の行Fendが抜けてました<(_ _)>

ちなみにアップロードの方はこちらで
溺れる者はUWSCを掴め! - IE8でファイルのアップロード

//------------------------------------------
//動作環境 XPsp3,IE8で確認
//---------------<書式>-------------------
//      右クリックから保存などの場合使用
//      IEDownLoad(IE,ファイルのURL[,保存先フルパス,保存名,上書き設定])
//      ※[]内省略可

//---------------<sample 1>-------------------

url="http:/****.****.com/down/test.txt"
dl_pas="C:\Down"      //保存場所のフルパス
dl_name="sample.txt"   //保存名
over_w=false         //上書きする:True しない:false

IEDownLoad(IE,URL,dl_pas,dl_name,over_w)

//---------------<sample 2>-------------------

//URL以外デフォルト設定の場合
url="http:/****.****.com/down/test.txt"

IEDownLoad(IE,URL)



//--
Procedure IEDownLoad(IE,URL,dl_pas="",dl_name="",over_w=true)
   IE.Navigate2(URL,"&H800")
   Repeat   //反応が悪いのでダイアログが消えるまで繰返す
      dl=getid("ファイルのダウンロード","#32770", -1)
      Ctrlwin(dl,ACTIVATE)
      sckey(dl,VK_S)
      sleep(1)
   Until getid("ファイルのダウンロード","#32770")=-1
   SaveDialog(dl_pas,dl_name,over_w)
Fend
Procedure SaveDialog(dl_pas="",dl_name="",over_w=true)
   dl=getid("名前を付けて保存","#32770", -1)
   ifb dl_name=""
      dl_name=getstr(dl)
   endif
   ifb !(dl_pas="")
      ifb !(copy(dl_pas,Length(dl_pas))="\")
         dl_pas=dl_pas+"\"
      endif
   endif
   dl_pas=dl_pas+dl_name
   Sendstr(dl,dl_pas)
   Clkitem(dl, "保存(S)")
   sleep(2)
   sub=getid(GET_ACTIVE_WIN,"#32770", -1)
      ifb pos("上書きしますか?",getstr(sub,1,4))>0
         ifb over_w
            sckey(sub,VK_Y)
         else
            sckey(sub,VK_N)
            Clkitem(dl, "キャンセル")
         endif
      endif
   dl=getid("完了しました","#32770")
   ifb !(Chkbtn(dl,"ダウンロードの完了後、このダイアログ ボックスを閉じる"))
      sckey(dl,VK_C)
   endif
   dl=getid("ダウンロードの完了","#32770")
   Clkitem(dl, "閉じる")
Fend

Comments:0

Comment Form

Trackback+Pingback:0

TrackBack URL for this entry
Listed below are links to weblogs that reference
IEでサイトからダウンロード from 溺れる者はUWSCを掴め!

Home > 実用スクリプト > IEでサイトからダウンロード

Search
Meta
Links
Feeds
PR
PR

Page Top