[Элементы GUI] Включать функцию с помощью чекбокс.

[kolosov]

Добрый день. Потскажи как сделать чтобы при нажатии на чекбокс актевировалась функция в нутри функции7.

 

[Pelerin]

Если я правильно понял то нужно вот это:

Спойлер

#include <AllConstants.au3>
GUICreate ('GUI')
$button = GUICtrlCreateButton ('Ok', 1, 1, 100, 24)
$checkbox = GUICtrlCreateCheckbox ('Checbox', 1, 26, 300, 24)

GUISetState (@SW_SHOW)

Do
	$msg = GUIGetMsg ()
	If $msg = $button Then F()
Until $msg = $gui_event_close

; ----------------------
Func F()
	If GUICtrlRead($checkbox) = $GUI_CHECKED Then SubF()
EndFunc

Func SubF()
	MsgBox (0, 'SubF', 'Чекбокс отмечен - функция запустилась')
EndFunc

Но это лишь один из способов... Тут все зависит от контекста..

 

[kolosov]

Спасибо. если не против то вот ещё вапрос меня интересуте можно сделать вот так к примеру

#Notrayicon
#include <GUIConstants.au3>
#include <GuiConstantsEx.au3>

; Бот на авто бой версия 0,1
 ToolTip('Рaботает Меню.',0,0)
HotKeySet("{F10}", "ExitApp")
HotKeySet("{F11}", "ButtonStarts")
 Func ExitApp()
  Exit
 EndFunc
 
 
 
GuiCreate(" ***** ", 300, 150)
GUICtrlCreateLabel(" ***",13,13)
GUICtrlCreateLabel(" ******",13,27)
GUICtrlCreateLabel(" ****.",13,41)
$F11Lab = GUICtrlCreateLabel(" Включить бот F11.",13,115)
$F10Lab = GUICtrlCreateLabel(" Выключить бот F10.",13,130)
GUICtrlSetState ( $F10Lab, $GUI_DISABLE )
GUISetState(@SW_SHOW)

GUISetState()
While 1
  $msg = GUIGetMsg() 
  Select
  	Case $msg = $GUI_EVENT_CLOSE 
  	ExitApp()
  EndSelect
Wend

Func ButtonStarts() 
GUICtrlSetState ( $F11Lab, $GUI_DISABLE )
GUICtrlSetState ( $F10Lab, $GUI_ENABLE )
while 1
    ToolTip('Рaботает АвтоБой.',0,0)
Sleep(3000)

      $aRed_Coords = PixelSearch(0,0, @DesktopWidth, @DesktopHeight, 0xADB7B9) ;клик по цвету 1
If Not @error Then MouseClick("left", $aRed_Coords[0], $aRed_Coords[1])
   
   Sleep(3000)
   ;;;;;;;;;;;;
   
     $aRed_Coords = PixelSearch(0,0, @DesktopWidth, @DesktopHeight, 0xADB7B9) ;клик по цвету 2 -- можно ли с помощью  чекбокс сделать 
If Not @error Then MouseClick("left", $aRed_Coords[0], $aRed_Coords[1]);чтобы эта функция роботала только если чекбокс активирован7
   ;;;;;;;;;;;;;
   
   
   Sleep(3000)
   
   $aRed_Coords = PixelSearch(0,0, @DesktopWidth, @DesktopHeight, 0xEB474B) ;клик по цвету 3
If Not @error Then MouseClick("left", $aRed_Coords[0], $aRed_Coords[1])

  Sleep(4000)
WEnd 
EndFunc

 

[madmasles]

kolosov [?]

то вот ещё вапрос

Предупреждение

За нарушение общих правил (пункт В.4):

Не лепите несколько вопросов разной тематики в один пост. По типу "Ребят, а ещё такой вопрос...". Каждый вопрос в свою тему.

С уважением, ваш Модератор.

Предупреждение

За нарушение общих правил (пункт В.8):

Так как эта конференция называется "Русское сообщество AutoIt", язык общения на ней - Русский. Названия фирм или программных продуктов, аббревиатуры и т.д. должны быть написаны так, как они пишутся в оригинале, например не следует писать УСБ вместо USB. На форуме крайне не рекомендуется намеренно искажать русский язык и использовать "сетевой жаргон" на подобии "Аффтар выпей йадау!".

С уважением, ваш Модератор.

Если Вы не прекратите коверкать русский язык, то буду просить администрацию форума, чтобы вас забанили.