Posted 9 years ago
·
Author
i was recently doing some digging. on the pastebin website (http://www.pastebin.com). specifically,for imvu related shit. Then i came across this script.:
myself i don't have any experience with macro's.so for those who do know macro's. what does it do?, could this script be useful now?.
myself i don't have any experience with macro's.so for those who do know macro's. what does it do?, could this script be useful now?.
var macro, retcode, url="", pos=1, stop=false,i=1;
var username=prompt("Please enter Avatar / Email:","Guest_yourname");
var passwd=prompt("Please enter Password:","password");
var message=prompt("Enter the message:"," your message");
macro="CODE:";
macro+="VERSION BUILD=7400919 RECORDER=FX \n";
macro+="CLEAR\n";
macro+="TAB T=1\n";
macro+="URL GOTO=http://www.imvu.com/login/\n";
macro+="TAG POS=1 TYPE=INPUT:TEXT FORM=ACTION:https://secure.imvu.com/login/login/ ATTR=ID:login_field CONTENT="+username+"\n";
macro+="SET !ENCRYPTION NO\n";
macro+="TAG POS=1 TYPE=INPUT:PASSWORD FORM=ACTION:https://secure.imvu.com/login/login/ ATTR=ID:password_field CONTENT="+passwd+"\n";
macro+="TAG POS=1 TYPE=BUTTON ATTR=ID:btn_logon\n";
retcode=iimPlay(macro);
while(i<101){
macro="CODE:";
macro+="VERSION BUILD=7400919 RECORDER=FX \n";
macro+="URL GOTO=http://www.imvu.com/people/search.php?page="+i+"&sort=online_since&gender=1&location=223&minage=18&maxage=99&online=1&interests=&relationship=0&orientation=0&here_for=0&default=1&action=Search#pg\n";
retcode=iimPlay(macro);
if (retcode < 0) // an error has occured
{
errtext = iimGetLastError();
alert("Error 1: "+retcode+": "+errtext);
break;
}
////////////////////// Tested perfect!!
//var message="Hii";
while(!stop)
{
macro="CODE: \n";
macro+="VERSION BUILD=7400919 RECORDER=FX \n";
// macro+="SET !REPLAYSPEED SLOW\n";
// macro+="TAB T=1 \n";
macro+="SET !ERRORIGNORE YES\n";
macro+="WAIT SECONDS=1\n";
macro+="TAG POS="+pos+" TYPE=A ATTR=ID:send_* \n";
// macro+="SET !REPLAYSPEED SLOW\n";
macro+="WAIT SECONDS=3\n";
retcode = iimPlay(macro);
if (retcode < 0) // an error has occured
{
errtext = iimGetLastError();
alert("Error 2: "+retcode+": "+errtext);
//alert(macro);
stop=true;
}
macro="CODE: \n";
// macro+="TAB T=1 \n";
macro+="TAG POS=1 TYPE=TEXTAREA ATTR=ID:message_text CONTENT="+message.replace(/ /g,"<SP>")+"\n";
//macro="";
macro+="TAG POS=1 TYPE=INPUT:CHECKBOX ATTR=ID:is_public_* CONTENT=NO\n";
macro+="TAG POS=1 TYPE=BUTTON ATTR=ID:btn_send\n";
macro+="WAIT SECONDS=2\n";
retcode = iimPlay(macro);
if (retcode < 0) // an error has occured
{
errtext = iimGetLastError();
alert("Error 3: "+retcode+": "+errtext);
//alert(macro);
stop=true;
}
macro="CODE: \n";
macro+="TAG POS=1 TYPE=BUTTON ATTR=ID:message-complete-ok";
retcode = iimPlay(macro);
if (retcode < 0) // an error has occured
{
errtext = iimGetLastError();
macro="CODE: \n";
macro+="TAG POS=1 TYPE=BUTTON ATTR=ID:mw_btn_cancel";
}
if( pos > 9)
{
break;
}
else
{
pos++;
}
}
pos=1;
i++;
}
