[VBScript] IP Location Checker

Тема в разделе "Банк полезных кодов", создана пользователем Kиpилл, 14 янв 2014.

  1. Kиpилл
    Оффлайн

    Kиpилл Команда форума Администратор

    Лучший автор месяца

    Сообщения:
    12.219
    Симпатии:
    4.978
  2. Dragokas
    Оффлайн

    Dragokas Very kind Developer Команда форума Супер-Модератор Разработчик Клуб переводчиков

    Сообщения:
    4.478
    Симпатии:
    4.307
    Значит Internet Explorer вырезан из системы или некорректно зарегистрирован.
    IP парсится через него.

    Попробуй просто запустить браузер, посмотри, что с ним не так.
    Нужно добиться, чтобы такой скрипт работал без ошибок:
    Код (Text):
    set ie = createobject("InternetExplorer.Application")
    Потом скажешь, что не так было.
    Можно конечно парсить по-глупому через скачивание страницы и сигнатурный поиск, но это не наш метод (с)
     
    Последнее редактирование: 14 янв 2014
    Kиpилл нравится это.
  3. Kиpилл
    Оффлайн

    Kиpилл Команда форума Администратор

    Лучший автор месяца

    Сообщения:
    12.219
    Симпатии:
    4.978
    Dragokas, ослик запускается и нормально работает.
    Вин 8.1.
    Тестовая ось с багом нужна? :)
    --- Объединённое сообщение, 14 янв 2014 ---
    Ок,буду пробовать.
     
  4. Dragokas
    Оффлайн

    Dragokas Very kind Developer Команда форума Супер-Модератор Разработчик Клуб переводчиков

    Сообщения:
    4.478
    Симпатии:
    4.307
    Виртуалка? Хочешь посмотреть, как я буду лечить? :)
    8.1. - может оно там и не работает )) Буду дома - проверю.
     
  5. Kиpилл
    Оффлайн

    Kиpилл Команда форума Администратор

    Лучший автор месяца

    Сообщения:
    12.219
    Симпатии:
    4.978
    Нет!

    Может кто то с такой ОС будет пользоваться?
     
  6. glax24
    Оффлайн

    glax24 Разработчик

    Сообщения:
    2.000
    Симпатии:
    1.450
    У меня на 8.1 нормально отработал
     
    Dragokas нравится это.
  7. SNS-amigo
    Оффлайн

    SNS-amigo SNS System Watch Freelance reporter

    Сообщения:
    5.220
    Симпатии:
    8.894
    Могу на своей 8.1 x32 проверить, но не пойму что вы хотите сделать и получить в результате? o_O
     
  8. Dragokas
    Оффлайн

    Dragokas Very kind Developer Команда форума Супер-Модератор Разработчик Клуб переводчиков

    Сообщения:
    4.478
    Симпатии:
    4.307
    SNS-amigo, у Кирилла ослик не слушается :)
    точнее не слушается моей программы.
     
  9. SNS-amigo
    Оффлайн

    SNS-amigo SNS System Watch Freelance reporter

    Сообщения:
    5.220
    Симпатии:
    8.894
    Ну так защиту в IE11 снимите. ;)
     
  10. Dragokas
    Оффлайн

    Dragokas Very kind Developer Команда форума Супер-Модератор Разработчик Клуб переводчиков

    Сообщения:
    4.478
    Симпатии:
    4.307
    Напиши какую именно из защит, если не сложно. Я сейчас без подопытного.
     
  11. SNS-amigo
    Оффлайн

    SNS-amigo SNS System Watch Freelance reporter

    Сообщения:
    5.220
    Симпатии:
    8.894
    Elementary, Watson!
    Ту, которую Microsoft впервые добавили в IE. Сначала добавили, но потом дали попятного.
    Если её не выключить, то выходит сообщение об ошибке с вариантами "Искать решение в Интернет" и "Закрыть программу".
    Или посмотреть подробности. Они на скриншоте.

    [​IMG]

    А выключить нужно "расширенный защищённый режим".
    IE11 -> меню Сервис -> Свойства браузера -> вкладка Дополнительно:
    Снять галочку на "Включить защищенный расширенный режим*", если она там стоит. Применить. ОК.

    См. скриншот.
    [​IMG]

    После этого нужно просто закрыть IE и снова запустить твой скрипт. И тогда сразу выходит окошечко с определённой локацией, не хуже тех, что имеются в онлайн-определителях, в том числе и Яндексе. Но сервис 2ip.ru поточнее определяет моё местоположение, хотя сейчас он споткнулся на браузере, приняв IE11 за Chrome 31. :D
     
    Последнее редактирование: 15 янв 2014
    Dragokas нравится это.
  12. Phoenix
    Онлайн

    Phoenix Активный пользователь

    Сообщения:
    1.847
    Симпатии:
    1.833
    Dragokas, строка 11 символ 9 - IE.Visible = False
    Что это ?
    eureka - IE.Visible = false //данный параметр позволяет не показывать окно Internet Explorer
    --- Объединённое сообщение, 15 янв 2014, Дата первоначального сообщения: 15 янв 2014 ---
    cmd->inetcpl.cpl
    всё равно работает
    Код (Text):
    IP Location Checker

    IP or WEB site - to check IP Location
    Blank line - to check your own IP
    q - to quit

    Enter IP or WEB: safezone.cc
    Please wait...
    IP........................................... 108.162.199.63
    Country...................................... [US] United States
    City......................................... San Francisco
    Belongs to IP RANGE.......................... UnKnown
    Network mask of the IP RANGE (bits/decimal).. -
    Network mask to ban SUB NETWORK (bits)....... 16 (recommended)
    Так и думал.. заграница нам поможет :)
     
    Последнее редактирование: 15 янв 2014
    Dragokas нравится это.
  13. SNS-amigo
    Оффлайн

    SNS-amigo SNS System Watch Freelance reporter

    Сообщения:
    5.220
    Симпатии:
    8.894
    :ROFLMAO:
    --- Объединённое сообщение, 15 янв 2014 ---
    Что работает?
     
    Последнее редактирование: 15 янв 2014
    Dragokas нравится это.
  14. Phoenix
    Онлайн

    Phoenix Активный пользователь

    Сообщения:
    1.847
    Симпатии:
    1.833
    cmd->inetcpl.cpl - так проще вызвать настройки Свойства браузера. Включил "расширенный защищённый режим" - скрипт не вызвал ошибок..
     
  15. SNS-amigo
    Оффлайн

    SNS-amigo SNS System Watch Freelance reporter

    Сообщения:
    5.220
    Симпатии:
    8.894
    Phoenix, с включением *-опций в IE нужен перезапуск системы или Проводника Windows, чтобы защита стала работать, а с отключением - достаточно простого перезапуска IE.

    Я же показал на скриншотах, как в Windows 8.1 x32 не работает скрипт IP Location Checker, и после чего он начинает работать. Только, разумеется, не стал показывать скриншот с IP и местонахождением, что супермодераторы и так знают. Правда, правильно определяя регионы и провайдера, эти сервисы-определители города и прочие НП всегда путают.

    Подробнее о расширенном защищенном режиме (EPM)
    http://msdn.microsoft.com/ru-ru/library/ie/dn265025(v=vs.85).aspx и далее там по ссылкам.
    Но и эта инфа немного уже устарела, в прошлом году были вскрыты некоторые неописанные там нюансы, но Microsoft поспешила эту информацию спрятать.
     
    Dragokas нравится это.
  16. Phoenix
    Онлайн

    Phoenix Активный пользователь

    Сообщения:
    1.847
    Симпатии:
    1.833
    Спасибо за информацию. И всё таки работает. Ну, действительно - если усиленная защита, то почему обязательно ошибки будут ? Нет. Только лишние оповещения при работе с IE.
    А вот в журнале обнаружил кое что ! С каких пор ослик картинки смотрит ?
    iespy.png
     
  17. SNS-amigo
    Оффлайн

    SNS-amigo SNS System Watch Freelance reporter

    Сообщения:
    5.220
    Симпатии:
    8.894
    Это не ошибки Windows, этот её способ защиты от того, что там не должно быть изначально. В данном случае скрипта Dragokas.
    Т.к. в 8-ке реализована доп. защита от эксплуатации вредоносами и хакерскими программами тех уязвимостей, что эксплуатировались в предыдущих версиях системы. Также в 8.1 имеется собственный аналог определения IP-локаций, но я пока до него не добрался.
     
    Dragokas нравится это.

Поделиться этой страницей