Скрипт imacros однокласники

var url = "http://www.odnoklassniki.ru/dk?st.cmd=searchResult&st.posted=set&st.location=%D0%9A%D0%B8%D0%B5%D0%B2&st.country=10424076448&st.onSite=on&st.mode=Users&st.grmode=Groups";
//Заменяем ссылку на вашу
var profile = 200;       //Количество посещений
var ranMin = 10;         //Минимальное значение для задержки на странице пользователя
var randMax = 25;        //Максимальное значение для задержки на странице пользователя
var avaOcenka = true;    //Значение true если надо ставить оценки, значение false если оценки ставить не надо
 
 
 
 
var i, WaitSec, macro, retcode, report;
var ocenka = 0;
function PokazatOd(){
    //Нажимает кнопку "Показать еще" на странице поиска в однокласниках
    var macro = "CODE:";
    macro += "TAG POS=1 TYPE=A ATTR=TXT:Показать<SP>ещё";
    iimPlay(macro);
}
 
function getRandomInt(min, max)
    //Случайное целое между min и max
    {
      return Math.floor(Math.random() * (max - min + 1)) + min;
    }
    
macro = "CODE:";
macro += "URL GOTO=" + url; 
iimPlay(macro);
    
for (i=1; i<=profile; i++){
    if (i>=20){
        if ((i%20)==0){
            PokazatOd();
        }
    }
    
    macro = "CODE:";
    macro += "TAB T=1\n";
    macro += "TAG POS=" + i + " TYPE=A ATTR=CLASS:v1_gs_result_i_t_name* EXTRACT=HREF\n";
    iimPlay(macro);
    
    ProfileUrl = iimGetLastExtract();
    WaitSec = getRandomInt(ranMin,randMax);
    
    macro = "CODE:";
    macro +="SET !ERRORIGNORE YES" + "\n"; 
    macro += "TAB OPEN\n";
    macro += "TAB T=2\n";
    macro += "URL GOTO=" + ProfileUrl + "\n";
    macro += "WAIT SECONDS=" + getRandomInt(ranMin,randMax) + "\n";
    iimPlay(macro);
    if (avaOcenka){
        macro = "CODE:";
        macro += "TAG POS=1 TYPE=IMG ATTR=WIDTH:190&&HEIGHT:190&&ALT:&&SRC:*photoId*\n";
        macro += "WAIT SECONDS=3\n";
        macro += "TAG POS=1 TYPE=A ATTR=HREF:*layer.markId=1.0*\n";
        retcode=iimPlay(macro);
        if (retcode>=0){
            ocenka = ocenka + 1;
        }
        macro = "CODE:";
        macro += "WAIT SECONDS=" + getRandomInt(3,8) + "\n";
        macro += "TAG POS=1 TYPE=DIV ATTR=CLASS:ic<SP>ic_i_close&&TXT:\n";
        macro += "WAIT SECONDS=1\n";
        iimPlay(macro);
    }
    macro = "CODE:";
    macro += "TAB CLOSE\n";
    macro += "TAB T=1\n";
    macro += "WAIT SECONDS=2";
    iimPlay(macro);
    report="";
    report+="Проход "+ i + " из " + profile + "\n" + "Ощенок поставлено " + ocenka;
    iimDisplay(report);
    
}