пример скрипта
скрипт сравнивается с часами другого компьютера и каждые два часа качает фаил в заведомо созданую папку. как можно грамотно урезать , а то через чур большой
Код:
Opt('TrayIconHide', 0)
;Установка эталоного времени
#include <Process.au3>
$rc = _RunDos("net use \\comp /user:user password")
$rc = _RunDos("net time \\comp /set /yes")
TrayTip("Time", "Установка эталоного времени", 1, 1)
Sleep(1000)
TrayTip("clears any tray tip","",0)
;Скачка прайс листа
InetGet("http://www.name.ru/files.rar", "c:\files\files.rar", 1, 1)
While @InetGetActive
TrayTip("Price", "Обновление прайса", 5, 1)
Sleep(250)
Wend
Opt('TrayIconHide', 1)
Sleep(7200000)
Opt('TrayIconHide', 0)
;Скачка прайс листа
InetGet("http://www.name.ru/files.rar", "c:\files\files.rar", 1, 1)
While @InetGetActive
TrayTip("Price", "Обновление прайса", 5, 1)
Sleep(250)
Wend
Opt('TrayIconHide', 1)
Sleep(7200000)
Opt('TrayIconHide', 0)
;Установка эталоного времени
#include <Process.au3>
$rc = _RunDos("net use \\comp /user:user password")
$rc = _RunDos("net time \\comp /set /yes")
TrayTip("Time", "Установка эталоного времени", 2, 1)
Sleep(1000)
TrayTip("clears any tray tip","",0)
;Скачка прайс листа
InetGet("http://www.name.ru/files.rar", "c:\files\files.rar", 1, 1)
While @InetGetActive
TrayTip("Price", "Обновление прайса", 5, 1)
Sleep(250)
Wend
Opt('TrayIconHide', 1)
Sleep(7200000)
Opt('TrayIconHide', 0)
;Скачка прайс листа
InetGet("http://www.name.ru/files.rar", "c:\files\files.rar", 1, 1)
While @InetGetActive
TrayTip("Price", "Обновление прайса", 5, 1)
Sleep(250)
Wend
;завершение скрипта
Exit
