Home > > IE8でファイルのアップロード

[PR]

2024-04-18
[PR]

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

Comments:

ぽん 2012-04-03 (火) 20:36: nameがおなじ"upfile"で参照ボタンがいくつか並んでいるのですが、連番などもないしどうやって区別したら良いでしょうか？
溺れる者はUWSCを掴め！ 2012-04-03 (火) 23:31: そういうのはこのスクリプトじゃ無理ですねぇ
nameが同じであれば目的のボタンまでスキップする処理追加とかで対応とかになると思います。
doc.forms(i).elements(ii).click()
または
doc.all.tags("input").item(i).click()
とかでクリックできるようにうまく持って行ってみてください。

Trackback+Pingback:

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

Home > > IE8でファイルのアップロード

Home > 実用スクリプト > IE8でファイルのアップロード

Newer
Older

IE8でファイルのアップロード

2011-11-19
実用スクリプト
IE8でファイルのアップロード

IE8以降からはセキュリティの関係でファイルアップロードのファイル指定をDOM操作等で出来なくなっている。

こういうやつ→　

ファイル指定をするには参照ボタンを押してダイアログ経由からUPするわけだが今後も汎用的につかうと思われるのでユーザー関数を作成しておくといい。

今回はそのサンプル

//------------------------------------------
//動作環境 XPsp3,IE8で確認
//---------------<sample>-------------------

file="C:\001.Jpg"//アップするファイルのフルパス
name="upfile"    //参照ボタンのnameが"upfile"の場合
IEupload(IE,name,file)

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



//--ダイアログ用スレッド起動＆参照ボタンクリック
Procedure IEupload(IE,name,file)
   Thread FileupDialog(file)
   doc=IE.document
   COM_ERR_IGN
   for i=0 to doc.forms.length-1
      for ii=0 to doc.forms(i).elements.length-1
         ifb doc.forms(i).elements(ii).name=name
            doc.forms(i).elements(ii).click()
            Break 2
         endif
      next
   next
   COM_ERR_RET
Fend
//--ダイアログファイル選択＆ボタンクリック
Procedure FileupDialog(file)
   id = Getid("アップロードするファイルの選択","#32770",-1)
   sleep(1)
   Ctrlwin(id,ACTIVATE)
   Sendstr(id,file,1,True)
   Clkitem(id,"開く(O)")
Fend

Comments:1

ぽん 2012-04-03 (火) 20:36: nameがおなじ"upfile"で参照ボタンがいくつか並んでいるのですが、連番などもないしどうやって区別したら良いでしょうか？
溺れる者はUWSCを掴め！ 2012-04-03 (火) 23:31: そういうのはこのスクリプトじゃ無理ですねぇ
nameが同じであれば目的のボタンまでスキップする処理追加とかで対応とかになると思います。
doc.forms(i).elements(ii).click()
または
doc.all.tags("input").item(i).click()
とかでクリックできるようにうまく持って行ってみてください。