[Автоматизация] CheckBox - вкл. или выкл
- Автор темы siv14
- Дата начала
У меня открывается первая вкладка, и должена устанавливаться галочка, но ни чего не выходит:
Код:
; Переход на закладку 0
$sTitle = "Параметры ящика"
WinWait($sTitle)
If Not WinActive($sTitle) Then WinActivate($sTitle)
WinWaitActive($sTitle)
$h_tabcontrol = ControlGetHandle($sTitle, "", "[CLASS:SysTabControl32; INSTANCE:1]")
$i_TabItems = _GUICtrlTab_GetItemCount($h_tabcontrol)
_GUICtrlTab_ClickTab($h_tabcontrol, 0)
Sleep(1000)
ControlCommand("Параметры ящика", "Выдавать сообщения о приходящей почте", "", "Check", "")
Sleep(5000)
- Сообщения
- 8,673
- Репутация
- 2,486
siv14 [?]
И ещё, код заключайте в тег autoit.
[?]
Так не прикрепляют рисунки, почему нельзя было выложить сразу файл рисунка, зачем его помещать в документ doc?
И ещё, код заключайте в тег autoit.
[?]
Yashied же написал, «Недостающие параметры узнаешь с помощью AutoIt Window Info», вот тут недостающий параметр это CtrlID (перед "Check"), без него команда не знает какую галочку нужно отмечать.
- Сообщения
- 7,790
- Репутация
- 2,323
xmel-sera,
Дайте ссылку, а то здесь: Radmin 3.4 (Русская версия) я такого элемента окна не нашел.
Дайте ссылку, а то здесь: Radmin 3.4 (Русская версия) я такого элемента окна не нашел.
OK. Проблему решил самостоятельно путем тыканья кнопок ))
Send ("{TAB 5}")
Send ("{SPACE}")
Send ("{Enter}")
Но есть еще одна проблема. При запуске скрипта программа (РАдмин 3.0) запускается но ничего не происходит, приходится закрывать нажатием кнопки "Отмена" и запускать скрипт заново. При этом в трее висит значок AutiIt, с установленной галочкой Script Paused. Повторно запуская скрипт программа устанавливается нормально.\
ShellExecuteWait("rserv30ru.msi")
WinWaitActive ("Radmin Server 3.0 - InstallShield Wizard", "&Далее >")
Send ("{Enter}")
Send ("{TAB 5}")
Send ("{SPACE}")
Send ("{Enter}")
Но есть еще одна проблема. При запуске скрипта программа (РАдмин 3.0) запускается но ничего не происходит, приходится закрывать нажатием кнопки "Отмена" и запускать скрипт заново. При этом в трее висит значок AutiIt, с установленной галочкой Script Paused. Повторно запуская скрипт программа устанавливается нормально.\
ShellExecuteWait("rserv30ru.msi")
WinWaitActive ("Radmin Server 3.0 - InstallShield Wizard", "&Далее >")
Send ("{Enter}")
- Сообщения
- 7,790
- Репутация
- 2,323
xmel-sera [?]
Можно так попробовать:
Код:
#include <GuiListView.au3>
$hWin = WinWait('Система безопасности Radmin', '', 3)
If Not $hWin Then Exit
$hListView = ControlGetHandle($hWin, '', '[CLASS:SysListView32; INSTANCE:2]')
If Not $hListView Then Exit
$iCount = _GUICtrlListView_GetItemCount($hListView)
If Not $iCount Then Exit
;все:
If _GUICtrlListView_GetItemChecked($hListView, 0) Then
_GUICtrlListView_SetItemChecked($hListView, 0, False)
Else
_GUICtrlListView_SetItemChecked($hListView, 0)
EndIf
Sleep(1000)
;обратно
If _GUICtrlListView_GetItemChecked($hListView, 0) Then
_GUICtrlListView_SetItemChecked($hListView, 0, False)
Else
_GUICtrlListView_SetItemChecked($hListView, 0)
EndIf
Sleep(1000)
;по очереди со второй строки
For $i = 1 To $iCount - 1
If _GUICtrlListView_GetItemChecked($hListView, $i) Then
_GUICtrlListView_SetItemChecked($hListView, $i, False)
Else
_GUICtrlListView_SetItemChecked($hListView, $i)
EndIf
Sleep(1000)
Next
;обратно
For $i = 1 To $iCount - 1
If _GUICtrlListView_GetItemChecked($hListView, $i) Then
_GUICtrlListView_SetItemChecked($hListView, $i, False)
Else
_GUICtrlListView_SetItemChecked($hListView, $i)
EndIf
Sleep(1000)
Next