IP check

8 Comments

1. AnryMc 16.03.2013 at 14:38

   (0) Интересно, а 1С причем?

   Reply ↓
2. w22u 16.03.2013 at 19:48

   (1) возможно эта программа потребуется тому, кто использует динамический IP. При его смене разными способами оперативно его можно узнать, а значит иметь доступ к открытым портам из вне. Действительно к 1С отношение небольшое, а вот некоторым администраторам может пригодиться.

   Reply ↓
3. CratosX 17.03.2013 at 17:07

   господи, спаси и сохрОни!

   Reply ↓
4. Dimasik2007 17.03.2013 at 17:40

   Дизайн ужасен, функционал не расписан — «минус».

   Reply ↓
5. foxss 17.03.2013 at 18:34

   (1) мало но все же есть.
   
   ситуация: есть фирма с динам ip и есть удаленный бух. база хранится в фирме, да и вообще бух. заходит по rdp. ну или база цепляется автоматом достаточно скачать готовый конфиг в определенную папку что тоже можно делать автоматически.

   зы забыл добавить файл хэлпа. добавил.

   Reply ↓
6. AnryMc 17.03.2013 at 19:18

   (5) foxss,

   Я тоже решал такую задачу, правда, через сервер бесплатных имен, поэтому и спросил (1). Опишите подробнее что, зачем и как…

   Наверно многим поможет…

   Reply ↓
7. smaharbA 17.03.2013 at 22:27

   ХТТП = Новый HTTPСоединение(«internet.yandex.ru»,80,,, ПроксиСервер);
   ХТТП.Получить(«/»,Ответ);
   Текст=Новый ТекстовыйДокумент;
   Текст.Прочитать(Ответ,КодировкаТекста.UTF8);
   Для Сч=1 По Текст.КоличествоСтрок() Цикл
   Стр=Текст.ПолучитьСтроку(Сч);
   Если Найти(ВРег(Стр),»IPV4:»)>0 Тогда
   Предупреждение(СокрЛП(Стр));
   КонецЕсли;
   КонецЦикла;
   
   ХТТП = Новый HTTPСоединение(«ifconfig.me»,80,,, ПроксиСервер);
   ХТТП.Получить(«/ip»,Ответ);
   Текст=Новый ТекстовыйДокумент;
   Текст.Прочитать(Ответ,КодировкаТекста.UTF8);
   Для Сч=1 По Текст.КоличествоСтрок() Цикл
   Стр=Текст.ПолучитьСтроку(Сч);
   Предупреждение(СокрЛП(Стр));
   КонецЦикла;
   
   ХТТП = Новый HTTPСоединение(«2ip.ru»,80,,, ПроксиСервер);
   ХТТП.Получить(«/»,Ответ);
   Текст=Новый ТекстовыйДокумент;
   Текст.Прочитать(Ответ,КодировкаТекста.UTF8);
   Для Сч=1 По Текст.КоличествоСтрок() Цикл
   Стр=Текст.ПолучитьСтроку(Сч);
   Если Найти(ВРег(Стр),»CLIP.SETTEXT»)>0 Тогда
   Предупреждение(СокрЛП(Стр));
   КонецЕсли;
   КонецЦикла;
   

   Показать

   Reply ↓
8. foxss 17.03.2013 at 22:38

   (6) готовый код состовляется путем вставки IP адреса вместо спец символа встречающегося в заготовке.
   
   Например, код:
   

   #k8SjZc9Dxk» target=»_blank» rel=»nofollow»>#k8SjZc9Dxk

   будет преабразован в:
   

   178.71.177.255» target=»_blank» rel=»nofollow»>178.71.177.255

   более подробно на офф. сайте.

   Reply ↓