HOME FORUMS MEMBERS RECENT POSTS LOG IN  
× Авторизация
Имя пользователя:
Пароль:
Нет аккаунта? Регистрация
Баннер 1   Баннер 2
НОВЫЕ ТОРГОВАЯ НОВОСТИ ЧАТ
loading...
Скрыть
Вернуться   ANTICHAT > ОФФТОП > Болталка
   
Ответ
 
Опции темы Поиск в этой теме Опции просмотра

Нужна прога-помогите
  #1  
Старый 13.12.2009, 12:52
nonamez
Познавший АНТИЧАТ
Регистрация: 22.07.2007
Сообщений: 1,291
С нами: 9897010

Репутация: 766


По умолчанию Нужна прога-помогите

На определенном сайте вставляет в определенное поле эмаил,жмет отослать,и так по кругу,пока в фаил с эмаилами не станет пуст.
 
Ответить с цитированием

  #2  
Старый 13.12.2009, 14:10
|QwyZ|
Banned
Регистрация: 06.12.2009
Сообщений: 3
С нами: 8647147

Репутация: 0
По умолчанию

na php mozhno realizovat, zadai v razdele php/js...
 
Ответить с цитированием

  #3  
Старый 13.12.2009, 15:31
geforse
Постоянный
Регистрация: 02.03.2008
Сообщений: 893
С нами: 9574565

Репутация: 712


Smile

PHP код:
<?php
@set_time_limit(0);
@
ignore_user_abort(1);
//-----------------//
$subject 'subject.txt';                 // Темы
$message 'message.txt';                // Сообщения
$email 'email.txt';                   //  База E-mail
$from 'geforse <antichat@geforse.name>'// От кого
$sleep '5';                        // Сколько отправлять писем в минуту
$log '0';                         // 1 - Если нужно писать log-файл
//-----------------//
 
   /* Заносим строки файлов в массив и считаем их количество */
   
$email file($email);
   
$subject file($subject);
   
$message file($message);
   
$count_email count($email);
   
$count_subject count($subject);
   
$count_message count($message);
 
     for (
$i 0$i <= $count_email$i++)
       {    
    
/* Генерируем число в пределах от 0 до максимального номера элемента массива */
 
       
$rand_subject mt_rand(0,$count_subject);
       
$rand_message mt_rand(0,$count_message);
 
       
/* Отправляем письмо */
      
mail($email[$i], $subject[$rand_subject], $message[$rand_message],'From: '.$from);
 
       
/* Если нужно, то пишем log-файл */
        
if ($log == '1')
          {
        
$fh fopen("log.txt""a+");
        
$success fwrite($fh"Отослали ".$email[$i]." [".date("H:i:s")."]\r\n");
        
fclose($fh);
          }
 
        if ((
$log == '1') && ($i == $count_email))
          {
        
$fh fopen("log.txt""a+");
        
$success fwrite($fh"Закончил! Разослано ".$i." E-mail [".date("H:i:s")."]\r\n");
        
fclose($fh);
          }
        
sleep(60/$sleep);
       }
 
/* geforse.name */
?>
 
Ответить с цитированием
Ответ



Предыдущая тема Следующая тема
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Нужна прога для ICQ Hertz Skype, IRC, ICQ, Jabber и другие IM 4 03.07.2009 07:41
Помогите пожалуйста! НУЖНА ПРОГА! unnamed(ch) Windows 3 18.06.2006 11:07
Нужна прога ломающая exe архивы... Intakto Болталка 0 24.05.2006 11:56
Нужна прога. Плиз) Bayazid Болталка 0 01.04.2006 14:45



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT ™ © 2001- Antichat Kft.