Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Аватара для Creat0R

Must AutoIt


Сообщения: 3054
Благодарности: 1009

Профиль | Сайт | Отправить PM | Цитировать


HORRIBLE,
Цитата:
а откуда берутся данные, что я нажал на кнопку деления
Простая запись имени контроля...

Код: Выделить весь код
$aOperations_Arr[$iUbound] = GUICtrlRead($nMsg, 1)
Тут где GUICtrlRead($nMsg, 1), используется дополнительный параметр (1), позволяющий считывать текст с элемента.
Просто в массив записываем этот текст, и когда делается подсчёт (Execute()), то соответствующая операция будет выполнена... да, если создать кнопку с другим именем, то подсчёт будет не корректный.

Kenwood3D
Цитата:
подсажите решение первой проблемы здесь
Оказывается в моей функции есть ошибка, а точнее неточность проверки ошибочности

Нужно в фунцию _ControlTab() добавить это перед Swith $sCommand...

Код: Выделить весь код
If Not IsHWnd($hWnd) Then $hWnd = WinGetHandle($hWnd)
If Not WinExists($hWnd) Then Return SetError(1, 0, "")
По поводу решения, вот это у меня работает:

Код: Выделить весь код
#include <ControlTab.au3>

$ConnPropTitle = 'Подключение по локальной сети'

_OpenConnProperties($ConnPropTitle)

WinWaitActive($ConnPropTitle)
ControlClick($ConnPropTitle, "", "Button1")

$PropTitle = "[REGEXPTITLE:Свойства:.*]"
WinWaitActive($PropTitle)

$Index = _ControlTab($PropTitle, "", "FindTab", "Дополн", 0, True)
_ControlTab($PropTitle, "", "TabSelect", $Index)

ControlCommand($PropTitle, "", "ListBox1", "SelectString", "Network Address")

Sleep(5000)

Func _OpenConnProperties($sConnName)
    Local $oShellApp = ObjCreate('shell.application')
    Local $oCP = $oShellApp.Namespace (3), $Item
    For $Item In $oCP.Items
        If $Item.name = 'Сетевые подключения' Then
            For $Item In $Item.Getfolder.Items
                If $Item.name = $sConnName Then $Item.InvokeVerb ('Сво&йства')
            Next
        EndIf
    Next
EndFunc
Цитата:
Как проверить наличие или отсутсвие флага
Код: Выделить весь код
If BitAND(GUICtrlRead($Ctrl), $GUI_CHECKED) Then
   ....
EndIf

-------
“Сделай так просто, как возможно, но не проще этого.”... “Ты никогда не решишь проблему, если будешь думать так же, как те, кто её создал.”

Альберт Эйнштейн

P.S «Не оказываю техподдержку через ПМ/ICQ, и по email - для этого есть форум. ©»

http://creator-lab.ucoz.ru/Images/Icons/autoit_icon.png Русское сообщество AutoIt | http://creator-lab.ucoz.ru/Images/Ic...eator_icon.png CreatoR's Lab | http://creator-lab.ucoz.ru/Images/Icons/oac_icon.png Opera AC Community

Это сообщение посчитали полезным следующие участники:

Отправлено: 04:58, 15-12-2007 | #881