Динамический IP - Dynamic IP - на Email - [1] :: В помощь системному администратору

Перепробовал много подобных программ, ни одна не понравилась - работают не так как нужно, памяти много кушают и имеют кучу других недостатков. Написал свою простенькую на скриптах nnCron и NSIS. Только у меня не на мыло отправляется, а на сайт закачивается, но суть от этого не меняется - можно сделать как угодно. Суть её простая - через заданные промежутки времени (у меня 5 минут) с инета запрашивается текущий IP-адрес (ибо маршрутизатор работает в режиме роутера) - это всего 13-15 байт, и если он изменился то закачивается по фтп на сервер в инете, или же отправляется по мылу.

Задача на кроне выглядит примерно так:

Код:

#( watchip \ имя задачи
Time: */5 * * * * * \ запускать каждые 5 минут
Action: \ что делать
SWHide NormalPriority \ запускаем в скрытом режиме
START-APPW: wget -O newip.txt адрес_странички \ закачиваем текущий адрес, код будет ниже
START-APPW: compareip \ запускаем программу на NSIS, код будет ниже
S" index.php" EXIST? \ если адрес изменится, этот файл закачается на сервер
IF \ когда условие выполняется, делаем следующее:
START-APPW: ncftpput -u username -p password имя_сервера /www/папка index.php \ закачиваем файл с адресом на сервер
FILE-DELETE: index.php \ удаляем файл до следующей проверки
ELSE THEN \ если условие не выполняется, значит что адрес не изменился - просто выходим
)#

Чтобы получить свой текущий адрес, достаточно создать php-файл на сервере с таким содержимым:

Код:

<?php
echo "$REMOTE_ADDR";
?>

Код программы compareip.exe на NSIS выглядит примерно так:

Код:

OutFile CompareIP.exe
Function .onInit

IfFileExists "$EXEDIR\newip.txt" +2
Abort
IfFileExists "$EXEDIR\oldip.txt" +2
CopyFiles /SILENT "$EXEDIR\newip.txt" "$EXEDIR\oldip.txt"

ClearErrors
FileOpen $0 "$EXEDIR\newip.txt" r
FileRead $0 $1 16
IfErrors exit
FileClose $0

ClearErrors
FileOpen $0 "$EXEDIR\oldip.txt" r
FileRead $0 $2 16
IfErrors exit
FileClose $0

StrCmp $1 $2 exit 0

ClearErrors
FileOpen $0 "$EXEDIR\index.php" w
IfErrors exit
FileWrite $0 "$1"
FileClose $0

Delete "$EXEDIR\oldip.txt"
CopyFiles /SILENT "$EXEDIR\newip.txt" "$EXEDIR\oldip.txt"

exit:
Abort

FunctionEnd
Section
SectionEnd

Программы wget и ncftpput легко найти в интернете, также всё это можно переделать под почту.

Модерирует : lynx, Crash_Master, dg, emx, ShriEkeR
Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3