Автор Тема: Узнать ip адресс  (Прочитано 7213 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн Zuzik [?]

  • Новичок
  • *
  • Сообщений: 45
  • Репутация: 5
    • Награды
Узнать ip адресс
« Создано: Май 07, 2010, 20:01:55 »
Значит есть компьютер к которому хочу подключаться удалённо.
К моему несчастью у динамический айпишник(

Есть прога на AutoIt'е(нечто пульта ДУ), которая работает по аське.

Возможно ли с помощью AutoIt'а получить текущий айпишник(комп теоретически выключаться не будет, но экскаваторщика петю, или праздник в серверной прова исключать не стоит).

Рою функции но пока не найду подходящей(


Русское сообщество AutoIt

Узнать ip адресс
« Отправлен: Май 07, 2010, 20:01:55 »

Оффлайн Kaster [?]

  • Бритва, Бритва Оккама
  • Глобальный модератор
  • *
  • Сообщений: 4020
  • Репутация: 622
  • Пол: Мужской
  • Мой Аватар, он лучший самый
    • Награды
  • Версия AutoIt: 3.3.14.0
Re: Узнать ip адресс
« Ответ #1, Отправлен: Май 07, 2010, 20:06:17 »
Zuzik
Рыть-то особо не далеко  ;D
Код: AutoIt [Выделить]
смотри, какой именно тебе нужен
Конференция посвященная AutoIt на jabber.ru - [email protected]
Как попасть на конференцию читаем тут


Оффлайн Zuzik [?]

  • Новичок
  • *
  • Сообщений: 45

  • Автор темы
  • Репутация: 5
    • Награды
Re: Узнать ip адресс
« Ответ #2, Отправлен: Май 07, 2010, 20:07:03 »
Тьфу, не думал, что они будут в макросах спасибо)

Оффлайн Zuzik [?]

  • Новичок
  • *
  • Сообщений: 45

  • Автор темы
  • Репутация: 5
    • Награды
Re: Узнать ip адресс
« Ответ #3, Отправлен: Май 15, 2010, 21:51:24 »
Задача несколько усложнилась, после установки роутера.
Как быть если надо узнать внешний IP? с машины?

Русское сообщество AutoIt

Re: Узнать ip адресс
« Ответ #3 Отправлен: Май 15, 2010, 21:51:24 »

Оффлайн Yuriy [?]

  • AutoIt Гуру
  • *****
  • Сообщений: 737
  • Репутация: 281
  • Пол: Мужской
    • Награды
  • Версия AutoIt: 3.3.14.0
Re: Узнать ip адресс
« Ответ #4, Отправлен: Май 15, 2010, 22:55:23 »
ping mail.ru
например

Оффлайн Zuzik [?]

  • Новичок
  • *
  • Сообщений: 45

  • Автор темы
  • Репутация: 5
    • Награды
Re: Узнать ip адресс
« Ответ #5, Отправлен: Май 15, 2010, 23:02:36 »
ну так мы узнаем внешний адресс маил.ру(
А не нашей машины(

Оффлайн dwerf [?]

  • AutoIt Гуру
  • *****
  • Сообщений: 478
  • Репутация: 218
  • Пол: Мужской
  • Использует ArchLinux
    • Награды
Re: Узнать ip адресс
« Ответ #6, Отправлен: Май 15, 2010, 23:07:17 »
Код: AutoIt [Выделить]
#include <Inet.au3>
$PublicIP = _GetIP()
MsgBox(0, "IP Address", "Your IP Address is: " & $PublicIP)

00110110001000001101000011010011001

Оффлайн Yuriy [?]

  • AutoIt Гуру
  • *****
  • Сообщений: 737
  • Репутация: 281
  • Пол: Мужской
    • Награды
  • Версия AutoIt: 3.3.14.0
Re: Узнать ip адресс
« Ответ #7, Отправлен: Май 15, 2010, 23:07:44 »
Значит я не правильно понял Ваш вопрос:
надо узнать внешний IP
@IPAddress и _GetIP не работает?
Я проверил на своей машине. Работает.
« Последнее редактирование: Май 15, 2010, 23:18:29 от Yuri »

Русское сообщество AutoIt

Re: Узнать ip адресс
« Ответ #7 Отправлен: Май 15, 2010, 23:07:44 »

Оффлайн Kaster [?]

  • Бритва, Бритва Оккама
  • Глобальный модератор
  • *
  • Сообщений: 4020
  • Репутация: 622
  • Пол: Мужской
  • Мой Аватар, он лучший самый
    • Награды
  • Версия AutoIt: 3.3.14.0
Re: Узнать ip адресс
« Ответ #8, Отправлен: Май 15, 2010, 23:23:52 »
Можно например так
Код: AutoIt [Выделить]
$xPage = InetRead("http://www.whatismyip.ru")
$sPage = BinaryToString($xPage)
$IP_pat = '(?s).+\<font\scolor\=blue\>\<h1\>Ваш\sip\sадрес:\<br\>\n(\d+\.\d+\.\d+\.\d+)\n\</h1\>\</font\>.+'
$sIP = StringRegExpReplace($sPage, $IP_pat, '\1')
MsgBox(0, '', $sIP)
 


Оффлайн dwerf [?]

  • AutoIt Гуру
  • *****
  • Сообщений: 478
  • Репутация: 218
  • Пол: Мужской
  • Использует ArchLinux
    • Награды
Re: Узнать ip адресс
« Ответ #9, Отправлен: Май 15, 2010, 23:36:33 »
Только что в голову пришло: если в веб-интерфейсе роутера показывается внешний ип, можно скачать страницу с роутера, и прочитать ип из неё. Будет быстрее чем откуда то с интернета.

Оффлайн Kaster [?]

  • Бритва, Бритва Оккама
  • Глобальный модератор
  • *
  • Сообщений: 4020
  • Репутация: 622
  • Пол: Мужской
  • Мой Аватар, он лучший самый
    • Награды
  • Версия AutoIt: 3.3.14.0
Re: Узнать ip адресс
« Ответ #10, Отправлен: Май 15, 2010, 23:40:02 »
dwerf
1. если роутер не подключен к другому роутеру провайдера или к шлюзу. это достаточно редко, но бывает
2. сравнивать скорость получения пары килобайт с вебморды роутера или с брать это с инета, разница, ИМХО, неощутима

Оффлайн Garrett [?]

  • Глобальный модератор
  • *
  • Сообщений: 3999
  • Репутация: 961
  • Пол: Мужской
    • Награды
  • Версия AutoIt: 3.3.14.0
Re: Узнать ip адресс
« Ответ #11, Отправлен: Май 16, 2010, 04:54:48 »
Zuzik
Может пригодится:
Код: AutoIt [Выделить]
$Result = InetRead("http://login:[email protected]/status.htm")
$Result = BinaryToString($Result)
$Result = StringStripWS($Result,8)
$Result = StringRegExp($Result, "(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})", 3)
;~ If IsArray($Result) Then
;~  _ArrayDisplay($Result)
;~ EndIf
ConsoleWrite("~~~~~~~~~~~~~~~ LAN ~~~~~~~~~~~~~~~" &@CRLF)
ConsoleWrite("IP Address.: " & $Result[0] &@CRLF)
ConsoleWrite("Subnet Mask.: " & $Result[1] &@CRLF)
ConsoleWrite("~~~~~~~~~~~~~~~ WAN ~~~~~~~~~~~~~~~" &@CRLF)
ConsoleWrite("IP Address.: " & $Result[2] &@CRLF)
ConsoleWrite("Subnet Mask.: " & $Result[3] &@CRLF)
ConsoleWrite("Gateway.: " & $Result[4] &@CRLF)
ConsoleWrite("DNS.: " & $Result[5] & " - " & $Result[6] &@CRLF)
ConsoleWrite("~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~" &@CRLF)


P.S. Я так у себя с роутера вытаскивал, кода понадобилось.

Скорблю и помню.




Русское сообщество AutoIt

Re: Узнать ip адресс
« Ответ #11 Отправлен: Май 16, 2010, 04:54:48 »

 

Похожие темы

  Тема / Автор Ответов Последний ответ
3 Ответов
5383 Просмотров
Последний ответ Август 10, 2010, 04:14:15
от CreatoR
6 Ответов
6214 Просмотров
Последний ответ Сентябрь 09, 2010, 20:21:04
от Sedrick
1 Ответов
3225 Просмотров
Последний ответ Октябрь 14, 2010, 22:03:34
от Yashied
14 Ответов
7589 Просмотров
Последний ответ Апрель 01, 2011, 03:41:38
от Garrett
14 Ответов
5967 Просмотров
Последний ответ Декабрь 07, 2010, 14:18:03
от Sky-WaLkeR
1 Ответов
3600 Просмотров
Последний ответ Декабрь 08, 2010, 08:51:03
от Redline
3 Ответов
3997 Просмотров
Последний ответ Декабрь 22, 2010, 11:04:49
от madmasles
1 Ответов
2830 Просмотров
Последний ответ Август 04, 2011, 23:07:17
от madmasles
3 Ответов
2035 Просмотров
Последний ответ Июнь 13, 2012, 17:39:17
от Spyhunter
1 Ответов
1645 Просмотров
Последний ответ Декабрь 01, 2012, 14:32:17
от Medic84