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-25 21:52:00) [21]
> помочь реализовать ето на delphi
CGI, что ли?
Страницы:
<
1
2
>
Наверх 
ЧАТ |
Орешник |
|
