Global $sURL = "http://site.ru/file.txt"; здесь ссылка на файл в интернете
Global $old_value, $new_value; переменные для сравнения
Global $iTimeout = 2000; интервал проверки (в МСекундах)
$old_value = InetRead($sURL, 1); загружаем файл в переменную
AdlibRegister("_TrackEvent", $iTimeout)
While 1
Sleep(1000)
WEnd
Func _TrackEvent()
$new_value = InetRead($sURL, 1); загружаем файл в переменную
If $old_value <> $new_value Then
AdlibUnRegister("_TrackEvent")
_OnChange($old_value, $new_value)
$old_value = $new_value
AdlibRegister("_TrackEvent", $iTimeout)
EndIf
EndFunc ;==>_TrackEvent
Func _OnChange($s_old_value = "", $s_new_value = "")
MsgBox(64, "Файл изменён", "Файл изменился!" & @CRLF & "Старое значение: " & BinaryToString($old_value) & @CRLF & "Новое значение: " & BinaryToString($new_value))
EndFunc ;==>_OnChange