[архив

Maza Faka · Отправлено: **08:30, 20-08-2007** | #**331**

mikola1983

Цитата AutoIt help:

Код:

If Not IsAdmin() Then
    RunAsSet('USER', @Computername, 'PASSWORD')
    Run("C:\Program\program.exe")
    Exit
EndIf

Creat0R · Конфигурация компьютера

Maza Faka,

Цитата:

после удаления элемента (_ArrayDelete()), меняется размерность массива ($StrArray[0]), а в цикле идёт обращение к прежней размерности массива, поэтому возникает ошибка?

Да, всё верно, кстати, размерность меняется, но в отличие от твоего примера в скобках, нулевой элемент может и не содержать этих данных , проверяется как по Ubound()-1

Цитата:

в русской справке такого нет

Я давно пришёл к выводу, что оригинал всегда надёжнее, при переводе можно что-то упустить, что то забыть, не так уж и прост весь процесс перевода, особенно такого файла как справка по AutoIt

Но тут конечно нужны знания (основные) Английского, хотя куда без них учиться программировать

amel27 · Отправлено: **11:12, 20-08-2007** | #**333**

Цитата Creat0R:

Т.е так:
Код:

Код:

'(?s)(?m)(^[^\n]+\n)(.*?)^\1'

угу, теоретически на сохранение скобок тратится какое-то время

Цитата Maza Faka:

Можешь обьяснить почему?

ну, CreatOR уже все объяснил... могу только предложить как альтернативу RegExp-вариант:

Код:

Func _LinesDelete ($text, $string)
    If StringRight($text,2)<>@CRLF Then $text &= @CRLF
    $string = StringRegExpReplace($string, '([][^()?.|{}*+\\])', '\\\1')
    Return StringRegExpReplace($text, '(?m)(?i)^'& $string &'[\r\n]+', '')
EndFunc

mikola1983 · Отправлено: **15:31, 20-08-2007** | #**334**

Maza Faka,

If Not IsAdmin() Then
RunAsSet('a.pupkin', 'trew', '123qwe')
Run('\\Distr\XnView-win.exe')
Exit
EndIf
MsgBox(0, 'Message', 'Now running with admin rights.')

не хочет работать .в чем проблемма?

spooll · Отправлено: **16:05, 20-08-2007** | #**335**

Creat0R,

Лично на моем компе, хоть тресни, но виснет в этом моменте

PHP код:


WinWait("Выбор программной группы", "Выберите из существующих или")

ControlClick("Выбор программной группы", "", "Button2")

(см скрин)

Тот что ты предложил с .

PHP код:


Opt("RunErrorsFatal", 0)

Opt("WinTitleMatchMode", -3)

Opt("WinTextMatchMode", 2)

Зависает на первом же окне

((

WinWait("Добро пожаловать", "&Далее >")
ControlClick("Добро пожаловать", "&Далее >", "Button1")

приложу скрин этих окон с AutoIT info.

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

Maza Faka · Отправлено: **16:32, 20-08-2007** | #**336**

mikola1983

Цитата:

Run('\\Distr\XnView-win.exe')

Попробуй прописать полный путь к запускаемому файлу.

Maza Faka · Отправлено: **16:53, 20-08-2007** | #**337**

Почему функция возвращает переменную $count равную нулю, хотя файлы были найдены и удалены? Сначала я подумал, что это происходит если существуют подкаталоги, так, как при нахождении каталога функция вызывает саму себя и соответсвенно снова происходит декларирование переменной: Local $count = 0, но удалив подкаталоги, я обнаружил, что проблема не исчезла, функция всё так же возвращает переменную $count равной нулю. Я понимаю, что это даже не проблема, так как переменную можно обьявить вне функции и тогда счётчик будет приращиваться, но всё же интересно, почему так происходит?

Код:

Dim $delFile[3] = [2, "soccer5.bmp", "soccer9.bmp"], $path[3] = [2, "c:\test", "c:\1"]

For $p = 1 To $path[0]
    For $f = 1 To $delFile[0]
        $Del = DeleteFile($path[$p], $delFile[$f])
    Next
Next
MsgBox(64, "Result", $Del)

Func DeleteFile($path, $delfile)
    Local $count = 0
    $search = FileFindFirstFile($path & "\*.*")
    While 1
        $file = FileFindNextFile($search)
        If @error Then ExitLoop
            $Full_file = $path & "\" & $file
            If FileGetAttrib($Full_file) = "D" Then
                DeleteFile($Full_file, $delfile)
            ElseIf $file = $delFile Then
                If FileDelete($Full_file) Then $count += 1
            EndIf
        WEnd
        FileClose($search)
        Return $count & " files deleted"
    EndFunc

Creat0R · Конфигурация компьютера

spooll,

Цитата:

виснет в этом моменте

Значит пробуй так:

Код:

Opt("RunErrorsFatal", 0) 
Opt("WinTitleMatchMode", -2) 
Opt("WinTextMatchMode", 2)

WinWait("Выбор программной группы", "Папки с Программами:")

...

Текст лучше подбирать полный.
Если программа 1c небольшая, залей куда нибудь (или дай линк на неё), попробую потестить у себя.

Maza Faka,

Цитата:

Почему функция возвращает переменную $count равную нулю, хотя файлы были найдены и удалены? Сначала я подумал, что это происходит если существуют подкаталоги, так, как при нахождении каталога функция вызывает саму себя и соответсвенно снова происходит декларирование переменной: Local $count = 0, но удалив подкаталоги, я обнаружил, что проблема не исчезла, функция всё так же возвращает переменную $count равной нулю.

Именно потому, что в начале функции обнуляется переменная $count...

На мой взгляд тут есть два варианта решения - 1) Проверять не обьявлена ли уже переменная (If Not IsDeclared($count) Then Local $count = 0), 2) (более правильный) - добавлять к $count возвращённое значение от повторного вызова функции DeleteFile()...

Код:

Dim $delFile[3] = [2, "soccer5.bmp", "soccer9.bmp"], $path[3] = [2, "c:\test", "c:\1"]

For $p = 1 To $path[0]
    For $f = 1 To $delFile[0]
        $Del = DeleteFile($path[$p], $delFile[$f])
    Next
Next
MsgBox(64, "Result", $Del & " files deleted")

Func DeleteFile($path, $delFile)
    Local $count = 0
    $search = FileFindFirstFile($path & "\*.*")
    While 1
        $file = FileFindNextFile($search)
        If @error Then ExitLoop
        $Full_file = $path & "\" & $file
        If FileGetAttrib($Full_file) = "D" Then
            $count += DeleteFile($Full_file, $delFile)
        ElseIf $file = $delFile Then
            $count += FileDelete($Full_file)
        EndIf
    WEnd
    FileClose($search)
    Return $count
EndFunc

spooll · Отправлено: **18:25, 20-08-2007** | #**339**

Creat0R
весит 27 мб, желательно опробовать на паре компов(или несколько раз), т.к слабые у нас грузят окна бывает порядком больше времени, но что характерно, даже если убрать время, то при появлении окна всеравно ничего не происходит =\
http://www.rapidshare.ru/376488
заранее большое спасибо

Maza Faka · Отправлено: **19:04, 20-08-2007** | #**340**

Creat0R

Цитата Creat0R:

На мой взгляд тут есть два варианта решения - 1) Проверять не обьявлена ли уже переменная (If Not IsDeclared($count) Then Local $count = 0), 2) (более правильный) - добавлять к $count возвращённое значение от повторного вызова функции DeleteFile()...

Первый вариант я попробовал сразу же, как обнаружил проблему с приращением счётчика, не помогло, сейчас попробовал 2-ой вариант, тоже не работает. Интересная задачка