ThaiSEOBoard.com

TAG POS=1 TYPE=a ATTR=CLASS:rg_l EXTRACT=HREF
SET !VAR1 EVAL("var s=\"{{!EXTRACT}}\"; var regex = /(.*)(imgurl=)(.*)(&imgrefurl=)(.*)/gi; match = regex.exec(s); s=decodeURIComponent(match[3]);")
SET !EXTRACT NULL
SET !EXTRACT {{!VAR1}}
SAVEAS TYPE=EXTRACT FOLDER=D:\ FILE=seogoalranks.csv

TAG POS=1 TYPE=a ATTR=CLASS:rg_l EXTRACT=HREF
SET !VAR1 EVAL("var s=\"{{!EXTRACT}}\"; var regex = /(.*)(imgurl=)(.*)(&imgrefurl=)(.*)/gi; match = regex.exec(s); s=decodeURIComponent(match[3]);")
SET !EXTRACT NULL
SET !EXTRACT {{!VAR1}}
SAVEAS TYPE=EXTRACT FOLDER=D:\ FILE=seogoalranks.csv

var	jsLF = "\n";

var next_page = 10;         // จะเก็บกี่หน้าก็ใส่ไป





for(z=1;z<=next_page;z++){


iimDisplay("หน้าที่ "+z+"/"+next_page);
	
	macro ="CODE:";
	macro += "SET !ERRORIGNORE YES"	+ jsLF;
	macro += "SET !EXTRACT_TEST_POPUP NO" +	jsLF;
	macro += "SET !ERRORCONTINUE YES" +	jsLF;
	macro += "TAG POS=1 TYPE=div ATTR=class:srg EXTRACT=htm" +	jsLF;
	iimPlay(macro);
	div = iimGetLastExtract(1);
if(div !== '#EANF#'){	
	res = div.split('<li class="g">');

	for(i=1;i<res.length;i++){

		var find_class = res[i].indexOf('[url]http://www.google.co.th/url?'[/url]);
		var find_class2 = res[i].indexOf('[url]http://www.google.com/url?'[/url]);

		if((find_class == -1) && (find_class2 == -1)){
			
			var geturl = res[i].match(/<h3 class="r">(.*?)<\/h3>/g);
			var geturl = geturl[0].match(/"(.*?)"/g);
			var geturl = geturl[1].replace(/"/g,'');
			var geturl = decodeURIComponent(geturl);

		}else{
		
			var geturl = res[i].match(/<h3 class="r">(.*?)<\/h3>/g);
			var geturl = geturl[0].match(/"(.*?)"/g);
			var geturl = geturl[1].replace(/"/g,'');
			var geturl = geturl.match(/&amp;url=(.*)&amp;ei=/g);
			var geturl = geturl[0].replace(/&amp;url=/g,'');
			var geturl = geturl.replace(/&amp;ei=/g,'');
			var geturl = decodeURIComponent(geturl);
		}
		
		iimSet ("Hgeturl",geturl);
		macro ="CODE:";
		macro += "SET !ERRORIGNORE YES"	+ jsLF;
		macro += "SET !EXTRACT_TEST_POPUP NO" +	jsLF;
		macro += "SET !ERRORCONTINUE YES" +	jsLF;
		macro += "ADD !EXTRACT {{Hgeturl}}"+	jsLF;
		macro += "SAVEAS TYPE=EXTRACT FOLDER=D:\\ FILE=seogoalranks.csv"+ jsLF;
		iimPlay(macro);
	}
}
	
	//next page
	macro ="CODE:";
	macro += "SET !ERRORIGNORE YES"	+ jsLF;
	macro += "SET !EXTRACT_TEST_POPUP NO" +	jsLF;
	macro += "SET !ERRORCONTINUE YES" +	jsLF;
	macro += 'EVENT TYPE=CLICK SELECTOR="#pnnext>SPAN:nth-of-type(2)" BUTTON=0' +	jsLF;
	macro += "WAIT SECONDS=3" +	jsLF;
	iimPlay(macro);
}