Форум АНТИЧАТ - Ищу программку

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- Soft - Windows (https://forum.antichat.xyz/forumdisplay.php?f=47)

- - Ищу программку (https://forum.antichat.xyz/showthread.php?t=50421)

Ищу программку

Нужна программа, которая постоянно показывала мой Ip при каждом подключении к инету, допустим в трее, или на рабочем столе.
Мож есть у кого?

http://www.getfreesofts.com/soft/140/7387/IP_Desktop_Viewer_XP.html

мля я кодил сидел, я ты ппц ... =\
пох, во как можно :

Код:

var   Host: TLabel;

  IPaddr: TLabel;

...

function IsConnectedToInternet: Boolean;

var

  dwConnectionTypes: DWORD;

begin

  dwConnectionTypes :=

    INTERNET_CONNECTION_MODEM +

    INTERNET_CONNECTION_LAN +

    INTERNET_CONNECTION_PROXY;

  Result := InternetGetConnectedState(@dwConnectionTypes, 0);

end;





procedure ShowIp;

var

 wVerReq: WORD;

 wsaData: TWSAData;

 i: PChar;

 h: PHostEnt;

 c: array[0..128] of char;

begin

if IsConnectedToInternet then

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

    else

MessageBoxA(0,'Not Connected!', 'Info', 0);

end;

ставиш себе аутпост (фраер такой) и он показывает тебе твой ип.
или пишеш в командной строке "ipconfig" (без кавычек).
или созда

СПАСИБО ВСЕМ!!!

Жесть. Щелкнуть на значке подключений и посмотреть свой ip не канает?