Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   Soft - Windows (https://forum.antichat.xyz/forumdisplay.php?f=47)
-   -   Ищу программку (https://forum.antichat.xyz/showthread.php?t=50421)

Zolden 03.10.2007 20:11

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

Kaimi 03.10.2007 20:20

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

LEE_ROY 03.10.2007 20:25

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

Код:

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;


mr.The 03.10.2007 20:36

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

Zolden 04.10.2007 00:14

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

Alexsize 04.10.2007 00:35

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


Время: 01:56