Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Ветеран


Сообщения: 565
Благодарности: 41

Профиль | Сайт | Отправить PM | Цитировать


Нет. Ибо в моей практике 20% консольных окон не выкидывают контекстного меню. Пришлось доработать, но не в этом суть.. А в том, что всё это как-то через задницу. Результат - скрипт для регистрации nnbackup

Код: Выделить весь код
$Dir = @ProgramFilesDir & "\NNbackup"
$SF= "nnbackup xReg"	


Opt	("WinTitleMatchMode",	2)	;1=start, 2=subStr, 3=exact, 4=...]
Opt	("MouseCoordMode",	0)
Opt ("TrayIconDebug",1)

#include <Date.au3>


$iWeekday = _DateToDayOfWeek (@YEAR, @MON, @MDAY)

Select
    Case $iWeekday = 1 
             $Day="воскресенье"
    Case $iWeekday = 2 
             $Day="понедельник"
    Case $iWeekday = 3 
             $Day="вторник"
    Case $iWeekday = 4 
             $Day="среда"
    Case $iWeekday = 5 
             $Day="четверг"
    Case $iWeekday = 6 
             $Day="пятница"
    Case $iWeekday = 7 
             $Day="суббота"
EndSelect


$TEMP = @WorkingDir
FileChangeDir ($Dir)
Run($SF)
WinWaitActive("nnbackup.exe")
;Sleep ( 1000 )
ClipPut('xUSSR регистрация')
MouseMove(10,10,0)
MouseClick('right')
Send("{DOWN 7}{RIGHT}{DOWN 2}{ENTER 2}")
ClipPut($day )
Sleep (500 )
MouseClick('right')
Send("{DOWN 7}{RIGHT}{DOWN 2}{ENTER 2}")

Отправлено: 12:39, 23-05-2006 | #156