[Sanja Alone]

desperate

тогда создам отдельный топик

Думаю, что лучше дополнить уже существующую тему Соединение по dial-up автоматом.

[biork]

amel27
Огромное спасибище! Всё работает!

[Heaven]

Извините пожалуйста, а существует ли такая команда с помощью которой можно было бы закрыть определенное окно!

Например я сделал так что при открытии моего диска(autorun)он сначало записывает мой шрифт в директорию %windir%\Fonts и
Я сделал так
поместил explorer.exe в директорию диска и написал в cmd файле
%CDROM%\Autoplay\explorer.exe %windir%\Fonts
Это мне нужно чтобы он открывался
А как сделать так чтобы она вслед за этим закрывалась автоматически
Пожалуйста напишите мне

[DenchikK]

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

Допустим имеем файл который надо удалить - 1.txt
Имеем каталог в котором его надо удалять - 2

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

Мозг опухают - в хелпе пока ничего не смог отыскать.

[Creat0R]

amel27

Все что касается FileOpenDialog и FileSaveDialog удалось осуществить... и даже чуть больше - новые UDF полностью совместимы с AutoIT-овскими, плюс новые возможности:

Абалдеть!!! Спасибо! осталось только для FileSelectFolder придумать функцию, и будет суперь счастье

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

P.S
При разукрашивании скрипта, если поставить Send("{...}") то скрипт ругается на неопознанные стили, а точнее, это если только есть кривые круглые ораньжевые скобки

Heaven

существует ли такая команда с помощью которой можно было бы закрыть определенное окно!

WinClose("Заголовок окна", "Текст окна")

как сделать так чтобы она вслед за этим закрывалась автоматически

Ты имеешь в виду папка Fonts? - WinClose("Fonts")

DenchikK

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

Можно (использовал функцию by amel27) :

Код:

#include <File.au3>
#include <Array.au3>

$Path = @ScriptDir & "\2"
$FileName = "1.txt"

$DirsList = _DirListToArray ($Path)
For $i = 1 to $DirsList[0]
    FileDelete($DirsList[$i] & "\" & $FileName)
Next
FileDelete($Path & "\" & $FileName)

Func _DirListToArray ($sPath)
    Local $i, $j, $rlist[1]=[0], $blist, $alist=_FileListToArray ($sPath, '*', 2)
    If IsArray ($alist) Then
        For $i=1 To $alist [0]
            _ArrayAdd ($rlist, $sPath & "\" & $alist [$i])
            $blist = _DirListToArray ($sPath & "\" & $alist [$i])
            If $blist[0]>0 Then
                For $j=1 To $blist [0]
                    _ArrayAdd ($rlist, $blist [$j])
                Next
            EndIf
        Next
    EndIf
    $rlist [0] = UBound ($rlist) - 1
    Return $rlist
EndFunc

[DenchikK]

Creat0R
Извините пожалуйста за глупый вопрос - скопировал скрипт в файл au3,
переписал в тот каталог откуда запускаю - 2 файла include. Запускаю -
а мне выдается ошибка - Error: Unknown function name. на строчке
Local $i, $j, $rlist[1]=[0], $blist, $alist=_FileListToArray ($sPath, '*', 2)

[amel27]

DenchikK
проверь наличие в заголовке скрипта строчек:

Код:

#include <File.au3>
#include <Array.au3>

Creat0R

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

я не спец в ГУИ, но думаю в общем случае это неосуществимо

скрипт ругается на неопознанные стили

стиль для скобок добавил

[DenchikK]

amel27
Есть эти строчки - один в один все как указано у Creat0R

[amel27]

DenchikK

переписал в тот каталог откуда запускаю - 2 файла include

а разве со штатного INCLUDE эти файлы не подтягиваются?... Из справки по Include - если AutoIT установлен штатным установщиком то файлы берутся из установочного каталога\Include, в противном случае в каталоге скрипта нужно создавать папку с именем Include и туда пихать UDF-файлы или править реестр (хотя последние варианты не пробовал).

[DenchikK]

а разве со штатного INCLUDE эти файлы не подтягиваются?

Это я уже от безысходности. Варианты пробую. AutoIT версий 3.1.0 и 3.1.1 ставил. В

установочного каталога\Include

они существуют, пихал эти файлы и рядом со скриптом, и рядом со скриптом каталогом - не работает! Что такое может быть?
Добавлено:
Нашел в скрипте Sanja Alone функцию _FileListToArray и поместил
её в файл \Include\Array.au3 (ибо этой функции ни в одно файле
каталога \Include не было), вот код:

Код:

Func _FileListToArray($sPath, $sFilter = "*", $iFlag = 0)
        Local $hSearch, $sFile, $asFileList[1]
        If Not FileExists($sPath) Then
                SetError(1)
                Return ""
        EndIf
        If (StringInStr($sFilter, "\")) or (StringInStr($sFilter, "/")) or (StringInStr($sFilter, ":")) or (StringInStr($sFilter, ">")) or (StringInStr($sFilter, "<")) or (StringInStr($sFilter, "|")) or (StringStripWS($sFilter, 8) = "") Then
                SetError(2)
                Return 0
        EndIf
        If Not ($iFlag = 0 Or $iFlag = 1 Or $iFlag = 2) Then
                SetError(3)
                Return ""
        EndIf
        $asFileList[0] = 0
        $hSearch = FileFindFirstFile($sPath & "\" & $sFilter)
        If $hSearch = -1 Then 
                SetError(0)
                Return 0
        EndIf
        While 1
                $sFile = FileFindNextFile($hSearch)
                If @error Then ExitLoop
                If $iFlag = 1 Then
                        If StringInStr(FileGetAttrib($sPath & "\" & $sFile), "D") <> 0 Then ContinueLoop
                EndIf
                If $iFlag = 2 Then
                        If StringInStr(FileGetAttrib($sPath & "\" & $sFile), "D") = 0 Then ContinueLoop
                EndIf
                ReDim $asFileList[UBound($asFileList) + 1]
                $asFileList[0] = $asFileList[0] + 1
                $asFileList[UBound($asFileList) - 1] = $sFile
        WEnd
        FileClose($hSearch)
        SetError(0)
        If $asFileList[0] = 0 Then Return ""
        Return $asFileList
EndFunc   ;==>_FileListToArray

теперь ошибка выдается такая:
Local $i, $j, $rlist[1]=[0], $blist, $alist=_FileListToArray ($sPath, '*', 2)
Local $i, $j, $rlist[1] ERROR
Error: No virriable given for "Dim", "Local", "Global" or "Const" statement.