;
; Script Requires AutoHotkey Version: 1.x
; Script Version: 1.3.1
; Date:		11/30/2005
; Language:	English
; Platform:	Win9x/NT
; Author:	The MacroKing - (c) 2005 www.macroking.com
; License:	You may distribute this script freely provided all contact and author information remains intact.  No warranty, guarantee, or support of any kind is offered.  If you like this script, let me know.  If not, don't let me know.  ;)
;
; Script Function:
;	This script is designed to check your site's indexing in the major search engines.  It REQUIRES you to have a functioning web browser, internet connection, and Microsoft Excel with a list of all the URLs you wish to check in one column on a spreadsheet.  Select the top cel in the range of sites you want to check, and then execute the script.  When the script runs, it will input 6 URLs into the Index Checker and then will beep, prompting you to enter the security code displayed on screen.  This must be done manually, and once the "generate report" button is pressed, the script will continue on its own.  Upon completion, it will begin again at the beginning, until it has run out of URLs in Excel.
;
;	I suggest you run this script daily on all your URLs so you can build up a history of your indexing progress.  At any time, you may manually input any URLs you wish into the Index Checker, and view a graph of their indexing performance over time.  This can be very useful in determining which sites are not being properly promoted, and may need help in getting spidered.
;
;Version History:
;
; 1.0 - Initial Release 11-18-05
; 1.1 - Fixed bug where changing the size of your browser window would affect the script's ability to select field properly.  ALso increased the speed of the script, I believe it to be stable at this speed.
; 1.2 - Corrected some typos in the comments, and streamlined the script quite a bit.  it should work well on both IE and Firefox now.
; 1.3 - Improved the script logic so that it will detect earlier, if there are no more URLs to consider.  Also added a variable at the top of the script, "userwait".  Set this to "1" if you would like the script to pause after checking each batch of URLs, you can then press OK on the resulting dialog box to continue.  Make sure you don't lose track of the dialog after it pops up, move it off to the side somewhere where you'll be able to click the button after you review the indexing of your sites.  Setting userwait to "0" will behave as before, processing URLs as fast as it can in a loop until they are all exhausted.
; 1.3.1 - Very minor update slowing the script down slightly, so it will work better on more computers.
;
; <---------  BEGIN SCRIPT ---------->

SetTitleMatchMode, 2
SetTitleMatchMode, slow
SetKeyDelay, 100
userwait = 0 ; Set this to 1 if you want a prompt between batches of URLs.

Loop ; Continues checking sites until the list runs out of URLs.

{

Loop, 6 ; The MarketLeap Index Checker can only check up to 6 sites at one time.

{


IfWinExist, Microsoft Excel ; Tests to see if Excel is already running.

	{
	WinActivate ; If Excel is running, make it the active window.
	Send, ^c ; Copy the current cel (URL) in Excel.
	Send, {down} ; Select the next cel (URL) in the list.
}

else ; If Excel is not running, warn the user and instruct them on what to do.

	{
	MsgBox,, Excel not running!, You need to launch Excel and open your list of domains, placing the cursor on the cel containing the domain you want to start with.
	Exit
}

IfWinExist, Search Engine Index Check ; Tests to see if the MarketLeap Search Engine Indexer is already open.
	{
	WinActivate ; If it is open, activate it.
	If a_index = 1 ; If this is the first pass through the loop.
		{
		if clipboard < a ; Tests if there are more URLs to check or not.
			{
			MsgBox, ALL DONE!
			exit
			}
		SetKeyDelay, 10
		Send, !d
		sleep, 500
		send, javascript:document.forms[0].urlBox1.focus(){Enter} ; selects first URL entry field.
		SetKeyDelay, 100
		sleep, 250
		Send, ^v ; Pastes the contents from Excel.
		Send, {tab} ; Moves to the next field.
		}
		else ; If this is NOT the first time through the loop...
		{
		Send, ^v ; Pastes the value from Excel.
		Send, {tab} ; Moves to the next field.
		}
	}

else ; If the MarketLeap Index Checker is NOT currently open...
	{
	RunWait, www.marketleap.com/siteindex ; Opens the index checker and waits for it to opencompletely.
	WinWaitActive, Search Engine Index Check ; Waits until the Search Engine Index window is active.
	sleep, 500
	SetKeyDelay, 10
	Send, !d
	sleep, 500
	send, javascript:document.forms[0].urlBox1.focus(){Enter} ; selects first URL entry field.
	SetKeyDelay, 100
	sleep, 250
	send, ^v ; Pastes the contents from Excel.
	send, {tab} ; Selects the next empty field.
	}

}

SoundBeep
SoundBeep, 750, 500
WinWait, Search Engine Saturation ; Waits for the Search Engine Saturation window to exist.
WinActivate ; Makes it the primary active window.
StatusBarWait, Done ; Waits until the statusbar says the browser is finished loading.
Sleep, 1000 ; Waits an amount of time in milliseconds (1000 = 1 second)
if userwait = 1
	{
MsgBox, Click OK to continue.
	}
SetKeyDelay, 10
send, !dwww.marketleap.com/siteindex{enter} ; Opens the index checker and waits for it to open completely.
SetKeyDelay, 100
WinWaitActive, Search Engine Index Check ; Waits for the Search Engine Index window to exist.
StatusBarWait, Done ; Waits until the statusbar says the browser is finished loading.
Sleep, 1000 ; Waits an amount of time in milliseconds (1000 = 1 second)
if clipboard < a ; Tests if there are more URLs to check or not.
	{
	MsgBox, ALL DONE!
	exit
	}
}