[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)

[gregaz]

[Diamond,
Спасибо
Просто и здорово
А как ввести другие параметры архивирования :
скажем ПАРОЛЬ или ДОБАВИТЬ ИНФОРМАЦИЮ ДЛЯ ВОССТАНОВЛЕНИЯ ,?

[Diamond]

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)
Да, насчёт информации для восстановления... я не уверен, нужен ли знак процента на конце.

[eNcub]

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


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

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

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

[Diamond]

eNcub

Как сделать чтобы WinWaitActive смотрел только на видимый текст?

Вообще-то, WinWaitActive() по умолчанию работает только с видимым текстом, а вот если нужно обрабатывать и тот и другой текст, то потребуется изменить умолчание:
Opt("WinDetectHiddenText",1)
0 = не сопоставлять со скрытым текстом окна (по умолчанию)
1 = сопоставлять в том числе и со скрытым текстом окна

[Creat0R]

amel27

если проверять на ошибки, то случайностей не будет

Это понятно, но это лишний код, имхо.. ладно это ерунда

Спасибо за примеры, всё стало намного яснее

[Diamond]

Функция, которая позволяет замостить фон GUI текстурой или небольшими изображениями

Код:

;~ Использование:
;~ Tiled_BgImage("Путь к изображению с текстурой","ширина изображения", "высота изображения")

Func Tiled_BgImage($ImagePath,$width,$height)
  $yTile=Round(@DesktopHeight/$height)
  $xTile=Round(@DesktopWidth/$width)
  For $y=0 To $yTile
    For $x=0 To $xTile
      GUICtrlCreatePic($ImagePath,$width*$x,$height*$y,$width,$height)
      GUICtrlSetResizing(-1,802) ; $GUI_DOCKALL
      GUICtrlSetState(-1,128) ; $GUI_DISABLE
    Next
  Next
EndFunc

[gregaz]

Спасибо Diamond за помощь по Winrarу
Действительно есть,оказывается <Руководство по консольной версии RAR > - там все прописано .

Можно пару вопросов на другую тему ?
1.Как ввести данные в Интернет страницу ( типа Логин,пароль )или текст поиска (для Google)
2.Как найти на Интернет странице нужный текст (Ссылку и .т.п.)
Вопрос поиска текстового фрагмента в файле рассматривался здесь на форуме ,а как это сделать на ВЕБ- странице ?

[Creat0R]

gregaz

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

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

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

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

Код:

#include <INet.au3>

$WebPage = "http://www.autoitscript.com"
$WhatToFind = "autoit"

$Source = _INetGetSource($WebPage)

$FindPos = StringInStr($Source, $WhatToFind)

If $FindPos <> 0 Then MsgBox(64, "", "Текст <" & $WhatToFind & "> найден в позиции: " & $FindPos)

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

[proxy]

привет всем )
если честно сижу ещё в офисе, после напрженного рабочего дня, глаза "в кучку" - и даже не могу найти кнопку "создать новую тему"
в общем если не влом "киньте" ею в меня ))


а вот сам вопрос:
дле элемента GUICtrlCreateList очень хорошо работае функция GUICtrlSetOnEvent
т.е. если кликнуть по списку GUICtrlCreateList мышкой, то тут же будет вызвана функция, прописанная в GUICtrlSetOnEvent.

а вот для элемента GUICtrlCreateListView функция GUICtrlSetOnEvent - не работает, как быть?
добиться я хочу все того же: т.е. когда кликаю мышкой по таблице GUICtrlCreateListView, мне необходимо, что бы
на это сыбите таблица "реагировала" и вызывала мою функцию.

и как то же самое произвести для элимента GUICtrlCreateTab .

пользуюсь autoIT v3.2.4.0