Блог PHP программиста | php скрипты | скрипт human emulator | компоненты 1С-Битрикс | скрипты 1c-Bitrix

[Скрипт XHE] Восстановление почты на mail.ru

admin — Thu, 02 Feb 2012 13:25:51 +0000

Очередной скрипт для Human Emulator. Если длительное время не пользоваться почтой на mail.ru, то аккуант переводится в «подвешенное» состояние, при авторизации, нужно указать что данная почта будет использоваться, и ввести пароль. Если у вас 10-20 таких почтовых аккуантов, то можно и ручками переподтвердить, а если их тысяча или две, тогда лучше использовать скрипт под XHE.

navigate('http://mail.ru/');
$browser->wait_for(60,1);

$input->set_value_by_name('mailbox__login',$mailLogin);
$browser->wait_for(60,1);

$input->set_value_by_name('mailbox__password',$pass);
$browser->wait_for(60,1);

$button->click_by_name('mailbox__submit__button');
$browser->wait_for(60,1);

  sleep(5);

	$urls = $anchor->get_all_urls();

	$urls = explode("
",$urls);
   // ссылка подтверждения
   $enable = "http://e.mail.ru/cgi-bin/enableuser?login=$mailLogin&domain=$domen";

   // ссылка выходы
   $edit = "http://e.mail.ru/cgi-bin/editprofile#trsh";
   $logout = "http://e.mail.ru/cgi-bin/logout";

  //проверем есть ли ссылка на странице

     if(in_array($enable,$urls)){

      echo "Ссылка найдена";

      $browser->navigate($enable);
      $browser->wait_for(60,1);

      $input->set_value_by_name('Password',$pass);
      $browser->wait_for(60,1);

      $button->click_by_number(1);
      $browser->wait_for(60,1);

      $fp = fopen ("good.txt", "a+");
      fwrite ($fp, $ListAccs[$a]);
      fclose ($fp);

     }

     // проверяем успешно ли мы авторизировались
      if(in_array($edit,$urls)){

       echo "Успешно авторизировались";

      $browser->navigate($logout);
      $browser->wait_for(60,1);

       $fp = fopen ("good.txt", "a+");
      fwrite ($fp, $ListAccs[$a]);
      fclose ($fp);

      }

      // проверяем успешно ли авторизировались или неверно указан логин или пароль

      $source = $webpage->get_body();

      sleep(3);

      if(strpos($source,"Неверное")!==FALSE){

        echo "Неверно указан логин или пароль";

        $fp = fopen ("bad.txt", "a+");
      fwrite ($fp, $ListAccs[$a]);
      fclose ($fp);

        }

  $wr = $a+1;

 $fp = fopen ("a.txt", "w+");
 fwrite ($fp, $wr);
 fclose ($fp);

// Quit
$app->quit();
?>

Для корректной работы скрипат, нам необходимы дополнительные файлы:

a.txt – счетчик
mails.txt – почтовые аккуанты в формате admin@mail.ru;qwerty
good.txt – в данный файл будут записаны успешные аккуанты
bad.txt – в данный файл будут записаны битые аккуанты

Примечание: в этот пост вложен файл, пожалуйста, просмотрите этот пост для скачивания файла.

P.S. Хочу Macbook air купить. Недавно поработал на Mac, класссная машина, на первый взгляд неудобная, но когда научишься использовать «фишки» ОС – это не работа, а просто песня.

[Bitrix] Многоуровневое меню в Bitrix

admin — Mon, 23 Jan 2012 21:12:45 +0000

Стандартный модуль вывода меню в Битриксе поддерживает максимальный уровень вложенности – 4. А что делать, если клиента такой уровень вложенности не устраивает. Из данной ситуации есть 2 выхода: Первое – доработать стандартный модуль вывода меню, да это можно сделать, но если групп и подгрупп очень много, будет выглядеть не как меню, а как «солянка» Второй метод – перед списком товара будут выводиться подгруппы они будут исполнять навигационное меню. данный метод мы сегодня с вами и разберем.

Для создания многоуровневого меню, нам необходимо отредактировать шаблон Каталога товаров под названием Элементы раздела (bitrix:catalog.section)

$IBLOCK_ID, 'GLOBAL_ACTIVE'=>'Y', 'SECTION_ID'=>$ID);
  $db_list = CIBlockSection::GetList(Array("NAME"=>"ASC"), $arFilter, true,$arSelect = array( "UF_*"));
  while($ar_result = $db_list->GetNext())
  {

   $OUT.="$ar_result[NAME] ($ar_result[ELEMENT_CNT])";

  }
}

?>

В результате переменная $OUT будет содержать список разделов.

P.S. Скрины криво загрузились. Изображения широкие и кликабельные, можно посмотреть как будет выглядеть меню.

Постовой: Не успеваете посмотреть Дом 2 по телевизору? Смотрите его в интернете дом2 смотреть новые серии.

[Скрипт XHE] Массовая смена почты в ЖЖ

admin — Sun, 22 Jan 2012 20:44:39 +0000

С помощью скрипта можно массово сменить почтовые адреса для пачки ЖЖ блогов. скрипт раотает через программный крон, т.е. автоматически будет запускаться через определенный промежуток времени, о данном методе я уже писал и использую его в большинстве своих скриптов.На самом деле HumanEmulator очень гибкий продукт и с его помощью можно без труда написать парсер картинок или спарсить фото со всей сети по запросу фото мазда 3. Кстати, через вашего покорного слугу вы можете приобрести XHE с 10% скидкой. Перейдем к разработке нашего скрипта. Для корректной работы скрипта необходимы следующие файлы:

i.txt – счетчик ЖЖ блогов
m.txt – счетчик почтовых аккуантов
jjlist.txt – список ЖЖ блогов, структура списка должна быть следующей
http://blog.livejournal.com;blog;password
mails.txt – список почтовых аккуантов, структура списка должна быть следующей
azaldseasce@mail.ru:sstvrewwxxy
newjj.txt – список готовых ЖЖ блогов
BadLj.txt – список блогов для которых процесс смены почты завершился неудачей

navigate('http://www.livejournal.com/');
$browser->wait_for(60,1);

$input->set_value_by_name('user',$login);
$browser->wait_for(60,1);

$input->set_value_by_name('password',$password);
$browser->wait_for(60,1);

$button->click_by_name('_submit');
$browser->wait_for(60,1);

 $urls  = $anchor->get_all_urls();

$array = explode("
",$urls);
$array = array_map("trim",$array);

if (in_array($ljurl."/profile",$array)){

        echo "
Работаем дальше";

		$browser->navigate('https://www.livejournal.com/changeemail.bml');
		$browser->wait_for(60,1);

		$input->set_value_by_name('email',$MailLogin);
		$browser->wait_for(60,1);

		$input->set_value_by_name('password',$password);
		$browser->wait_for(60,1);

		$button->click_by_number(0);
		$browser->wait_for(60,1);

		        $browser->navigate('http://www.livejournal.com/');
				$browser->wait_for(60,1);

				$button->click_by_name('_submit');
				$browser->wait_for(60,1);

				$fp = fopen ("newjj.txt", "a+");
                 fwrite ($fp, trim($jjlist[$i]).";$MailLogin;$MailPassword\r\n");
                 fclose ($fp);

                 $wri = $i+1;

                 $fp = fopen ("i.txt", "w+");
                 fwrite ($fp, $wri);
                 fclose ($fp);

                   $wrm = $m+1;

                 $fp = fopen ("m.txt", "w+");
                 fwrite ($fp, $wrm);
                 fclose ($fp);

}else{

  echo "Не работаем, проверка не прошла";

 $fp = fopen ("BadLj.txt", "a+");
 fwrite ($fp, trim($jjlist[$i])."/r/n");
 fclose ($fp);

  $wri = $i+1;

   $fp = fopen ("i.txt", "w+");
   fwrite ($fp, $wri);
   fclose ($fp);

 }

// Quit
$app->quit();
?>

[Скрипт XHE] Чеккер mail.ru аккуантов + чистка

admin — Sun, 22 Jan 2012 10:54:57 +0000

Иногда купив или зарегистрировав большую пачку почтовых аккуантов mail.ru встает задача в проверке их на валидность. Для этих целей написал быстро скриптик под Human Emulator который через imap подключается к почтовому аккуанту и если там есть письма удаляет их и записывает данные строчкой в файл CleanMails.txt если не удалось авторизироваться, данные записываются в файл BadMails.txt Список проверяемых акков должен быть формата zircool@mail.ru:password

";

		 $fp = fopen ("CleanMails.txt", "a+");
         fwrite ($fp, "$mail:$pass\r\n");
         fclose ($fp);

  }else {

         echo "Аккуант $mail нерабочий
";

         $fp = fopen ("BadMails.txt", "a+");
         fwrite ($fp, "$mail:$pass\r\n");
         fclose ($fp);

}

 $wr = $a+1;

 $fp = fopen ("a.txt", "w+");
 fwrite ($fp, $wr);
 fclose ($fp);

// Quit
$app->quit();
?>

Проверенные почтовые аккуанты готовы, теперь их можно пускать в «производство», например регистрировать трастовые профили, а подтверждать регистрацию можно так же скриптом под XHE – автокликером

Спонсор поста. Вы можете htc виджеты скачатьи устновить себе на смартфон. Виджеты значитиельно упрожают жизнь. Не надо каждый раз заходить на сайт что бы смотреть погоду в своем городе, достаточно настроить правильно виджет погоды.

Подключаем смс оплату к CMS TestMaker

admin — Mon, 02 Jan 2012 22:47:40 +0000

Спонсор статьи – доска объявлений от qwef.ru Купи участок в подмосковье.

Здравствуйте в этой статье мы рассмотрим пример подключения шлюза smsdostup.ru к движку для создания онлайн тестирований CMS TestMaker .
Итак поэтапно распишем, что нужно сделать что бы подключить смс оплату:

1. Регистрируемся на сайте СМС Доступ.
2. После регистрации добавляем новый проект. Для тестирования движка, я зарегистрировал домен myiq.su . Процесс добавления проекта достаточно прост, не буду его описывать. После, система пришлет на ваш почтовый адрес хэш код созданного проекта. Этот код будет использоваться в обработчике.

3. Вставляем идентификатор в скрипт и сохраняем его, например sms.php

OK

# Выдаем ответ для передачи клиенту
# ! Учтите обязательность наличия открывающегося  и закрывающегося  тегов
# Содержимое внутри тегов и будет передано клиенту, в случае неверного формата ответа, смс не будет засчитана
# При ответе используйте кодировку Windows-1251

# Функция передачи данных

function return_result($message, $is_error = false) {
	if ($is_error) exit("".stripslashes($message)."");
	exit("".stripslashes($message)."");
}
?>

Данный скрипт заливам в корень нашего сайта.

4. Редактируем файл functions.php , в конце добавляем новую функцию, которая будет возвращать код для активации. Этот код будет отправлен пользователю на мобильный телефон.

/* Получаем ключ при успешной отправке смс 02.01.2012*/

Function GetKey(){

  $result = mysql_query ("SELECT * FROM key_list WHERE flag='0'");

  $myrow = mysql_fetch_array ($result);

  return $myrow['single_key'];

}

5. Проверяем, как работает созданный обработчик. В личном кабинете на SmsDostup переходим к списку проектов и запускаем режим тестирования.

Пример проверки. Вот тот самый код. Если тест прошел успешно, можно продолжать настройку скрипта, если выдает ошибку, проверьте сгенерированы ли у вас коды активации с административной панели CMS TestMaker.

6. Переходим в административную панель TestMaker и редактируем сообщение, которое выдается пользователю, когда тест окончен. Пример:

Для получения результатов теста необходимо отправить SMS. Отправьте смс с кодом ttiqtest на короткий номер 4443. Полученный код введите в форму.

По желанию можно добавить информатор стоимости сообщения. На сайте smsdostup в панели есть Скрипт показа тарифов на сайте. К скрипту прилагается подробная инструкция, по установке.

Все. Скрипт смс обработчика подключен! При желании информатор стоимости смс сообщения можно запихнуть в слайдер.

[PHP] Скрипт YouTube парсер

admin — Sun, 01 Jan 2012 22:28:56 +0000

Медиаконтент занимает немаловажное значение в создании белых сайтов или так называемых ГС. Возможно вы обращали внимание, многие блогеры вставляют интересное видео в конце своих записей, для чего это делается? Кто-то говорит что это основной инструмент для привлечения дополнительного траффика с Поисковых систем, кто-то утверждает что это придает трастовость площадке, поисковые системы анализируют время присутствия пользователей на отдельных страницах, и чем дольше пользователь находится на странице, тем она интереснее, значит там располагается интересный контент. Это основные предположения к которым я прислушиваюсь и они имеют аргументированное обоснование и примеры.

Для удобства парсинга видео, написал скрипт, который парсит с YouTube ссылки на видео, по заданным ключевым словам.

Преимущества скрипта:
- неограниченное количество ключевых слов
- возможность задавать количество страниц парсинга
- имя для файла с результатом (ссылками) задается вручную
- скрипт распространяется бесплатно

Исходный код:








  YouTybe Парсер 








Кейворды:  
Количество страниц:   
Имя файла:   




     



Программист Zircool 





0 && !empty($page)){

           for ($i=0;$i<$CountKeys;$i++){

            // количество страниц
               for ($p=1;$p<=$page;$p++){

                 $YouLink = "";

                 //обрабатываем ключевик
                 $key = trim($KeysArray[$i]);
                 $key = urlencode($key);
                 $key = str_replace("%20", "+", $key);

                 $PageParse=file_get_contents("http://www.youtube.com/results?search_type=videos&search_query=".$key."&page=".$p);

                  if(strpos($PageParse, "/watch?v=")!=FALSE)
					{
					preg_match_all("/href=\"\/watch\?v=([^\"]*)\"/sU", $PageParse, $matches);
					$resultmovies=implode(" ", $matches[1]);
					$resultmovies=str_replace("&hd=1", null, $resultmovies);
					$resultmovies=str_replace("&feature=browch", null, $resultmovies);
					$resultmovies=explode(" ", $resultmovies);
					$resultmovies=array_unique($resultmovies);

					 $moviescount=count($resultmovies);
						foreach($resultmovies as $movielink)
						{

                              $YouLink.= "http://www.youtube.com/v/".trim($movielink)."\r\n";

						      $cpl++;
						}

					   // Записываем линк youTube
					   $fp = fopen ($filename, "a+");
                       fwrite ($fp, $YouLink);
                       fclose ($fp);

					   sleep(1);
					}

                 }

           }

      }

     echo "Спарсено $cpl ссылок на видео. Данные ссылки сохранены в файл $filename  ";

	}

?>

Скрипт тестировался и корректно работает на денвере. Для тех кому не хочется копировать исходники, скрипт загрузил архивом, вконце топика ссылка на скачивание.

Примечание: в этот пост вложен файл, пожалуйста, просмотрите этот пост для скачивания файла.

Недавно наткнулся на один сервис, с помощью которого можно добавить сайт в яндекс. Кстати на сайте еще много нужных сервисов для web мастера.

[Скрипт XHE] Парсер Google картинок

admin — Wed, 14 Dec 2011 22:46:07 +0000

Очередной скрипт под Human Emulator. Скрипт парсит изображения из Google картинки и сохраняет их в определенную папку. Изначально была сложность в написании парсера, т.к. Goggle поменял интерфейс, как вы заметили сейчас пости все на Jquery, что затрудняет писать скрипты под парсинг.

Новая выдача:

Но нет непреодолимых задач, оказалось все достаточно просто. Новая выдача работает только на тех ПК где скорость интернет соединения позволяет быстро загружать изображения, что бы соблюдать правила модернизма и самое главное все красиво смотрелось (кроссбраузерно). Ну а если у пользователя низкая скорость соединения, тогда перед глазами пользователя появляется старая выдача с пагинацией внизу, к запросу добавляется лишь конструкция &sout=1.
Вот этот амперсант и делает выдачу старого образца, а с такой выдачей уже можно работать – парсить изображения.

Скрипт:

navigate("http://images.google.com/images?hl=ru&q=$key&sa=N&start=$p&ndsp=20&sout=1");
$browser->wait_for(60,1);

$PageParse= $webpage->get_source();
$browser->wait_for(60,1);

  preg_match_all("#imgurl(.*)&#iU",$PageParse,$Links);

					for($c=0;$cСкачано изображение с адреса $Link ";
                      }else{

                      echo "Изображение  $Link скопировано с ошибкой ";

                      }
					}

 }

// Quit
$app->quit();
?>

Вот такой вот получился простенький скрипт

Спонсор скрипта: Портал фотокурсы онлайн. Для того что бы научиться красиво фотографировать не достаточно купить себе крутой фотоаппарат, главное уметь работать с ним. У вас есть возможность обучиться фото искусству удаленно, через интернет.

Примечание: в этот пост вложен файл, пожалуйста, просмотрите этот пост для скачивания файла.

[Скрипт XHE] Чекер аккуантов ЖЖ

admin — Wed, 14 Dec 2011 20:59:20 +0000

Давно не выкладывал скрипты для XHE. Совсем недавно вспонил про кучку блогов ЖЖ, которые давно пылятся на полке. Один из товарищей подтолкнул и думаю что пишло время придать журналам жизнь (ЖЖ). Администрация живого журнала тщательно следит за блогами и блоги ктороые в течение определенного времени не подают признаки жизни, уходят в Unreg. Для проверки написал маленький скрипт, который проверяет блоги.

Функционал достаточно простой, скрипт авторизируется, предварительно взяв логин и пароль из файла, и если авторизация прошла успешно, то информация о ЖЖ аккуанте записывается в файл good.txt иначе bad.txt.

Совсем недавно начал читать электронные книги. Больше всего привлекает фантастика. Артем Каменистый читатю его книги, прочитал уже две: Запретный мир и Боевая единица. Вот как то так, отвлекаю себя от работы. Ниже представлен скрипт чекера ЖЖ.

Скрипт:


quit();

}

list($ljurl,$login,$pass) = split(";",$accs[$i]);

$ljurl = trim($ljurl);
$login = trim($login);
$pass = trim($pass);

$browser->navigate('livejournal.com');
$browser->wait_for(60,1);

$input->set_value_by_name('user',$login);
$browser->wait_for(60,1);

$input->set_value_by_name('login_password',$pass);
$browser->wait_for(60,1);

$button->click_by_name('loginlj_submit');
$browser->wait_for(60,1);

$urls  = $anchor->get_all_urls();

$array = explode("
",$urls);
$array = array_map("trim",$array);

if (in_array($ljurl."profile",$array)){

echo "Аккуант рабочий";

$fp = fopen ("good.txt", "a+");
fwrite ($fp,trim($accs[$i])."\r\n");
fclose ($fp);

}else {

$fp = fopen ("bad.txt", "a+");
fwrite ($fp,trim($accs[$i])."\r\n");
fclose ($fp);

echo "Аккуан не работает";

}

sleep(3);

 $button->click_by_name('logoutlj_submit');
$browser->wait_for(60,1);

 $wr = $i+1;

 $fp = fopen ("i.txt", "w+");
 fwrite ($fp, $wr);
 fclose ($fp);

// Quit
$app->quit();
?>

Список аккуантов должен храниться в файле 106jj.txt. Каждый аккуант должен начинаться с новой строки, строка должна быть оформлена следующим образом

АдресБлога;Логин;Пароль

Примечание: в этот пост вложен файл, пожалуйста, просмотрите этот пост для скачивания файла.

[1c] Отчет поступление и реализация услуг

admin — Wed, 07 Dec 2011 22:59:25 +0000

Здравствуйте. Ввиду специфики предпринимательства в России, написал данный отчет. Есть компании «связывающие звенья» которые занимаются реализацией исключительных услуг. Данные компании часто встречаются в автомобильной сфере (логистика) , железнодорожной и строительной.
Данный отчет позволяет, сделать отбор услуги, за определенный промежуток времени по документам ПоступлениеТоваровИУслуг и документам РеализацияТоваровИУслуг и получить итог, сколько фактически мы потратили на приобретение данной услуги и за сколько её продали (например аренда).

Представьте Вы арендовали большое здание в котором много офисов и потом перепродаете эти офисы, т.е. передаете их в аренду другим юридическим лицам и хотите видеть сколько затратили на аренду и за сколько её продали, тогда этот отчет вам пригодится.

Спонсор днного поста ремонт посудомоечных машин. Доверьте работу профессионалам.

Примечание: в этот пост вложен файл, пожалуйста, просмотрите этот пост для скачивания файла.

Обработка Формирование договора

admin — Wed, 02 Nov 2011 20:35:40 +0000

Давно не писал в блог, 1с забирает много времени, в том числе и свободное. Но постараюсь разгрузить себя в этом месяце и писать в блог чаще. Начало нового месяца проводить линию между тем чему мы научились в прошлом месяце и какие задачи поставили в следующем. Весь прошлый месяц занимался изучением языка программирования прикладных решений для платформы 1С Предприятие 8.1 – 8.2 . Занимался по книге Радченко и курсам Чистова. Очень много информации подчеркнул именно из курсов. Ниже хочу опубликовать одну из своих работ.

Данная обработка формирует договор на основе заранее составленного шаблона договора, где вместо определенных тегов вставляется необходимая информация о контрагенте.

Теги:

[дата договора] - Дата договора

[номер договора] – Номер договора

[контрагент] – Полное наименование контрагента

[юридический адрес] – Юридический адрес

[почтовый адрес] – Почтовый адрес

[ТЕЛФАКС] - Телефон/Факс[МОБ] - Мобильный телефон


[почта] - Электронная почта
[ИНН] - ИНН контрагента
[КПП] - КПП контрагента
[ОКПО] - код ОКПО контрагента
[БАНК] - Наименование банка контрагента
[РС] - р/с контрагента
[КС] - к/с банка

Для корректной работы обработки, в корне локального диска, где расположена платформа, должно быть расположено 2 папки: ГотовыеДоговора и ШаблонДоговора. В папке ШаблонДоговора находятся 2 файла: Матрица.doc и СписокДоговоров.doc. Первый файл содержит в себе текст договора, который будет копироваться, обрабатываться, путем замены необходимых тегов и сохраняться в папке ГотовыеДоговора, где имя файла состоит из имени контрагента + дата договора. В файл СписокДоговоров.doc построчно записываются все созданные договора.

P.S. Спасибо професситнальному бломжу http://bomj.pro за поддержку в реализации обработки. Кстати для тех кто хочет подзаработать, можно заработать еще и на постовых http://bomj.pro/domeny/prokachaem-tic-moemu-blogu.html

Примечание: в этот пост вложен файл, пожалуйста, просмотрите этот пост для скачивания файла.

Кейворды:
Количество страниц:
Имя файла: