vbsの作法 その84

# 概要
vbsの作法、調べてみた。
練習問題やってみた。

# 練習問題
yahooオークションでコインローファーを検索して結果を取得せよ。

# 方針
- IE11使う。
- windows11でやる。

# サンプルコード

```

Dim ws
Set ws = WScript.CreateObject("WScript.Shell")
Dim objIE
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True
objIE.Navigate "https://auctions.yahoo.co.jp"
ws.AppActivate("Internet Explorer")
Do While objIE.ReadyState <> 4 Or objIE.Busy = True
    WScript.Sleep 100
Loop
For Each elm In objIE.Document.getElementsByTagName("INPUT")
	If elm.value = "" then
		elm.value = "コインローファー"
	End If
Next
Dim objBtn
Set objBtn = objIE.document.getElementById("acHdSchBtn")
objBtn.click
Do While objIE.ReadyState <> 4 Or objIE.Busy = True
    WScript.Sleep 100
Loop
Dim title(80)
Dim price(80)
Dim i
Dim j
i = 0
For Each elm In objIE.Document.getElementsByClassName("Product__title")
	title(i) = Trim(elm.textContent)
	i = i + 1
Next
j = 0
For Each elm In objIE.Document.getElementsByClassName("Product__priceValue")
	price(j) = elm.textContent
	j = j + 1
Next
Dim k
For k = 0 to i
	WScript.Echo title(k) + " : " + price(k)
Next
objIE.Quit
Set objIE = Nothing


```

# 実行結果

```

                        Florsheim フローシャイム ロイヤルインペリアル コードバン バーガンディ コインローファー US8D ブラックラピド製法 メンズ U.S.A製 革靴
 : 22,000円

                        ロイドフットウェア Lloyd Footwear イングランド製 ローファー コインローファー貴重なヴィンテージシューズ
 : 22,000円

                        極美品 定価3.96万 ジャランスリワヤ ユナイテッドアローズ 別注モデル ローファー レザー コインロー ファー 箱 靴袋 付属 通勤 ビジネス
 : 15,500円

                        新品◆BASS バス◆コインローファー◆ブラック◆US7/25cm
 : 30,000円

                        Florsheim フローシャイム ロイヤルインペリアル コードバン バーガンディ コインローファー US8D ブラックラピド製法 メンズ U.S.A製 革靴
 : 7,400円

                        BASS バス◆コインローファー◆ブラウン◆US7.5/25.5cm
 : 22,000円

                        ☆未使用品☆ PEAL&Co BROOKSBROTHERSコインローファー 8D Crockett&Jones製 / ブラック ホワイト / クロケット&ジョーンズ
 : 22,000円

                        BASS バス◆コインローファー◆ブラウン◆US9.5/27.5cm
 : 5,400円

                        未使用 大塚製靴 オオツカセイカ コインローファー シューズ メンズ ダークブラウン 25 EEE 2004OT-1502
 : 37,000円

                        KK220 マドラス madras el greco 新品 黒 コインローファー スリッポン 超軽量 ビジネスシューズ 快適 クッション 25.0 3E 抗菌防臭 1224
 : 37,000円

                        KK258 マドラス madras el greco 新品 黒 コインローファー スリッポン 超軽量 ビジネスシューズ 快適 クッション 27.0 3E 抗菌防臭 1224
 : 5,400円

                        G.H.bass バス 黒 レザー コインローファー US7 【約 25cm】【メンズ】
 : 3,302円

                        BASS バス◆コインローファー◆ブラック◆US8/26cm
 : 4,180円

                        【特別価格】LOVELESS 牛革 レザー コイン ローファー スリッポン シューズ ホワイト メンズ2
 : 4,180円

                        即決新品★G.H.BASS(バス)★WEEJUNS 9D　コインローファー　007
 : 3,000円

                        KK225 マドラス madras 定価17600円 黒 コインローファー 牛革 ビジネスシューズ 25.5 新品 via cammino ブラック 就活 冠婚葬祭 VC8048
 : 4,500円

                        REGAL　リーガル　26.5　コイン ローファー　黒　778　革靴　ビジネス
 : 5,400円

                        未使用★(伊)サントーニ SIZE 7【コインローファー/13903】カーフ/灰/メンズ/Santoni★m356-8
 : 1,400円

                        KK126 マドラス madras el greco 新品 コインローファー スリッポン 超軽量 ビジネスシューズ 快適クッション 25.5 3E 抗菌防臭 茶 1224
 : 1,500円

                        即決新品★G.H.BASS(バス)★WEEJUNS ９D　コインローファー　005
 : 14,900円

                        8-1/2D表記　26.5cm相当　 COLE HAAN コールハン　ペニーローファー　コインローファー　革靴　レザー シューズ　ブラック/U8887
 : 14,900円

                        KK265 マドラス madras 定価17600円 黒 コインローファー 牛革 ビジネスシューズ 26.5 新品 via cammino ブラック 就活 冠婚葬祭 VC8048
 : 6,930円

                        新品 訳あり 25.5cm 本革 日本製 革靴 コインローファー メンズ シューズ 3E 履きやすい スエード 高級 紳士 カジュアル ダークブラウン 茶
 : 6,900円

                        KK221 マドラス madras el greco 新品 コインローファー スリッポン 超軽量 ビジネスシューズ 快適クッション 27.0 3E 抗菌防臭 茶 1224
 : 29,980円

                        【新品同様】大塚製靴 オオツカセイカ Otsuka+ オーツカプラス OP1005NA レザー コインローファー シューズ 25 1/2 ブラック メンズ
 : 29,980円

                        グラッドハンド　リーガル　GLADHAND　REGAL　コラボ　コインローファー　靴　ギャングスタービル　ウ ィアード　サドルシューズ　ドレス
 : 4,180円

                        新品☆高級ソフト本革製のコインローファー☆焦茶☆26.0㎝
 : 14,900円

                        10-1/2D表記　28.5cm相当　G.H.BASS&Co. Weejuns　ジーエイチバス　ウィージャンズ　コインローファー 　ペニー　革靴　ワイン/24.7.9/P1178
 : 14,900円

                        8.5 JALAN SRIWIJAYA ジャランスリワヤ コインローファー ローファー シューズ 黒 98589 18045 /J7
 : 4,950円

                        送料無料/新品★ スペイン製 内ボア 防寒コインローファー ALBEROLA C024G (アルベローラ)
 : 6,930円

                        1円スタート売切り 新品未使用 GUNDAM コインローファー 27cm US9 BEIGE 機動戦士ガンダム 連邦 ローファー シューズ ジオン軍コイン付き
 : 4,180円

                        X314/LANVIN COLLECTION コインローファー スリッポン ビジネスシューズ シボ感 Uチップ 7 1/2 25.5cm 黒
 : 4,730円

                        E612 USA製 COLE HAANコールハーン メンズ コインローファー ビジネスシューズ 約 25cm 〜 25.5cm ブラック レザー
 : 4,180円

                        KK272 マドラス madras el greco 新品 黒 ストレッチ 晴雨兼用 コインローファー スリッポン 撥水 超軽量 ビジネスシューズ 26.0 3E 1298
 : 3,410円

                        G.H.BASS & CO Weejuns LOGAN 2005 647 ペニーローファー size 8D ジーエイチバス 革靴 ウィージャンズ レザーシューズ コインローファー
 : 20,000円

                        KK205 マドラス madras 定価17600円 黒 コインローファー 牛革 ビジネスシューズ 25.0 新品 via cammino ブラック 就活 冠婚葬祭 VC8048
 : 20,000円

                        即決 ROCKPORT ロックポート コインローファー ペニーローファー ブラウン 茶色 メンズ 本革 レザー 革靴 27cm ビジネスシューズ E1968
 : 4,000円

                        8.5 未使用 JALAN SRIWIJAYA ジャランスリワヤ コインローファー ローファー シューズ 黒 98589 18045 /J59
 : 4,000円

                        Allen Edmondsコードバンコインローファー茶8.5DホーウィンアレンエドモンズオールデンAlden
 : 4,950円

                        971KK マドラス madras el greco 新品 黒 軽量 コインローファー スリッポン 抗菌防臭 ビジネスシュー ズ 26.0 3E 空気循環 防滑ソール 1294
 : 19,800円

                        KK203 マドラス madras el greco 新品 茶 コインローファー スリッポン 超軽量 ビジネスシューズ 快適 クッション 26.0 3E 抗菌防臭 1224
 : 19,800円

                        即決新品★G.H.BASS(バス)★WEEJUNS US7　コインローファー　006
 : 1,980円

                        【中古】ローク Loake スエード コインローファー ブラウン【サイズ5 1/2F】
 : 520円

                        1円スタート売切り 新品未使用 GUNDAM コインローファー 27cm BLACK 機動戦士ガンダム 連邦 ローファー シューズ ジオン軍コイン付き
 : 7,980円

                        新品未使用　パラブーツ　UK6 　アドニス　24.5cm〜　コインローファー　ブラック　黒 革靴 レザーシューズ ビジネスシューズ　
 : 3,725円

                        即決新品★G.H.BASS(バス)★WEEJUNS US8.5　コインローファー　001
 : 4,180円

                        【新品】HARUTA ハルタ　本革 コイン ローファー　26cm 3E トラディショナル　黒　ブラック　レザー　 未使用　日本製　革靴　※箱無
 : 6,750円

                        未使用 HARUTA ARVIN 6550 コインローファー 29.0cm 3E BLACK 日本製 軽量 雨に強い 送料無料
 : 6,930円

                        Alan McAfee アランマカフィー Church's 旧チャーチ製 コインローファー 8.5C 英国製 26.5 27.0相当 ビジネス レザーシューズ
 : 5,800円

                        6 新品 Jalan Sriwijaya ジャランスリワヤ コインローファー ローファー シューズ 黒 98998 18045 黒 /J36
 : 5,800円

                        極上★HISAO SAITO/斎藤久夫 SIZE 6【貴重★リザード仕様/コインローファー/黒】メンズ★m357-5
 : 22,800円

                        ◆SPERRY TOP-SIDER◆スペリートップサイダー 28.5cm（表記CM28.5）コインローファー 黒 ブラック メンズ 革靴 靴 レザー 中古 宅急便 即決
 : 22,800円

                        G865 COLE HAAN コールハーン メンズ コインローファー ビジネスシューズ 9E 約 27cm ブラック レザー
 : 48,500円
 : 4,180円

```
以上。