Page 1 of 1

Automate Google Searches - VB6 example

Posted: Tue Sep 20, 2005 7:42 pm
by 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:

VB6 Source code Download link ...

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) and we upload it to our server and add a link to your post.

Posted: Sun Nov 13, 2005 10:28 pm
by erikcw
Does this work with the new version 5?

Posted: Mon Nov 14, 2005 10:30 pm
by 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 for the small but complete list of changes.

Re: Automate Google Searches - VB6 example

Posted: Wed Nov 05, 2008 4:27 pm
by Tech Support
We updated the example to work with iMacros V6.22 and the revised Google home page.

Re: Automate Google Searches - VB6 example

Posted: Sun Dec 21, 2008 6:58 am
by ezncome

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,