Amazon Web サービス…

自分の蔵書管理とAmazonでの漫画本自動購入ツールを作りたくてAWSをいじっているのですが…。さっぱりわからない。

Dim aws As New AWSECommerceService
Dim request As New ItemSearchRequest
Dim requests(1) As ItemSearchRequest
Dim itemSearch As New ItemSearch
Dim response As ItemSearchResponse
Dim info As Items
Dim items() As Item

request.SearchIndex = "Books"
request.Power = "title:" & Me.TextBox1.Text
request.ResponseGroup = New String() {"Request", "Small"}
request.Sort = "salesrank"
request.ItemPage = 1
requests = New ItemSearchRequest() {request}

itemSearch.AssociateTag = "XXXXX"
itemSearch.SubscriptionId = "XXXXXXXXXXXXXXXXXXXX"
itemSearch.Request = requests

Try
    response = aws.ItemSearch(itemSearch)
    info = response.Items(0)
    items = info.Item

    Label1.Text = ""

    For Each item As Item In items
        Label1.Text = Label1.Text & item.ItemAttributes.Title
    Next

Catch ex As Exception
    Console.WriteLine(ex.Message)
End Try

とりあえず、検索はできるようになったのだけど問題はたくさん。
1秒に1回しかリクエストを送ることができないので、大量の検索を一気に行うのが難しい。*1
はてなのはまぞうは一体どうやっているのかな。一度検索した結果はキャッシュに保存するようにしているんだろうけど。うーん。まいったな。

*1:当然といえば当然なんだけど…