[godoo]

Madcap, спасибо за совет, но это я пробовал и хелп прочитал...
Вся проблема в том, при такой замене пути установки:
WinWaitActive ( '', 'Выбор директории установки...' )
ControlSetText ( '', 'Выбор директории установки...', 'Edit2', '@ProgramFilesDir\Software\' )
вылезает окно:
Директория @ProgramFilesDir\Software не может быть создана. Укажите другой путь.

Работает только с полным заданием пути.

[Madcap]

godoo

Сегодны экспериментировал с тоталом, получилось вот так:

Код:

;Ввод пути установки проги
ControlSend ( "Installation Total Commander 6.0", "", "Edit1", @ProgramFilesDir & "\totalcmd")

[ched3n]

пример скрипта
скрипт сравнивается с часами другого компьютера и каждые два часа качает фаил в заведомо созданую папку. как можно грамотно урезать , а то через чур большой

Код:

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

[godoo]

Madcap, при таком способе перед тем путем, который стоит появляется вот это:
:\Ё ЁЁЁ Ё\Ё Ё ЁЁ ЁЁ\

[Madcap]

На счет удаления предыдущего пути - можно послать в это окно кучу {DEL}ов.
На счет

:\Ё ЁЁЁ Ё\Ё Ё ЁЁ ЁЁ\

незнаю.

[Madcap]

2 all
Скажите, плс, есть ли в этой проге какой нибудь аналог команды GO TO ?

[Sanja Alone]

Madcap
В хелпе написано такое (FAQ - 4. Where is the "goto" command?):

Just to get you started, the most basic use of Goto in version 2.64 was an infinite loop like: Код: :mylabel ...do something... ...and something else... goto, mylabel A simple v3 version of that is a While loop that is always "true". Код: While 1 = 1 ...do something... ...do something else... Wend If there is a massive outcry about this after the launch of v3 then I may add it back in, but only to help people convert scripts.

Короче говоря, что-то подобное есть, а если goto требуется не в бесконечном цикле, то нужно (imho) использовать маркерную переменную как-то вот так:

Код:

$your_variable = "исходное значение"
;
;какой-то код, к-рый может повлиять на $your_variable
;
While $your_variable = "исходное значение"
   ...do something...
   ...do something else...
Wend

А еще посмотри в сторону Select...Case...EndSelect

[Sanja Alone]

godoo

Код: WinWaitActive ( '', 'Выбор директории установки...' ) ControlSetText ( '', 'Выбор директории установки...', 'Edit2', '@ProgramFilesDir\Software\' )

Ты все правильно в хелпе прочитал, но недочитал... Макросы (@ProgramFilesDir и т.п.) не берутся в кавычки, а объединяются со строками с пом. оператора объединения строк - &

Т.о., приведи код к такому виду:

Код:

WinWaitActive ( '', 'Выбор директории установки...' )
ControlSetText ( '', 'Выбор директории установки...', 'Edit2', @ProgramFilesDir & '\Software' )

и все будет ОК.

И еще один момент: ты используешь директиву ControlSetText, и, следовательно, никаких del-ов посылать не нужно, т.к. в этом случае значение элемента Edit2 будет перезаписано новым и тебе не нужно беспокоиться о его начальном значении)

[Sanja Alone]

ched3n
Красивее будет сделать так:
1. Заменяешь #include и _RunDos на RunWait(@ComSpec & ' /C твоя_команда', '', @SW_HIDE);
2. Приводишь скрипт к виду:

Код:

;устанавливаем выход из скрипта по хоткею (в данном сл. это Ctrl+Alt+Z; выбор за тобой)
HotKeySet("^!z", "my_exit")
;запускаем основной бесконечный цикл
While 1 = 1
    Opt('TrayIconHide', 0)
    time_sync()
    dl_price()
    Opt('TrayIconHide', 1)
    Sleep(7200000)
Wend
;функция синхронизации времени
Func time_sync()
    RunWait(@ComSpec & ' /C net use file:///comp /user:user password', '', @SW_HIDE)
    RunWait(@ComSpec & ' /C net time file:///comp /set /yes', '', @SW_HIDE)
    TrayTip("Time", "Установка эталоного времени", 1, 1)
    Sleep(1000)
    TrayTip("clears any tray tip","",0)
EndFunc
;функция закачки прайса
Func dl_price()
    InetGet("http://www.name.ru/files.rar", "c:\files\files.rar", 1, 1)
    While @InetGetActive
        TrayTip("Price", "Обновление прайса", 5, 1)
        Sleep(250)
    Wend
EndFunc
;функция завершения скрипта
Func my_exit()
    Exit
EndFunc

Ес-но, можно бесконечный цикл заменить на конечный (используя переменную-счетчик или какое-то условие), дополнить функции закачки и синхронизации времени проверками (удаленный комп ведь может быть и недоступен). Но это уже будет украшательством. Захочешь - сделаешь. А приведенный выше скрипт будет выполняться бесконечно (до нажатия хоткея) независимо от доступности удаленной машины (функции пользователя по ум. всегда возвращают 0, ес-но, если это не переопределить с пом. директивы Return.

P.S. Синтаксис команд net use/time я оставлю на твоей совести, но на правильный он непохож; к тому-же, net use к синхронизации времени не имеет никакого отношения.

[ched3n]

спасибо за помощь
net use \\comp /user:user password авторизируется на удаленном компьютере
net time \\comp /set /yes синхронизирует время локального компьютера с удаленным