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

← →
caHek © (2011-01-25 20:57) [0]

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 "До следующей зарплаты: ".intval($time)." минут(ы). "; echo "Ссылка для CRON: <a href="http://".$_SERVER["SERVER_NAME"].$_SERVER["REQUEST_URI"]."">http://".$_SERVER["SERVER_NAME"].$_SERVER["REQUEST_URI"]."</a> "; } else { echo "Неудалось авторизоваться!"; Form(); }

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

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

← →
KilkennyCat © (2011-01-25 21:52) [1]

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

CGI, что ли?

← →
caHek © (2011-01-25 21:57) [2]

> CGI, что ли?

ето что ?

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

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

← →
caHek © (2011-01-25 21:58) [3]

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

← →
caHek © (2011-01-25 22:00) [4]

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

← →
DiamondShark © (2011-01-25 22:48) [5]

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

← →
KilkennyCat © (2011-01-25 23:06) [6]

> 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

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

← →
Ega23 © (2011-01-26 00:22) [7]

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

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

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

← →
Плохиш © (2011-01-26 00:58) [8]

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

← →
Германн © (2011-01-26 05:44) [9]

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

← →
KSergey © (2011-01-26 12:29) [10]

> 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;

Вроде все, должно работать.

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

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

← →
Германн © (2011-01-27 01:35) [12]

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

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

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

← →
KilkennyCat © (2011-01-27 04:31) [13]

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

← →
antonn © (2011-01-27 09:19) [14]

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

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

← →
caHek © (2011-01-27 13:25) [15]

дамс продолжение следует ...
обсуждение часть 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;

← →
bagos (2011-01-27 15:03) [16]

> http.free;
> post.free;

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

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

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

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

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

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

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

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

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

Delphi авторизация на сайте, и ..... Найти похожие ветки