Our systems have detected unusual traffic
Posted: 20 Dec 2010, 16:15
Correct Forum?
"Our systems have detected unusual traffic from your computer network. This page checks to see if it's really you sending the requests, and not a robot."
Google has, quite rightly IMHO, suspended operations on the grounds that malware might have overtaken my system.
I have programmed Word/VBA to loop along a local street here, checking every address from "3000 Wharton Way" to "3300 Wharton Way".
Right now I detect the Google pause and the MsgBox allows me to type the captcha and no harm done. (If I didn't do this I'd end up with about 250 identical text files which start "Our systems have detected unusual traffic ").
Apart from the hiccough at the start of such a run, is anyone aware of any other detrimental effects on this operation?
I read through the Google terms of service and didn't see anything banning a programmed loop to obtain data from pages of hits.
"Our systems have detected unusual traffic from your computer network. This page checks to see if it's really you sending the requests, and not a robot."
Google has, quite rightly IMHO, suspended operations on the grounds that malware might have overtaken my system.
I have programmed Word/VBA to loop along a local street here, checking every address from "3000 Wharton Way" to "3300 Wharton Way".
Right now I detect the Google pause and the MsgBox allows me to type the captcha and no harm done. (If I didn't do this I'd end up with about 250 identical text files which start "Our systems have detected unusual traffic ").
Apart from the hiccough at the start of such a run, is anyone aware of any other detrimental effects on this operation?
I read through the Google terms of service and didn't see anything banning a programmed loop to obtain data from pages of hits.
Code: Select all
Set doc = ie.Document
Dim strResult As String
If doc Is Nothing Then
strResult = "strLoadLinkToDocument Failed to load document. " & strURL & vbCrLf
Else
strText = doc.body.innertext
If InStr(1, strText, "To continue, please type the characters below:") > 0 Then
' Got a captcha
MsgBox "Got a captcha"
Else
End If
Call UW.PutFileData(strFileName, strText)
End If