Something went wrong. Try again later

bmetaylor

This user has not updated recently.

10 1 18 0
Forum Posts Wiki Points Following Followers

bmetaylor's forum posts

Avatar image for bmetaylor
bmetaylor

10

Forum Posts

1

Wiki Points

0

Followers

Reviews: 0

User Lists: 0

#1  Edited By bmetaylor

My app was blocked again. I really can't figure out what I'm doing wrong. I have added the user agent header, I have a rate limiter set to 2 seconds between requests, and I'm not using more than one API key. Any other suggestions? I don't know what to try at this point.

Avatar image for bmetaylor
bmetaylor

10

Forum Posts

1

Wiki Points

0

Followers

Reviews: 0

User Lists: 0

Ok. So today my api requests were working fine again. I added a rate limiter set to 2 seconds between requests to be on the safe side. However, I did see something odd:

While l was testing my new code, I kept checking the Current API Usage on http://www.giantbomb.com/api/. Normally it returned what I expected. However several time I got the message:

"Your API key is currently blocked because you used more than one key at a time. Please stop doing that and wait 24 hours to use only one key."

This is odd for two reasons:

1. I don't have more than one API key and I have checked every place in my code that uses my key and can't find any typos.

2. I'm not getting blocked and when I refresh the page the message goes away.

Has anyone else seen this? I hope that I'm not mistakenly doing something that is going to get me in trouble.

Avatar image for bmetaylor
bmetaylor

10

Forum Posts

1

Wiki Points

0

Followers

Reviews: 0

User Lists: 0

I added a user agent header (which I did not have before). However, I'm still getting the same error, even with single requests. Below is my code:

Dim strInput As String

strInput = Cells(1, 1)

strInput = Replace(strInput, " ", "%20")

Dim myURL As String

myURL = "http://api.giantbomb.com/search/?query=" & strInput & "&api_key=XXXXXXX&format=xml&resources=game&field_list=id,name,original_release_date"

Set myrequest = CreateObject("WinHttp.WinHttpRequest.5.1")

myrequest.Open "GET", _

myURL

myrequest.setRequestHeader "User-Agent", "bmetaylor-game_library_app"

myrequest.send

Dim strXML As String

strXML = myrequest.ResponseText

Cells(1, 2) = strXML

Avatar image for bmetaylor
bmetaylor

10

Forum Posts

1

Wiki Points

0

Followers

Reviews: 0

User Lists: 0

#4  Edited By bmetaylor

I have a small VBA application that uses the API to create a personal games list in excel. Recently I have been receiving the "Are you human?" message when visiting the website and most recently I think that my VBA app is also getting that message.

When I check the API homepage it say "You have no current rate limits. Go forth and query." But went I go forth my queries return nothing but the "Are you human?" message .

I don't think that I'm hitting the query limit, since unfortunately I don't get new games at that rate.

I could be that the requests per second is to high... But wouldn't I see that on the API homepage message.

I'm not trying to do anything malicious and any help or direction would be appreciated. I have spend a lot of time on this little app over the years and would be sad to see it die now.

Avatar image for bmetaylor
bmetaylor

10

Forum Posts

1

Wiki Points

0

Followers

Reviews: 0

User Lists: 0

#5  Edited By bmetaylor

Suikoden V should be removed from the list of Suikoden (the original game) releases.

Avatar image for bmetaylor
bmetaylor

10

Forum Posts

1

Wiki Points

0

Followers

Reviews: 0

User Lists: 0

#6  Edited By bmetaylor

@panderon: I was able to find Dark Souls using the API. The game ID is 32697 and the release IDs are 116246 (PC), 108522 (Xbox 360), and 108521 (PS3). I could be that you are building the URL or parsing the result incorrectly (or tried during a time that the GB serves were down).

Avatar image for bmetaylor
bmetaylor

10

Forum Posts

1

Wiki Points

0

Followers

Reviews: 0

User Lists: 0

#7  Edited By bmetaylor

I am trying to use VBA to import data from the API into excel. I have written code to format the ULR. But i am not sure how to send the request from the code to the API. I would also like the take the xml response and extract the information I want (ID,name,release date) to cells in excel. I am super new to any of this so feel free to dumb it down (however any help would be appreciated). Here is my code so far:

Private Sub CommandButton1_Click()

Dim strInput As String

strInput = TextBox1.Text

strInput = Replace(strInput, " ", "%20")

Dim myURL As String

myURL = "http://api.giantbomb.com/search/?query=" & strInput & "&api_key=ABCDEFG123456&format=xml&resources=game&field_list=id,name,original_release_date"

End Sub