[Creat0R]

Maza Faka,

ты имеешь в виду, что могут быть глюки из-за схожих названий классов?

Они будут класс должен быть в точности, частичной подборки классов пока не реализовано...

Плз обьясни подробней

Ну к примеру если имеем класс окна IEFrame (у Internet Explorer), то подбирая так: classname=IEFrame всё будет ок, но если к примеру класс окна таков: classname=bosa_sdm_Microsoft Office Word 11.0 (у MS Word), тогда нужно быть уверенным что именно такой класс имеет это окно, а если нам к примеу нужно подобрать другой заголовок приложения Office, к примеру от Power Point, то там заголовок немного другой, но схожесть есть, он также начинается с bosa_sdm... - Вот тут то нам и пригодилась бы подборка по regexp (прописав regexp+classname=bosa_sdm(.*)).

[Creat0R]

Обновил скрипт который предназначен для вставки AutoIt-кода в разукрашенном виде на форум - Au3ToPost 1.4:






История версии:

v1.4 * Все временные файлы теперь хранятся в @TempDir & "\Временная папка" - "Временная папка" генерируется при каждом запуске скрипта - таким образом легче хранить и удалять временные файлы. * Некоторые уточнения в интерфейсе GUI. * Теперь при запуске фокус сразу переходит на поле с кодом скрипта. * Также фокус переходит на поле с кодом при зажатии птички "Ввести код вручную". * Данные о входном и выходном файле теперь пишутся (запоминаются) при выходе с программы. + Добавлена возможность использования клавиши Tab в процессе ручной правки кода скрипта. + Добавлено отображение количества символов при выводе результата (на разных форумах разные ограничения на количество символов в посте). + Добавлено главное меню: ****Меню; ********"Интегрировать программу в SciTE" - Добавляет пункт в меню Tools для удобного доступа к программе. ********"Выход" - Выход из программы **** ****О программе - Отображает детали о программе + Добавлена поддержка командной строки - Если в качестве ком. строки передавать в программу путь к исходному файлу-скрипту, то этот файл будет использоваться как входной файл для обработки. v1.3 * Улучшена обработка нажатии чекбоксов. * Добавлена проверка на ошибки. * Общая оптимизация программы. * Многие уточнения и коррекции в программе.

Закачать можно отсюда...

[mikola1983]

а есть ли возможность в автоит работать с чек боксами или радио кнопками? иногда не удобно писать {SPACE}{DOWN}{SPACE}{DOWN}{SPACE}...особенно если их много....есть ли более простой способ указывать чек бокс.

[Creat0R]

mikola1983,

а есть ли возможность в автоит работать с чек боксами или радио кнопками?

Конечно!
К примеру используя ControlCommand() или ControlClick()...

Код:

#include <GuiConstants.au3>

$Gui = GuiCreate("Test")

$Radio1 = GUICtrlCreateRadio("Radio1", 20, 60)
$Radio2 = GUICtrlCreateRadio("Radio2", 20, 80)

$CheckBox1 = GUICtrlCreateCheckbox("CheckBox1", 20, 120)
$CheckBox2 = GUICtrlCreateCheckbox("CheckBox2", 20, 140)

$Button_Radio = GUICtrlCreateButton("Check Radio", 20, 200)

$Button_CheckBox = GUICtrlCreateButton("Check CheckBox", 120, 200)

GUISetState()

While 1
    $Msg = GUIGetMsg()
    Switch $Msg
        Case -3
            Exit
        Case $Button_Radio
            ControlCommand($Gui, "", $Radio1, "Check", "")
        Case $Button_CheckBox
            ControlClick($Gui, "", $CheckBox2)
    EndSwitch
WEnd

[Maza Faka]

есть ли возможность в автоит работать с чек боксами или радио кнопками?

Да, например:

Код:

ControlCommand ( "title", "text", controlID, "Check", "")

Для снятия отметки "Uncheck".

P.S.
Ты в справку заглядываешь?

[mikola1983]

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

[Maza Faka]

Почему функция StdOutRead() так странно работает? Вот к примеру скрипт:

Код:

$foo = Run(@ComSpec & " /c @dir /b e:\", @SystemDir, @SW_HIDE, 4+2)

While 1
    $line = StdoutRead($foo)
    If @error Then ExitLoop
    MsgBox(0, "STDOUT read:", $line)
Wend

While 1
    FileWrite("c:\error.log", $line)
    $line = StderrRead($foo)
    If @error Then ExitLoop
    MsgBox(0, "STDERR read:", $line)
Wend

сначала отображается один файл, а затем все остальные, кроме файла, который отобразился в первый раз, почему так происходит?

[Maza Faka]

Почему функция возвращает ноль?

Код:

Dim $path
MsgBox(64, "Done", WritePathToReg("icqlite.exe", @ProgramFilesDir))

Func WritePathToReg($icq, $path)
    $search = FileFindFirstFile($path & "\*.*")
    While 1
        $file = FileFindNextFile($search)
        If @error Then ExitLoop
            $full_path = $path & "\" & $file
            If FileGetAttrib($full_path) = "D" Then WritePathToReg($icq, $full_path)
                If StringInStr($file, $icq) Then
                    MsgBox(0, "", $path)
                    Return $path
                EndIf
            WEnd
            FileClose($search)
        EndFunc

[Angelus]

Никто не в курсе почему часть скрипта

Код:

$ex = 0
Do
    If ProcessExists ( 'iexplore.exe' ) Then
        Run ( 'tskill.exe iexplore', 'c:\windows\system32' )
        Run ( 'tskill.exe wow', 'c:\windows\system32' )
        Sleep (1000)
        MsgBox ( 64, 'Сообщение', 'Не пытайтесь запустить EXPLORER, вас только выкинет с игры!!!', 7 )
        $ex = $ex + 1
    ElseIf Not ProcessExists ( 'wow.exe' ) Then
        Exit
    EndIf
Until $ex = 1

загружает процессор на 100%????

[Maza Faka]

Angelus
Попробуй так:

Код:

AdlibEnable("Wow")

While 1
    Sleep(100)
WEnd

Func Wow()
    If ProcessExists ( 'iexplore.exe' ) Then
        Run ( 'tskill.exe iexplore', 'c:\windows\system32' )
        Run ( 'tskill.exe wow', 'c:\windows\system32' )
        Sleep (1000)
        MsgBox ( 64, 'Сообщение', 'Не пытайтесь запустить EXPLORER, вас только выкинет с игры!!!', 7 )
    ElseIf Not ProcessExists ( 'wow.exe' ) Then
        Exit
    EndIf
EndFunc