Automate Google Searches - VB6 example

[Tech Support]

To start this forum, here is a link to VB6 example that demonstrates how to automate a Google search:

1. Read first keyword from file
2. Search for keyword
3. Click next button (if more than 10 results)
4. Read next keyword (and so on...)

This example roughly related to the following FAQ: http://www.iopus.com/iim/help/faq_extract_pages.htm

VB6 Source code Download link
http://www.iopus.com/download/forum/iim ... search.zip

The ZIP file contains the VB6 project plus the Google macros.

The example also shows how to work with pagination, even if the numbers of pages vary.

PS: If you have examples that you want to offer for download, just post the text in the forum, then email us the code at support2 (at) iopus.com and we upload it to our server and add a link to your post.

[erikcw]

Does this work with the new version 5?

[Tech Support]

It works well with V5.0.

In general, the syntax changes between V4.x and V5.0 are very small, so every program/script that works with V4.x will work with no or almost no changes with the new version V5.0.

Please see http://www.iopus.com/iim/support/iim-4-to-5.htm for the small but complete list of changes.

[Tech Support]

We updated the example to work with iMacros V6.22 and the revised Google home page.

[ezncome]

Hi,

I donwloaded the program and follow instructions in setting up. But, it does not work.

When I clicked the button for "Load Keywords & Extract Search Results", I got this error:

Runtime error '438'
Object doesn't support this property or method

When I open the debugger, the error points to: sData = iim1.iimGetLastExtract()

lbl_message = "NEW KEYWORD: " + sKeyword + vbCrLf + lbl_message
iRet = iim1.iimDisplay("Search: " + sKeyword)
iRet = iim1.iimSet("-var_search", sKeyword)
iRet = iim1.iimPlay("1Google_Search")
sData = iim1.iimGetLastExtract()
If iRet < 0 Then lbl_message = iim1.iimGetLastError() +

Hope you can help,
Roy