|
dolphin
|
Дата: Понедельник, 21.03.2011, 17:32 | Сообщение # 1
|
Администратор
Сообщений: 904
Статус: Offline
|
Немного подредактировал то что нашёл в инете, при сжатии вес 1,2 кб получается
Code
<?php
$ip=$_SERVER['REMOTE_ADDR'];
$all=date("m.d.Y H:i:s").' : '.$ip;
$base = fopen('base.txt', "a+");
fwrite($base, $all."\r\n");
fclose($base);
?>
Доступно только для пользователей
Система: Windows 10 x64, Windows XP
Среды программирования: Delphi 7, Delphi 10 Seattle
Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик
Сообщение отредактировал dolphin - Вторник, 17.05.2011, 14:54
|
| |
|
|
|
gravitas
|
Дата: Понедельник, 21.03.2011, 18:01 | Сообщение # 2
|
Авторитетный
Зарегистрирован: 01.05.2010
Группа: Пользователи
Сообщений: 385
Статус: Offline
|
Это конечно хорошо, что код полностью без инклудов, но новичкам трудновато будет понять. Для того, кому выше изложенный код немного "недоступен" выкладываю свой (упрощенный) вариант сендера на WinInet:
Code
Programm sender;
uses [b]WinInet[/b];
// Поцедура для отправки
Procedure sendIP(url :String);
var
hSock :HINTERNET;
hFile :HINTERNET;
begin
hSock := InternetOpen(PChar('IPOnGate client'), 0, nil, nil, 0);
hFile := InternetOpenUrl(hSock, PChar(url), nil, 0, INTERNET_FLAG_EXISTING_CONNECT, 0);
InternetCloseHandle(hSock);
end;
//Использование
begin
SendIP('http://site.com/gate.php');
end;
TheDeduction
Для ускорения получения ответов на ваши вопросы рекомендуется подкармливание в виде +'ов в рейтинг :)
|
| |
|
|
|
MAS
|
Дата: Пятница, 25.04.2014, 21:47 | Сообщение # 3
|
Участник
Зарегистрирован: 16.08.2013
Группа: Пользователи
Сообщений: 67
Статус: Offline
|
gravitas твой я не понял как использовать, ошибки, геит написал бы, а вот код dolphina робит отлично)
За одну ночь нельзя изменить свою жизнь, но за одну ночь можно изменить мысли которые изменят твою жизнь. (MAS)
|
| |
|
|
