Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Delphi авторизация на сайте, и ..... [D7, XP]


Страницы:   1 2

caHek ©   (2011-01-25 20:57:00) 

function get_money($login,$pass)

{

$ch = curl_init(' http://srv2.murclub.ru/xmls/xml_proxy.php');  

curl_setopt($ch, CURLOPT_USERAGENT, 'Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.0.7) Gecko/2009021910 Firefox/3.0.7 (.NET CLR 3.5.30729)');  

curl_setopt($ch, CURLOPT_COOKIE, 'mur_mail='.$login.'; mur_pass='.md5($pass));  

curl_setopt($ch, CURLOPT_REFERER, ' http://murclub.ru/flash/MXMLSocketProxy.swf?1163');  

curl_setopt($ch, CURLOPT_POST, 1);  

curl_setopt($ch, CURLOPT_POSTFIELDS, 'query=SALARY');  

curl_setopt($ch, CURLOPT_FOLLOWLOCATION, 0);  

curl_setopt($ch, CURLOPT_RETURNTRANSFER, 1);  

$res = curl_exec($ch);  

if(preg_match('#salarytime=\"(.*?)\"#',$res,$matches))  

{  

   $time =  $matches[1] / 60;

   echo '<p align="center"> <font face="Verdana" size="3" color="green">До следующей зарплаты:</font><br> '.intval($time).'минут(ы).<br></p>';

   echo '<p align="center"> <font face="Verdana" size="3" color="green">Ссылка для CRON:</font><br> <a href="http://'.$_SERVER['SERVER_NAME'].$_SERVER['REQUEST_URI'].'">http://'.$_SERVER['SERVER_NAME'].$_SERVER['REQUEST_URI'].'</a><br></p>';

   

} else {

   echo '<p align="center"> <font face="Verdana" size="3" color="red">Неудалось авторизоваться!</font></p>';

   Form();

   

}


Народ нужна помощь. Выше выложен код, php, суть заключается в том что авторизуется на сайте, нажимает на кнопку, при нажатии на кнопку на сайте включается таймер, время через которое можно о5 нажать на ету кнопку,

просьба помочь реализовать ето на delphi, очень надеюсь на помощь ....

KilkennyCat   (2011-01-28 12:16:00) [1]


> caHek ©   (27.01.11 15:42) [20]

ну ты кадр...

caHek   (2011-01-27 15:42:00) [2]


> Игорь Шевченко ©   (27.01.11 15:12) [18]
> обманывать нехорошо


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

Anatoly Podgoretsky   (2011-01-27 15:19:00) [3]

> bagos  (27.01.2011 15:03:16)  [16]

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

Игорь Шевченко   (2011-01-27 15:12:00) [4]


> так вот я хотел написать программу бота на delphi которая
> сама будет нажимать ету кнопку по истечении времени ....
>


обманывать нехорошо

KSergey   (2011-01-27 15:07:00) [5]

> bagos   (27.01.11 15:03) [16]
> FreeAndNil предпочтительней, чем просто Free

Враньё. Это распространяемое некоторыми заблуждение. Даже теор. базу под это некоторые подводят.

bagos   (2011-01-27 15:03:00) [6]


>  http.free;
>  post.free;

FreeAndNil предпочтительней, чем просто Free

caHek   (2011-01-27 13:25:00) [7]

дамс продолжение следует ...
обсуждение часть 2 .... ))

кому чтото осталось непонятным обьясню ...
"накрутить бабла" ето не совсем правильный смысл ...

суть заключалась в том что:
есть чат в котором надо нажимать клавишу "зарплата" тебе прибавляются монеты в чаты(тобиш рейтинг)
при нажатии клавиши включается таймер через сколько можно нажать еще раз ...
так вот я хотел написать программу бота на delphi которая сама будет нажимать ету кнопку по истечении времени ....
я нашол такогоже бота только на php
вот и попросил помочь с переводом из php в делфи ... потомучто в делфи с сетями я не работал ...
вот в итого че сделал/чего хотел


function TForm1.login(email, pass: string): string;
var
 http: TIdHTTP;
 post: tstringlist;
begin
 result := '';
 http := TIdHTTP.Create;
 post := tstringlist.Create;

 post.Add('query=SALARY');
 http.Request.Host := 'murclub.ru';
 http.Request.UserAgent :=
   'Mozilla/5.0 (Windows; U; Windows NT 6.1; ru; rv:1.9.2.12) Gecko/20101026 Firefox/3.6.12';
 http.Request.Accept :=
   'text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';
 http.Request.AcceptLanguage := 'ru-ru,ru;q=0.8,en-us;q=0.5,en;q=0.3';
 http.Request.AcceptCharSet := 'windows-1251,utf-8;q=0.7,*;q=0.7';
 http.Request.ContentType := 'application/x-www-form-urlencoded';
 http.AllowCookies := true;
 http.HandleRedirects := true;
 http.Request.Referer := ' http://murclub.ru/flash/MXMLSocketProxy.swf?1163';
 http.Request.CustomHeaders.Add
   ('Cookie: mur_mail=' + email + '; mur_pass=' + pass + ';');
 try
   result := http.post(' http://srv2.murclub.ru/xmls/xml_proxy.php', post);
 EXCEPT
   showmessage('Не удается подключиться к серверу');
 end;
 http.free;
 post.free;
end;

antonn   (2011-01-27 09:19:00) [8]


> Тут в пыхыпы-закорюки вникать никто не будет.

ничего сложного, но он пользует Curl. Это уже как пол браузера написать.

KilkennyCat   (2011-01-27 04:31:00) [9]

да что там непонятного, чувак хочет виртуального бабла в игрушке накрутить

Германн   (2011-01-27 01:35:00) [10]


> я и сам перевел етот php код в delphi

Поздравляем! Это достижение несомненно будет по достоинству оценено наукой и обществом! Ник caHek будет увековечен в истории!

Вот только об чём был сам вопрос так и осталось не понятно :(

caHek   (2011-01-27 00:47:00) [11]

KSergey молодец ты читал что мне надо ...
как бы то чтото связанное с сетями, авторизацией и тд ...
а ты что кидаеш ...
-------------------------------
всем спасибо за то что вместо кода все дружно обсуждали мои ошибки
я и сам перевел етот php код в delphi

KSergey   (2011-01-26 12:29:00) [12]

> caHek ©   (25.01.11 21:57) [2]
> чтоб к примеру я в edit вводил емейл и пароль ..
> и при нажатии старт к примеру мне в label выводило оставшееся время ...

Кидаем на форму кнопку, 2 поля Edit, Label и таймер.
Интервал у таймера выставляем 1 сек. Свойство Enabled таймера уст. в False.

В обработчике нажатия на кнопку пишем:

Button1.Enabled := False;
Timer1.Enabled := True;
Label1.Caption := '5';

Далее, в обработчик OnTimer нашего таймера вставляем код:

var
   i : Integer;
begin
   i := StrToInt(Label1.Caption);
   Dec(i);
   Label1.Caption := IntToSTr(i);
   if i = 0 then
   begin
       Timer1.Enabled := False;
       Button1.Enabled := True;
   end;
end;
   
Вроде все, должно работать.

Германн   (2011-01-26 05:44:00) [13]

Удалено модератором

Плохиш   (2011-01-26 00:58:00) [14]

Удалено модератором

Ega23   (2011-01-26 00:22:00) [15]


>  которое можно о5нажать на ету кнопку

Когда-то давно, лет 10 назад, одного моего знакомого-третьекурсника не взяли на работу в Rambler (тогда это было о-го-го). За вот такое коверкание языка. Ответ был: "Нам нужны серьёзные люди".

Ты действительно думаешь, что это круто?

KilkennyCat   (2011-01-25 23:06:00) [16]


> caHek ©   (25.01.11 21:57) [2]
>
>
> > CGI, что ли?
>
> ето что ?


ты привел здесь пхп. пхп - это веб-технологии. твой вопрос подразумевает использование веб-технологий с делфи. если ты совершенно этого не знаешь, то рано спрашивать, надо сначала хоть основы изучить.
если имелось ввиду что-то другое, то вопрос надо задавать правильно.
http://ln.com.ua/~openxs/articles/smart-questions-ru.html
http://www.delphimaster.ru/forums.shtml#rule

не изучишь и не будешь придерживаться того, что в приведенных ссылках - не рассчитывай на разумный ответ.

DiamondShark   (2011-01-25 22:48:00) [17]

Тут в пыхыпы-закорюки вникать никто не будет.
По-русски опиши задачу.

caHek   (2011-01-25 22:00:00) [18]

или вот тут еще есть
http://motoworld.sytes.net:5000/murclub/auto.php?source

caHek   (2011-01-25 21:58:00) [19]

http://grabberz.com/showthread.php?t=14818
на етом сайте етот код полная версия ...

caHek   (2011-01-25 21:57:00) [20]


> CGI, что ли?

ето что ?

> > помочь реализовать ето на delphi

етот код перевести в код delphi 2007
чтоб к примеру я в edit вводил емейл и пароль ..
'mur_mail='.$login.'; mur_pass='.md5($pass))
и при нажатии старт к примеру мне в label выводило оставшееся время ...
при истечении времени о5 нажимать на кнопку ....
в выложенном коде php ето реализовано ...

Страницы:   1 2

Наверх

Титульная страница Поиск, карта сайта Написать письмо