[архив - Часть 2] AutoIt скрипты

[Diamond]

gregaz


Цитата:



Попытка занести в окно Winrara требуемый путь к папке (имеющий и русские названия папок) выдают абракадабру

Поочередное переключение раскладок клавы не дает стабильного результата.

Возможно есть простой путь ?



Если в папке с программой WinRAR, есть консольный "Rar.exe", то можно сделать совсем просто...





Код:

Код: Выделить всё

;~ путь к консольной программе:
$WinRar="C:\Program Files\WinRAR\Rar.exe"
;~ Имя создаваемого архива:
$ArchiveName=' "C:\MyArchive.rar"'
;~ Добавляемые файлы:
$addFiles=' "C:\Fie1.txt" "c:\File2.txt"'
;~ ...или путь к текстовому файлу, который содержит список добавляемых файлов:
;~ $list=' "@C:\List.txt"'
;~ Задаём параметры:
$param=' a' & $ArchiveName & $addFiles
;~ или:
;~ $param=' a' & $ArchiveName & $list
Run ($WinRar & $param,"",1)

[mikola1983]

VelDmi, нет прога будет работать и на компах которые нужно переименовать

[amel27]

gregaz


Цитата:



А как ввести другие параметры архивирования :

скажем ПАРОЛЬ или ДОБАВИТЬ ИНФОРМАЦИЮ ДЛЯ ВОССТАНОВЛЕНИЯ ,?





Код:

Код: Выделить всё

$WinRar="C:\Program Files\WinRAR\Rar.exe"
$ArchiveName=' "C:\MyArchive.rar"'
$addFiles=' "C:\File1.txt" "C:\File2.txt"'
;~ Пароль с шифрованием имён файлов -hp
$password=' -hpgregaz'
;~ информация для восстановления -rr
$ResInfo=' -rr10%'
$param = ' a' & $ResInfo & $password & $ArchiveName & $addFiles
Run ($WinRar & $param,"",0)

Если я буду продолжать в том же духе - то офтоп получается...

Там очень много всяких возможностей, проще будет изучить справку самостоятельно:

Run(@ComSpec & ' /k "C:\Program Files\WinRAR\Rar.exe" /?',"",3)

Да, насчёт информации для восстановления... я не уверен, нужен ли знак процента на конце.

[amel27]

Подскажите кто-нибудь плз, когда создается vpn подключение, то в зависимости от того есть уже подключения в системе или нет, то выскакивает окно "Набирать номер для предварительного подключения. Как его отследить?





Такая конструкция обрабатывается неверно, в свойствах окна этот текст есть как скрытый... Как сделать чтобы WinWaitActive смотрел только на видимый текст?


Цитата:



if WinWaitActive('Мастер новых подключений', 'Выберите, надо ли автоматически подключаться к Интернету','5' )==1 Then

Send ( '{UP}{ENTER}' ) EndIf



Получается что с этой проверкой vpn подключение создается только если в системе уже какое-то подключение есть..

[Maza Faka]

MaxxQ



Код:

Код: Выделить всё

$checksum = PixelChecksum(0,0, 50,50)
While $checksum  1111111111
    $checksum = PixelChecksum(0,0, 50,50)
    Send("{x}")
    Sleep(500)
WEnd
Send("{z}")

В справке это есть.

[MaxxQ]

Спасибо Maza Faka , но у меня опять грабли, и в связи с этим несколько вопросов, при выполнении твоего сценария когда $checksum 1111111111 происходит нажатие клавиши Z, но вот после когда область изменяется опять на $checksum 1111111111 не происходит нажатие клавиши Z, я имею ввиду что мне нужно что бы при каждом изменении области которая будет $checksum 1111111111 происходило нажатие Z(один раз) , а если значение становилось $checksum = 1111111111 тогда уже X(один раз), если опять $checksum = 1111111111 опять X и т.д



И еще вопрос можно ли добавить не одно значение - 1111111111, а еще 2222222222, 3333333333 и т.д, при появление которых будет выполнятся X.



Подскажите как такая функция будет выглядеть ??? Спасибо



P.s пытаюсь читать справку нехрена пока не понимаю

[Dementei]

Сочетания клавиш заработали при любой раскладке если писать так:



Код:

Код: Выделить всё

If @KBLayout = 0419 Then
Send("^ф")
Else
Send("^a")
EndIf

А вот с текстом проблемы, функция ControlGetText в этом приложении не работает и приходится его через буфер обмена передавать, но вот в таком варианте получается, что при:



en-ru, вместо допустим "tim" пишет "ешь"...

Как это побороть?

[amel27]

Спасибо Diamond за помощь по Winrarу

Действительно есть,оказывается - там все прописано .



Можно пару вопросов на другую тему ?

1.Как ввести данные в Интернет страницу ( типа Логин,пароль )или текст поиска (для Google)

2.Как найти на Интернет странице нужный текст (Ссылку и .т.п.)

Вопрос поиска текстового фрагмента в файле рассматривался здесь на форуме ,а как это сделать на ВЕБ- странице ?

[Maza Faka]

gregaz


Цитата:



Как ввести данные в Интернет страницу



Мне кажется нужно смотреть в сторону функции _IE... (в справке).




Цитата:



Как найти на Интернет странице нужный текст



Примерно так:





Код:

Код: Выделить всё

#include 
$WebPage = "http://www.autoitscript.com"
$WhatToFind = "autoit"
$Source = _INetGetSource($WebPage)
$FindPos = StringInStr($Source, $WhatToFind)
If $FindPos  0 Then MsgBox(64, "", "Текст  найден в позиции: " & $FindPos)

Можно также в файл сохранить иточник ($Source), и уже делать поиск по файлу (с учотом регистра, не латинских букв и т.д).

[Diamond]

gregaz


Цитата:



Действительно есть,оказывается - там все прописано



Я имел ввиду консольную справку (cmd /k "Rar.exe" /?), а о том, что есть руководство, я почему-то не подумал...