|
Показать IP - Вопросы и ответы, обсуждения - Ваши вопросы по Pascal/Delphi только в данном разделе |
18.03.2013, 10:11
|
#1
|
|
|
|
Разведчик
|
Регистрация: 18.03.2013
Сообщений: 0
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
|
Показать IP
Помогать как показать ip через delphi когда я нажимаю button1 ip появилось в ladel1 зарание спасибо
|
|
|
18.03.2013, 12:15
|
#2
|
|
|
|
Фельдмаршал
|
Регистрация: 13.08.2009
Сообщений: 1,004
Популярность: 25098
Золото Zhyk.Ru: 350
Сказал(а) спасибо: 110
Поблагодарили 830 раз(а) в 395 сообщениях
|
Re: Показать IP
Host и IPaddr - TLabel.
Код:
procedure GetHostAndIP;
var
wVerReq: WORD;
wsaData: TWSAData;
i: pchar;
h: PHostEnt;
c: array[0..128] of char;
begin
with form1 do
begin
wVerReq := MAKEWORD(1, 1);
WSAStartup(wVerReq, wsaData);
GetHostName(@c, 128);
h := GetHostByName(@c);
Host.Caption := h^.h_Name;
i := iNet_ntoa(PInAddr(h^.h_addr_list^)^);
IPaddr.Caption := i;
WSACleanup;
end;
end;
________________
Ни одно доброе дело не остается безнаказанным.
Программы:
PW: Флудобот, Девизхак, OutFocusBot, OutFocusBot ver 3 (freepvp), PWMultiHack ver 3, AutoRespawn.
JD: JDMultiHack, JDFlooder, JDBot.
Статьи: Отключаем UAC, Ищем базовый адрес Perfect World, "Патчер памяти" или "Пишем флайхак", "Патчер памяти 2" или "Пишем Джампхак", "Поиск инжектов" или "Наш код в чужом процессе"
|
|
|
22.03.2013, 14:59
|
#3
|
|
|
|
Разведчик
|
Регистрация: 22.03.2013
Сообщений: 0
Популярность: 71
Сказал(а) спасибо: 0
Поблагодарили 1 раз в 1 сообщении
|
Re: Показать IP
Можно просто гет запрос на 2ip и от туда спарсить айпи и вывести в лейбел) это нужно?
|
|
|
26.03.2013, 00:35
|
#4
|
|
|
|
Разведчик
|
Регистрация: 11.05.2009
Сообщений: 16
Популярность: 1483
Сказал(а) спасибо: 13
Поблагодарили 70 раз(а) в 48 сообщениях
|
Re: Показать IP
Вот через Get запрос
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
html:string;
begin
html:=IdHTTP1.Get('http://2ip.ru/');
Delete(html,1,pos('id="d_clip_button">',html)+length('id="d_clip_button">')-1);
Delete(html,pos('<', html),length(html));
Label1.Caption:=html;
end;
________________
Помог тыкни спасибку
|
|
|
Ваши права в разделе
|
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения
HTML код Выкл.
|
|
|
Заявление об ответственности / Список мошенников
Часовой пояс GMT +4, время: 02:39.
|
|