Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 08.01.2011, 13:26   #1
pray_driver
Форумчанин
 
Аватар для pray_driver
 
Регистрация: 18.08.2010
Сообщений: 140
По умолчанию Как узнать IP

Народ, добрый день всех с прошедшими праздниками.

Такой вопрос: Как узнать IP-адрес, присвоенный мне как клиенту при pppoe-соединении. Всмысле какой функцией это можно сделать. Желательно на языке C, Perl, Javascript или php - на каком-нибудь из этих. В общем, просто узнать и вывести его в строковую переменную. Больше ничего не требуется
Люди бывают десяти типов: те, кто знают двоичную систему, и те, кто нет
pray_driver вне форума Ответить с цитированием
Старый 08.01.2011, 16:38   #2
Novi4ok_11
Форумчанин
 
Регистрация: 11.12.2010
Сообщений: 110
По умолчанию

С++ библиотеки winsock.h и windows.h
Функции:
gethostname
gethostbyname

Гляньте остальные функции
Novi4ok_11 вне форума Ответить с цитированием
Старый 08.01.2011, 16:44   #3
Valio
Сливочное масло
Участник клуба
 
Аватар для Valio
 
Регистрация: 01.01.2011
Сообщений: 1,149
По умолчанию

Да куча способов его узать. Для PHP это $_SERVER['REMOTE_ADDR'].

В чём конкретно задача?
Сливочное масло Valio - компиляция как по маслу
Valio вне форума Ответить с цитированием
Старый 08.01.2011, 21:21   #4
*PB*
Форумчанин
 
Регистрация: 11.08.2009
Сообщений: 558
По умолчанию

На PureBasic.
Код:
If InitNetwork() = 0
  MessageRequester("", "Проблемы с сетью!", #MB_OK|#MB_ICONERROR)
  End
EndIf

Connect=OpenNetworkConnection("ippages.com", 80)
If Connect
  SendNetworkString(Connect,"GET /simple/ HTTP/1.0" + Chr(10) + Chr(10) )
  *Mem=AllocateMemory(100000)
  i=0 : HTML.s=""
  Repeat
    If NetworkClientEvent(Connect) = #PB_NetworkEvent_Data
      ReceiveNetworkData(Connect,*Mem,100000)
      HTML + PeekS(*Mem)
      Break
    EndIf
    Delay(100)
    i+1
    If i>20
     Break
    EndIf
  ForEver
 
  PosIP=FindString(HTML, "Content-Type: text/html", 1)
  If PosIP>0
    IP.s=Trim(Mid(HTML, PosIP+27, Len(HTML) - PosIP - 23))
    MessageRequester("", "IP адрес компа - "+IP, #MB_OK|#MB_ICONINFORMATION)
  Else
   MessageRequester("", "Не удалось определить IP адрес", #MB_OK|#MB_ICONWARNING)
  EndIf
Else
  MessageRequester("", "Нет связи с интернетом!", #MB_OK|#MB_ICONERROR)
EndIf
Во вложении, скомпилированная программа.
Вложения
Тип файла: rar MyIP.rar (3.9 Кб, 7 просмотров)
*PB* вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как узнать ip адрес Hichigo Общие вопросы C/C++ 5 06.08.2010 15:48
Как узнать цвет zmey31313 Общие вопросы Delphi 4 15.02.2010 18:50
Как узнать ? HellMercenariess Свободное общение 2 30.10.2009 08:40
Как узнать хендл SeRhy Помощь студентам 1 19.11.2007 21:39
Как узнать IP адрес? AidarBik Работа с сетью в Delphi 2 11.07.2007 12:37