7.9 フォームの操作2 - VBScript & JScript(JavaScript) Tips for WSH

7.9 フォームの操作2

　入力フォームを送信(SUBMIT)する場合の方法です。IEオブジェクトのDocumentオブジェクトを使って行います。

　これも、基本的にはHTML内に書くスクリプト(JavaScriptやVBScript)でやるときの方法と一緒です。

Documentオブジェクト(送信関連)

　フォームの送信をする場合の、Documentオブジェクトの使い方です。

　◆ターゲットの指定／Target
　フレーム分割やインラインフレームを使っているときに送信結果を表示する部分を指定したい場合や、送信結果を別ウィンドウに表示したい場合などに指定します。フレーム分割やインラインフレームを使っているときに省略すると、フォームを表示している部分に送信結果が表示されます。必要が無ければ特に指定する必要はありません。

IEオブジェクト.Document.フォーム名.Target = フレーム名

　※送信結果を別ウィンドウに表示したい場合は_blankなどを指定します

　◆送信形式の指定／Method
　GETまたはPOSTを指定します。GET形式はhttp://…/xxx.cgi?p1=abc&p2=defなどのようにURLに情報を乗せるときの指定、POST形式は独立したデータとして送る場合の指定です。

IEオブジェクト.Document.フォーム名.Method = "POST"または"GET"

　◆送信先の指定／Action
　送信先のcgi・aspなどのアプリケーションやURLを指定します。

IEオブジェクト.Document.フォーム名.Action = 送信先のアプリケーション名やURL

　◆送信／Submit
　フォームの情報を送信します。

IEオブジェクト.Document.フォーム名.Submit

使用例

　送信の例です。内容的には7.8 フォームの操作1と同じですが、最後にボタンを押す代わりにフォームを送信(①)しています。

　ちなみに、送信する先のURLは架空のものです。試してみたい場合は、cgiやaspなどで試験用のアプリケーションや環境を用意し、そこへ向けて発射送信の実験をしてください。くれぐれも、他人の掲示板などで発射送信実験をしないように！

Option Explicit

Dim objIE

'objIEオブジェクトを作成します
Set objIE = CreateObject("InternetExplorer.Application")

'ウィンドウの大きさを変更します
objIE.Width = 800
objIE.Height = 600

'表示位置を変更します
objIE.Left = 0
objIE.Top = 0

'インターネットエクスプローラ画面を表示します
objIE.Visible = True

'カラのページを表示します
'(これを行わないと以降のdocument.writeなどがエラーになるため)
objIE.Navigate "about:blank"

'HTMLを出力します
objIE.Document.Write "<html>" & vbcrlf
objIE.Document.Write "<head>" & vbcrlf
objIE.Document.Write "<title>7.8 フォームの操作</title>" & vbcrlf
objIE.Document.Write "</head>" & vbcrlf
objIE.Document.Write "<script language=""javascript"">" & vbcrlf
objIE.Document.Write "function msg1() {" & vbcrlf
objIE.Document.Write "    alert(""わっ！"");" & vbcrlf
objIE.Document.Write "}" & vbcrlf
objIE.Document.Write "</script>" & vbcrlf
objIE.Document.Write "<body>" & vbcrlf
objIE.Document.Write "<form name=""fm1"">" & vbcrlf
objIE.Document.Write "<table border=1 cellpadding=2 cellspacing=0>" & vbcrlf
objIE.Document.Write "<tr>" & vbcrlf
objIE.Document.Write "<td>名前<br></td>" & vbcrlf
objIE.Document.Write "<td><input type=text name=txtName size=10><br></td>" & vbcrlf
objIE.Document.Write "</tr>" & vbcrlf
objIE.Document.Write "<tr>" & vbcrlf
objIE.Document.Write "<td>性別<br></td>" & vbcrlf
objIE.Document.Write "<td>" & vbcrlf
objIE.Document.Write "<select name=txtSex>" & vbcrlf
objIE.Document.Write "<option value=""0""></option>" & vbcrlf
objIE.Document.Write "<option value=""1"">男</option>" & vbcrlf
objIE.Document.Write "<option value=""2"">女</option>" & vbcrlf
objIE.Document.Write "</select>" & vbcrlf
objIE.Document.Write "</td>" & vbcrlf
objIE.Document.Write "</tr>" & vbcrlf
objIE.Document.Write "<tr>" & vbcrlf
objIE.Document.Write "<td>E-Mail<br></td>" & vbcrlf
objIE.Document.Write "<td><input type=text name=txtMail size=30><br></td>" & vbcrlf
objIE.Document.Write "</tr>" & vbcrlf
objIE.Document.Write "<tr>" & vbcrlf
objIE.Document.Write "<td>URL<br></td>" & vbcrlf
objIE.Document.Write "<td><input type=text name=txtUrl size=50><br></td>" & vbcrlf
objIE.Document.Write "</tr>" & vbcrlf
objIE.Document.Write "<tr>" & vbcrlf
objIE.Document.Write "<td>チェックボックス<br></td>" & vbcrlf
objIE.Document.Write "<td><input type=checkbox name=chkCheck size=50><br></td>" & vbcrlf
objIE.Document.Write "</tr>" & vbcrlf
objIE.Document.Write "<tr>" & vbcrlf
objIE.Document.Write "<td>ラジオボタン<br></td>" & vbcrlf
objIE.Document.Write "<td>" & vbcrlf
objIE.Document.Write "<input type=radio name=radSelect value=1>A<br>" & vbcrlf
objIE.Document.Write "<input type=radio name=radSelect value=2>B<br>" & vbcrlf
objIE.Document.Write "<input type=radio name=radSelect value=3>C<br>" & vbcrlf
objIE.Document.Write "</td>" & vbcrlf
objIE.Document.Write "</tr>" & vbcrlf
objIE.Document.Write "<tr>" & vbcrlf
objIE.Document.Write "<td>押してみて<br></td>" & vbcrlf
objIE.Document.Write "<td>" & vbcrlf
objIE.Document.Write "<input type=button name=btnMsg value=Click onClick=""msg1()"">" & vbcrlf
objIE.Document.Write "</td>" & vbcrlf
objIE.Document.Write "</tr>" & vbcrlf
objIE.Document.Write "</table>" & vbcrlf
objIE.Document.Write "</form>" & vbcrlf
objIE.Document.Write "</body>" & vbcrlf
objIE.Document.Write "</html>" & vbcrlf

'フォームを設定します
objIE.Document.fm1.txtName.value ="結城圭介"
objIE.Document.fm1.txtSex.selectedIndex = 1
objIE.Document.fm1.txtMail.value ="webmaster@happy2-island.com"
objIE.Document.fm1.txtUrl.value ="http://www.happy2-island.com/"
objIE.Document.fm1.chkCheck.checked = True
objIE.Document.fm1.radSelect(1).checked = True

'①送信に必要な情報を設定しフォームを送信します
'(URLは架空のもので存在しません)
objIE.Document.fm1.Action="http://abc.xyxyxy-xyxyxy.zzz/"
objIE.Document.fm1.Method="POST"
objIE.Document.fm1.Submit

'送信後のページ切り替えが終わるまでココでグルグル回る
Do Until objIE.Busy = False
   '空ループだと無駄にCPUを使うので250ミリ秒のインターバルを置く
   WScript.sleep(250)
Loop

'送信が完了したらコンソールにメッセージを表示
WScript.echo "送信しました"

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

[PR]結城圭介。が書いたVBS(WSH)の本

■最速攻略 VBScriptサンプル大全集
◆最速攻略 Excel VBA サンプル大全集

（アマゾンへジャンプします）

VBScript&JScript Tips

■インターネットエクスプローラ操作編

7.インターネットエクスプローラの操作
  7.1 IEオブジェクトを作る(～IE6編)
     ・Internet Explorer 6での方法
     ・ついでにIEの終了方法
  7.11 IEオブジェクトを作る(IE7編)
     ・Internet Explorer 7での方法
  7.2 IE画面を表示・非表示にする
  7.3 ウィンドウの操作
     ・ウィンドウサイズの指定
     ・表示位置の指定
     ・ステータスバーへ文字列を表示、その他
  7.4 指定したページを表示
     ・ついでに読み込みが終わるまで待つ方法
  7.5 ページを書き込む
     ・ついでに画面をクリアする方法
  7.6 ページのタイトルを取得する
  7.7 <BODY>部のHTMLを取得する
     ・ついでに<BODY>部のテキストも取得
  7.8 フォームの操作1
     ・テキストボックスなどへ値を入れる方法
     ・他にボタンを押したりなど
  7.9 フォームの操作2
     ・フォームを送信する方法
  7.10 フォームの操作3
     ・フォーム名やコントロール名が無い場合の対処

■基本編
■ファイル・フォルダ操作編
■Excel & Access操作編
■インターネットエクスプローラ操作編
■データアクセス編

Happy! Happy! Islandその他のコンテンツ

■VBAプログラミング、その他
　Access VBAプログラミング＆Tips
　Excel VBA(エクセルマクロ)プログラミング＆Tips
　VBScript＆JScriptプログラミング＆Tips for WSH
　プログラミング基礎・入門
　HTMLの書き方
■ダウンロードコーナー
　AccessとExcelのフリーソフト
■コミュニティー
　VBA質問掲示板
■その他
　オレの話を聞けぇ♪（仮称／コラム）
　管理人プロフィール
　管理人へメール
■別館(海外向けサイト)
　SAMURAI Game Center - Freeware games for Microsoft ACCESS and EXCEL!

VBAプログラミング＆Tips集の
"Happy! Happy! Island"トップページへ

[リンク]IT関連情報サイトなど

gihyo.jp
技術評論社提供のIT関連コンテンツサイト

モーグ
スキルアップ・問題解決はモーグにおまかせ！

[リンク]一番クリックした国が優勝

ClickClickClick.com
クリッカー＆認証人募集！日本を1位にしよう！もちろん、おいらも参加中！各種情報の入手はClickJapanオフィシャルサイトで。

[PR]証券会社・投資運用関連サイト

カブドットコム証券
逆指値・W指値等の自動売買でリスク管理追求型の投資が可能！引け後のIRやニュースを見てからでも間に合う夜間取引も魅力！

マネックス証券
オンライントレード・自動売買の最先端！「逆指値・ツイン指値」でリスクコントロール！デイトレードなら片道手数料無料！

Ｅ＊トレード証券
オンライン専業証券№１の口座数！業界最低水準の手数料体系と充実のサービスラインナップ！

楽天証券のマーケットスピード
ネット証券最強のトレーディングツール「マーケットスピード」でプロ水準の投資環境がご自宅のパソコンに！

オンライン証券徹底比較
価格．ｃｏｍで証券徹底比較！手数料、取引商品、信用取引金利、逆指値などの注文方法や提供情報などを徹底比較！