古本査定スクリプト

JIVEさん

Option Explicit

Const ForReading = 1
Const ForWriting = 2
Const input = "isbn.txt"
Const output = "prices.txt"

Sub WaitForLoad(browser)
	Do While browser.Busy
		WScript.Sleep 100
	Loop
End Sub

Dim file_sys
Set file_sys = WScript.CreateObject("Scripting.FileSystemObject")
Dim stream_in
Set stream_in = file_sys.OpenTextFile(input, ForReading, True)
Dim reg_exp
Set reg_exp = New RegExp
reg_exp.Pattern = "^[0-9]+"
Dim browser
Set browser = WScript.CreateObject("InternetExplorer.Application")
browser.Visible = True
browser.Navigate "http://buybooks.jive-online.com/estimate.html"
WaitForLoad(browser)
Dim stream_out
Set stream_out = file_sys.OpenTextFile(output, ForWriting, True)
Do While Not stream_in.AtEndOfStream
	Dim line_in
	line_in = stream_in.ReadLine
	If reg_exp.Test(line_in) Then
		browser.Document.Forms(0).elements(0).value = Left(line_in, 13)
		browser.Document.Forms(0).elements(1).click
		WaitForLoad(browser)
		If 0 < browser.Document.Forms.Length Then
			Dim form
			Set form = browser.Document.Forms(0)
			Dim line_out
			line_out = form.elements(1).value & vbTab & form.elements(0).value & vbTab & form.elements(2).value
			stream_out.WriteLine line_out
		End If
		browser.GoBack()
		WaitForLoad(browser)
	End If
Loop

駿河屋さん（差分）

browser.Navigate "http://www.suruga-ya.jp/formmail_kaitori/baikyaku.php"
WaitForLoad(browser)
Do While Not stream_in.AtEndOfStream
	Dim line_in
	line_in = stream_in.ReadLine
	If reg_exp.Test(line_in) Then
		browser.Document.Forms("kensaku").elements("srch_jan").value = Left(line_in, 13)
		browser.Document.Forms("kensaku").elements("検索").click
		WaitForLoad(browser)
		If 1 < browser.Document.Forms.Length Then
			browser.Document.Forms(1).elements("cargo_in").click
			WaitForLoad(browser)
			browser.Document.Forms(0).elements(4).click
			WaitForLoad(browser)
		End If
	End If
Loop