var macro,macro1,macro2,macro3,macro4;
var i, retcode1, retcode2, retcode3,retcode33, retcode4,retcode5;
alert("This Script Is Created By Dinesh Bhosale")
var postid = prompt("Please enter post ID", "null");
var groupid = prompt("Please enter group ID", "null");
var seemore = prompt("Please enter number of times to click on seemore button", "5");
var posturl="https://mbasic.facebook.com/"+postid;
var groupurl="https://www.facebook.com"+"/groups/"+groupid+"/members";
if(postid!=null)
{
macro = "CODE:";
macro +="TAB T=1\n";
macro +="TAB CLOSEALLOTHERS\n";
macro +="URL GOTO="+posturl+"\n";
macro +="TAB OPEN\n";
macro +="TAB T=2\n";
macro +="URL GOTO="+groupurl+"\n";
macro +="TAB T=1\n";
retcode1 =iimPlay(macro);
if (retcode1 < 0)
{
errtext = iimGetLastError();
alert("Either tagging is completed successfully or script encountered an error.");
}
for(oo=0;oo<seemore;oo++)
{
macro2 = "CODE:";
macro2 +="SET !ERRORIGNORE YES\n";
macro2 +="TAB T=2\n";
macro2 +="TAG POS=1 TYPE=A ATTR=TXT:See<SP>More\n";
macro2 +="TAB T=1\n";
macro2 +="WAIT SECONDS = 5\n";
retcode2 = iimPlay(macro2);
if (retcode2 < 0)
{
errtext = iimGetLastError();
alert("Either tagging is completed successfully or script encountered an error.");
var oo=seemore;
}
}
var hreftagpos=1;
for(pi=0;pi<500000000;pi++)
{
var comcollect="";
for(o=1;o<500;o=o+2)
{
macro1 = "CODE:";
macro1 +="SET !EXTRACT_TEST_POPUP NO\n";
macro1 +="SET !ERRORIGNORE YES\n";
macro1 +="SET !EXTRACT NULL\n";
macro1 +="TAB T=2\n";
var hreftagpos=hreftagpos+2;
macro1 +="TAG POS="+hreftagpos+" TYPE=A ATTR=HREF:*?fref* EXTRACT=HREF\n";
macro1 +="TAB T=1\n";
retcode33 = iimPlay(macro1);
if (retcode33 < 0)
{
errtext = iimGetLastError();
alert("Either tagging is completed successfully or script encountered an error.");
}
var qqq = iimGetExtract();
var qqq = qqq.replace("www", "graph");
var qqq = qqq.replace("?fref=grp_mmbr_list", "");
iimDisplay(qqq);
macro3 = "CODE:";
macro3 += "TAB OPEN\n";
macro3 += "TAB T=3\n";
macro3 += "URL GOTO="+qqq+"\n";
macro3 += "TAG POS=1 TYPE=PRE ATTR=TXT:{* EXTRACT=TXT\n";
macro3 +="TAB CLOSE\n";
macro3 += "TAB T=1\n";
retcode3 = iimPlay(macro3);
var qqq2 = iimGetExtract();
iimDisplay(qqq2);
var n = qqq2.indexOf('\"first_name\":');
var id = "";
for(a=12;a<=(n-7);a++)
{
var id = id+qqq2[a];
}
var comcollect=comcollect+"<SP>@"+"["+id+":]<SP>";
var comcollect=comcollect.replace(" ","<SP>");
var comcollect=comcollect.replace("\n","<BR>");
iimDisplay(comcollect);
if (retcode3 < 0)
{
errtext = iimGetLastError();
alert("Either tagging is completed successfully or script encountered an error.");
}
}
macro4 = "CODE:";
macro4 += "TAB T=1\n";
macro4 += "TAG POS=1 TYPE=INPUT:TEXT ATTR=NAME:comment_text CONTENT="+comcollect+"\n";
macro4 += "TAG POS=1 TYPE=INPUT:SUBMIT ATTR=NAME:post\n";
macro4 += "wait seconds = 10\n";
retcode4 = iimPlay(macro4);
}
var mm=mm+1;
if (retcode4 < 0)
{
errtext = iimGetLastError();
alert("Either tagging is completed successfully or script encountered an error.");
}
}
