Форум программистов, компьютерный форум, киберфорум
Delphi: Сети
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
caHek-2x
1

Delphi & php

25.01.2011, 21:49. Показов 799. Ответов 0
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
суть етого кода: авторизуется на сайте, нажимает на клавишу дальше высвечивается время через сколько следущее нажатие (на сайте при нажатии на кнопку включается таймер через скока кнопка о5 доступна)
PHP
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
function get_money($login,$pass)
{
$ch = curl_init('http://srv2.murclub.ru/xmls/xml_proxy.ph...');
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....');
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><font>До следующей зарплаты:</font> '.intval($time).' минут(ы).</p>';
echo '<p><font>Ссылка для CRON:</font> </p>';
echo '<p><font>Последнее открытие этой страницы:</font>'.date("d.m.Y H:i").' GMT +3';
 
} else {
echo '<p><font>Не удалось авторизоваться! Возможно неверный логин или пароль! Либо сервер мурклуба завис!</font></p>';
Form();
 
}
}
помогите ето перевести на delphi
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.01.2011, 21:49
Ответы с готовыми решениями:

Delphi XE5 & Android & Подключение к SQL Server
Пишу приложение для Android. Нужно подключиться к SQL Server и получать данные, но стандартные...

Примеры работы IBX & InterBase & Delphi
Начал работать с IBX &amp; InterBase &amp; Delphi. может кто знает где можна найти нормальную доку, примери...

Delphi & MSSQL2K & NText - глюк!!!
Привет All. Вот в чем проблема: на сервере MSSQL 2000 валяется stored procedure app_ins_mat....

Delphi XE5 & Android & MS SQL
Привет! Во-первых предложение модераторам создать отдельную тему по XE и Android!)) Теперь по...

0
25.01.2011, 21:49
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.01.2011, 21:49
Помогаю со студенческими работами здесь

Delphi+Php: Возможно ли вставить код php в Delphi (если да, то каким образом)
вот такой вопрос у меня возник, если гора не идет к Магомеду, то прийдется Магомеду идти к ней.

Delphi&Access&logs
Добрый вечер у меня есть программка Есть форма авторизации, есть кнопка войти, при нажатии кнопки...

Delphi & Excel & Color
Не могу присвоить цвет ни 1 ни 2 способом, в чем беда? var FXLS: variant; color:Tcolor; ......

Php && GET && mod_rewrite, проверка ссылки
.htaccess RewriteCond %{REQUEST_FILENAME} !-d RewriteCond %{REQUEST_FILENAME} !-f RewriteRule...

query='SELECT * FROM resume WHERE ' & ''' & RecSet('place')& ''' & '=' & '''& s_loc &''' & - что не так?
упростил для краткости запрос. в чем ошибка? RecSet - это коннекшн. query='SELECT * FROM resume...

error '80020009' &Icirc;&oslash;&egrave;&aacute;&ecirc;&agrave;. /lalala/profile.asp, line 28
При простейшем и сто раз работавшем скрипте, вылетает ошибка! след. содержания error...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru