Тема: СКР�?ПТЫ для Xedant Human Emulator
Показать сообщение отдельно
Старый 22.12.2009, 13:49   #35
 
Регистрация: 05.07.2009
Сообщений: 45


По умолчанию

набросал на досуге скрипт для постинга новостей в юкоз...
если кому нужно, пользуйтесь =)

Как работает.

Генерим любым доргеном дорвей по следующему шаблону:
Заголовок:Адалт||
Текст страницы:Привед||

Вместо "адалт" и "привед" нужные макросы.
Скидываем страницы дорвея в папку, прописываем пусть в этой папке в скрипте, заполняем данные для доступа на сайт юкоза, запускаем скрипт.

Постит в новости.

PHP код:
// The following code is required to properly run XWeb Human Emulator
require("../Templates/xweb_human_emulator.php");

$site ""// http://mysite.ucoz.ru
$email ""// емайл [email protected]
$pass ""// пароль 123qwe
$dir ""// путь, где лежит сгенеренный дор c:\\temp\\door

$browser->clear_cash();
$browser->clear_cookies("ucoz.ru");
$browser->disable_proxy("all connections");
$browser->enable_java_script("true");

$browser->navigate($site);
$browser->wait_for(240,1);

$input->set_value_by_name("user",$email);

$input->set_value_by_name("password",$pass);

$button->click_by_name("sbm");
$browser->wait_for(240,1);

usleep(500);

if (
$handle opendir($dir)) {
    while (
false !== ($file readdir($handle))) {
        if (
$file != "." && $file != "..") {
            echo 
$file."
"
;

            
$text=file_get_contents($dir."\\".$file);
            
preg_match_all("/Заголовок\:(.*?)\|\|/"$text$masheader);
            
$title=substr($masheader[1][0],0,149);
            
preg_match_all("/Текст страницы\:(.*?)\|\|/"$text$textofpage);
            
$textmessage=$textofpage[1][0];

            
$anchor->click_by_inner_text("Добавить новость","true");
            
$browser->wait_for(240,1);

            
usleep(500);

            
$input->set_value_by_name("title",$title);

            
$anchor->click_by_inner_text("Панель HTML кодов","true");
            
$browser->wait_for(240,1);

            
usleep(800);

            
$textarea->set_value_by_name("message",$textmessage);

            
$button->click_by_inner_text("Подача запроса");
            
$browser->wait_for(240,1);

            
sleep(1);

            
$anchor->click_by_inner_text("Главная","true");
            
$browser->wait_for(240,1);

            
usleep(500);
        }
    }
    
closedir($handle);
}

$anchor->click_by_inner_text("Выход","true");
$browser->wait_for(240,1);

// Quit
$app->quit();
?>
wal вне форума 
Ответить с цитированием
The Following 4 Users Say Thank You to wal For This Useful Post:
luxer (22.12.2009), ne0zx (22.12.2009), nik404 (22.12.2009), Капитан (25.12.2009)