概要
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円
以上。