[Элементы GUI] Как подключить функцию к radio1

Jigan777 · 16 Июл 2014

Как подключить функции к radio1??? Уменя имеется не сколько Radio кнопок мне нужно несколько функций подключить к ним например вот эта функция одна

Код:

$nRepeat = GUICtrlRead( $Input3 )
            For $Idx = 1 To $nRepeat Step 1
WinActivate("","Chrome Legacy Window")
ControlClick("", "Chrome Legacy Window", "[CLASS:Chrome_RenderWidgetHostHWND; INSTANCE:1]", "left", 1, 182, 309)
Sleep(1000)
ControlClick("", "Chrome Legacy Window", "[CLASS:Chrome_RenderWidgetHostHWND; INSTANCE:1]", "left", 1, 313, 393)
Sleep(1000)
ControlClick("", "Chrome Legacy Window", "[CLASS:Chrome_RenderWidgetHostHWND; INSTANCE:1]", "left", 1, 186, 648)
Sleep(1000)
ControlClick("", "Chrome Legacy Window", "[CLASS:Chrome_RenderWidgetHostHWND; INSTANCE:1]", "left", 1, 178, 416)
Sleep(1000)
ControlClick("", "Chrome Legacy Window", "[CLASS:Chrome_RenderWidgetHostHWND; INSTANCE:1]", "left", 1, 177, 503)
Sleep(1000)
ControlClick("", "Chrome Legacy Window", "[CLASS:Chrome_RenderWidgetHostHWND; INSTANCE:1]", "left", 1, 800, 615)
Sleep(5000)

Вот и еще имеется 2 функции с таким же почти содержанием
вот сама форма

Код:

include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=C:\Users\Администратор\Desktop\Новая папка\Forms\Form1.kxf
$Form1 = GUICreate("LowadiBot", 313, 165, 192, 114)
$Input1 = GUICtrlCreateInput("", 40, 32, 121, 21)
$Label1 = GUICtrlCreateLabel("Введите колличество лошадей для прогона", 40, 16, 225, 17)
$Button1 = GUICtrlCreateButton("Начать", 56, 112, 75, 25)
$Radio2 = GUICtrlCreateRadio("Взрослые лошади", 40, 56, 113, 17)
$Radio3 = GUICtrlCreateRadio("Жеребята", 40, 72, 113, 17)
$Radio4 = GUICtrlCreateRadio("Вступление в КСК", 40, 88, 113, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit

	EndSwitch
WEnd

Помогите плиз

mef-t · 16 Июл 2014

В подобных случаях самое первое, где искать ответ - это справка GUICtrlCreateRadio
Приведен прекрасный пример.

Или простой пример:

Код:

#include <GUIConstantsEx.au3>
$Form1 = GUICreate("LowadiBot", 313, 165, 192, 114)
$Radio1 = GUICtrlCreateRadio("Радио 1", 10, 10, 113, 17)
$Radio2 = GUICtrlCreateRadio("Радио 2", 10, 50, 113, 17)
GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Radio1
            ThisFunction()
    EndSwitch
WEnd

Func ThisFunction()
	msgBox(64, '', 'Функция работает')
EndFunc

Jigan777 · 16 Июл 2014

Мне нужно выбрать функцию radio кнопкой потом нажать на простую кнопку и чтобы функция которая выбрана radio кнопкой после нажатия простой кнопки начала функционировать

alex33 · 16 Июл 2014

Код:

While 1
    $msg = GUIGetMsg()
	Switch $msg

		Case $btn1
		If BitAND(GUICtrlRead($idRadio1), $GUI_CHECKED) = $GUI_CHECKED Then
			; code...  Тут твоя функция если первый radio отмечен... ;
		EndIf

	EndSwitch
	WEnd

Jigan777 · 16 Июл 2014

ошибки вылазят все равно

Код:

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=c:\users\Администратор\desktop\Новая папка\forms\form1.kxf
$Form1_1 = GUICreate("Бот для Lowadi.com", 188, 206, 192, 114)
$Label1 = GUICtrlCreateLabel("Введите колличество лошадей", 16, 8, 160, 17)
$Input1 = GUICtrlCreateInput("Input1", 16, 24, 121, 21)
$Radio1 = GUICtrlCreateRadio("Взрослые лошади", 16, 48, 113, 17)
$Radio2 = GUICtrlCreateRadio("Жеребята", 16, 64, 113, 17)
$Radio3 = GUICtrlCreateRadio("Вступление в КСК", 16, 80, 113, 17)
$Radio4 = GUICtrlCreateRadio("Переименовать лошадей", 16, 96, 153, 17)
$Input2 = GUICtrlCreateInput("Input2", 16, 128, 121, 21)
$Label2 = GUICtrlCreateLabel("Coded  by: Jigan777", 80, 184, 101, 17)
$Label3 = GUICtrlCreateLabel("Имя для лошади:", 16, 112, 91, 17)
$1 = GUICtrlCreateButton("Прогон", 40, 152, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
			Case $Button1
        If BitAND(GUICtrlRead($idRadio1), $GUI_CHECKED) = $GUI_CHECKED Then
            $nRepeat = GUICtrlRead( $Input3 )
            For $Idx = 1 To $nRepeat Step 1
WinActivate("","Chrome Legacy Window")
ControlClick("", "Chrome Legacy Window", "[CLASS:Chrome_RenderWidgetHostHWND; INSTANCE:1]", "left", 1, 182, 309)
Sleep(1000)
ControlClick("", "Chrome Legacy Window", "[CLASS:Chrome_RenderWidgetHostHWND; INSTANCE:1]", "left", 1, 313, 393)
Sleep(1000)
ControlClick("", "Chrome Legacy Window", "[CLASS:Chrome_RenderWidgetHostHWND; INSTANCE:1]", "left", 1, 186, 648)
Sleep(1000)
ControlClick("", "Chrome Legacy Window", "[CLASS:Chrome_RenderWidgetHostHWND; INSTANCE:1]", "left", 1, 178, 416)
Sleep(1000)
ControlClick("", "Chrome Legacy Window", "[CLASS:Chrome_RenderWidgetHostHWND; INSTANCE:1]", "left", 1, 177, 503)
Sleep(1000)
ControlClick("", "Chrome Legacy Window", "[CLASS:Chrome_RenderWidgetHostHWND; INSTANCE:1]", "left", 1, 800, 615)
Sleep(5000)
Else
If BitAND(GUICtrlRead($idRadio2), $GUI_CHECKED) = $GUI_CHECKED Then
            $nRepeat = GUICtrlRead( $Input3 )
            For $Idx = 1 To $nRepeat Step 1
WinActivate("","Chrome Legacy Window")
ControlClick("", "Chrome Legacy Window", "[CLASS:Chrome_RenderWidgetHostHWND; INSTANCE:1]", "left", 1, 183, 316)
Sleep(1000)
ControlClick("", "Chrome Legacy Window", "[CLASS:Chrome_RenderWidgetHostHWND; INSTANCE:1]", "left", 1, 247, 406)
Sleep(1000)
ControlClick("", "Chrome Legacy Window", "[CLASS:Chrome_RenderWidgetHostHWND; INSTANCE:1]", "left", 1, 190, 484)
Sleep(1000)
ControlClick("", "Chrome Legacy Window", "[CLASS:Chrome_RenderWidgetHostHWND; INSTANCE:1]", "left", 1, 185, 385)
Sleep(1000)
ControlClick("", "Chrome Legacy Window", "[CLASS:Chrome_RenderWidgetHostHWND; INSTANCE:1]", "left", 1, 181, 506)
Sleep(1000)
ControlClick("", "Chrome Legacy Window", "[CLASS:Chrome_RenderWidgetHostHWND; INSTANCE:1]", "left", 1, 799, 615)
Sleep(5000)
Else
		If BitAND(GUICtrlRead($idRadio3), $GUI_CHECKED) = $GUI_CHECKED Then
            $nRepeat = GUICtrlRead( $Input3 )
            For $Idx = 1 To $nRepeat Step 1
WinActivate("","Chrome Legacy Window")
ControlClick("", "Chrome Legacy Window", "[CLASS:Chrome_RenderWidgetHostHWND; INSTANCE:1]", "left", 1, 891, 351)
Sleep(3000)
ControlClick("", "Chrome Legacy Window", "[CLASS:Chrome_RenderWidgetHostHWND; INSTANCE:1]", "left", 1,1031, 781)
Sleep(3000)
ControlClick("", "Chrome Legacy Window", "[CLASS:Chrome_RenderWidgetHostHWND; INSTANCE:1]", "left", 1, 799, 616)
Sleep(3000)

		If BitAND(GUICtrlRead($idRadio4), $GUI_CHECKED) = $GUI_CHECKED Then
            $nRepeat = GUICtrlRead( $Input3 )
            For $Idx = 1 To $nRepeat Step 1
WinActivate("","Chrome Legacy Window")
ControlClick("", "Chrome Legacy Window", "[CLASS:Chrome_RenderWidgetHostHWND; INSTANCE:1]", "left", 1, 743, 622)
Sleep(1000)
ControlClick("", "Chrome Legacy Window", "[CLASS:Chrome_RenderWidgetHostHWND; INSTANCE:1]", "left", 1,663, 658)
Sleep(3000)
ControlClick("", "Chrome Legacy Window", "[CLASS:Chrome_RenderWidgetHostHWND; INSTANCE:1]", "left", 1, 522, 200)
Sleep(2000)
MouseMove(486,269)
MouseDown("left")
MouseMove(369,261)
MouseUp("left")
Send("{BACKSPACE}Крез младший")
Sleep(1000)
ControlClick("", "Chrome Legacy Window", "[CLASS:Chrome_RenderWidgetHostHWND; INSTANCE:1]", "left", 1, 354, 277)
Sleep(3000)
ControlClick("", "Chrome Legacy Window", "[CLASS:Chrome_RenderWidgetHostHWND; INSTANCE:1]", "left", 1, 799, 618)
Sleep(5000)

EndSwitch

WEnd

madmasles · 16 Июл 2014

Jigan777 [?]

выбрать функцию radio батоном потом нажать на простой батон и чтобы функция которая выбрана радио батоном...

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

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

С уважением, ваш Глобальный модератор.

Пока нет реакции на предупреждение, все ответы буду удалять.

Jigan777 · 16 Июл 2014

madmasles сказал(а):
Jigan777 [?]

выбрать функцию radio батоном потом нажать на простой батон и чтобы функция которая выбрана радио батоном...

Нажмите, чтобы раскрыть...

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

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

Нажмите, чтобы раскрыть...

С уважением, ваш Глобальный модератор.[/warn]

Пока нет реакции на предупреждение, все ответы буду удалять.

Убрал))) если были ответы верни)) конечно если возможно)

Belfigor · 16 Июл 2014

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

Старайтесь избегать “Over quoting” (преувеличенное цитирование) - цитируйте только необходимую часть сообщения, которая наилучшим образом подчеркнёт суть цитируемого.

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

madmasles · 16 Июл 2014

Jigan777,
Пример 1.

Код:

#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>

Global $hGui, $iGroup, $aiRadio[4] = ['Взрослые лошади', 'Жеребята', 'Вступление в КСК', 'Переименовать лошадей'], $iBtn, $sSelect

$hGui = GUICreate('Test Radio', 250, 220)
$iGroup = GUICtrlCreateGroup('Выбор', 10, 10, 230, 140)
For $i = 0 To 3
	$aiRadio[$i] = GUICtrlCreateRadio($aiRadio[$i], 30, 30 + $i * 30, 180, 20)
Next
GUICtrlSetState($aiRadio[Random(0, 3, 1)], $GUI_CHECKED)
GUICtrlCreateGroup('', -99, -99, 1, 1)
$iBtn = GUICtrlCreateButton('Start', 70, 170, 80, 30)
GUISetState()
While 1
	Switch GUIGetMsg()
		Case $GUI_EVENT_CLOSE
			Exit
		Case $iBtn
			For $i = 0 To 3
				If GUICtrlSendMsg($aiRadio[$i], $BM_GETCHECK, 0, 0) Then
					$sSelect = GUICtrlRead($aiRadio[$i], 1)
					Execute('_MyFunc_' & $i & '()')
					ExitLoop
				EndIf
			Next
	EndSwitch
WEnd

Func _MyFunc_0()
	MsgBox(64, '_MyFunc_0', 'Вы выбрали: ' & $sSelect, 0, $hGui)
	$sSelect = ''
EndFunc   ;==>_MyFunc_0

Func _MyFunc_1()
	MsgBox(64, '_MyFunc_1', 'Вы выбрали: ' & $sSelect, 0, $hGui)
	$sSelect = ''
EndFunc   ;==>_MyFunc_1

Func _MyFunc_2()
	MsgBox(64, '_MyFunc_2', 'Вы выбрали: ' & $sSelect, 0, $hGui)
	$sSelect = ''
EndFunc   ;==>_MyFunc_2

Func _MyFunc_3()
	MsgBox(64, '_MyFunc_3', 'Вы выбрали: ' & $sSelect, 0, $hGui)
	$sSelect = ''
EndFunc   ;==>_MyFunc_3

Пример 2.

Код:

#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>

Global $hGui, $iGroup, $aiRadio[4] = ['Взрослые лошади', 'Жеребята', 'Вступление в КСК', 'Переименовать лошадей'], $iBtn, $iCurrent

$hGui = GUICreate('Test Radio', 250, 220)
$iGroup = GUICtrlCreateGroup('', 10, 10, 230, 140)
For $i = 0 To 3
	$aiRadio[$i] = GUICtrlCreateRadio($aiRadio[$i], 30, 30 + $i * 30, 180, 20)
Next
GUICtrlSendMsg($aiRadio[Random(0, 3, 1)], $BM_SETCHECK, $BST_CHECKED, 0)
For $i = 0 To 3
	If GUICtrlSendMsg($aiRadio[$i], $BM_GETCHECK, 0, 0) Then
		$iCurrent = $i
		GUICtrlSetData($iGroup, 'Выбрано: ' & GUICtrlRead($aiRadio[$iCurrent], 1))
		ExitLoop
	EndIf
Next
GUICtrlCreateGroup('', -99, -99, 1, 1)
$iBtn = GUICtrlCreateButton('Start', 70, 170, 80, 30)
GUISetState()
While 1
	Switch GUIGetMsg()
		Case $GUI_EVENT_CLOSE
			Exit
		Case $aiRadio[0] To $aiRadio[3]
			For $i = 0 To 3
				If GUICtrlSendMsg($aiRadio[$i], $BM_GETCHECK, 0, 0) Then
					$iCurrent = $i
					GUICtrlSetData($iGroup, 'Выбрано: ' & GUICtrlRead($aiRadio[$iCurrent], 1))
					ExitLoop
				EndIf
			Next
		Case $iBtn
			Execute('_MyFunc_' & $iCurrent & '()')
	EndSwitch
WEnd

Func _MyFunc_0()
	MsgBox(64, '_MyFunc_0', 'Вы выбрали: ' & GUICtrlRead($aiRadio[$iCurrent], 1), 0, $hGui)
EndFunc   ;==>_MyFunc_0

Func _MyFunc_1()
	MsgBox(64, '_MyFunc_1', 'Вы выбрали: ' & GUICtrlRead($aiRadio[$iCurrent], 1), 0, $hGui)
EndFunc   ;==>_MyFunc_1

Func _MyFunc_2()
	MsgBox(64, '_MyFunc_2', 'Вы выбрали: ' & GUICtrlRead($aiRadio[$iCurrent], 1), 0, $hGui)
EndFunc   ;==>_MyFunc_2

Func _MyFunc_3()
	MsgBox(64, '_MyFunc_3', 'Вы выбрали: ' & GUICtrlRead($aiRadio[$iCurrent], 1), 0, $hGui)
EndFunc   ;==>_MyFunc_3

Jigan777 · 17 Июл 2014

что я не так сделал??? мне просто с input1 и input2 надо) а ошибка все время выходит)))

Код:

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Global $hGui, $iGroup, $aiRadio[4] = ['Взрослые лошади', 'Жеребята', 'Вступление в КСК', 'Переименовать лошадей'], $iBtn, $sSelect

$hGui = GUICreate('Test Radio', 405, 294, 193, 115)
$iGroup = GUICtrlCreateGroup('Выбор', 10, 10, 230, 140)

;$Form2 = GUICreate("Form2", 405, 294, 193, 115)
$Input1 = GUICtrlCreateInput("", 232, 24, 121, 21)
$Label1 = GUICtrlCreateLabel("Сколько лошадок", 232, 8, 121, 17)
$Input2 = GUICtrlCreateInput("", 240, 120, 121, 21)
$Label2 = GUICtrlCreateLabel("ВВедите имя для лошадей", 240, 96, 131, 17)



For $i = 0 To 3
    $aiRadio[$i] = GUICtrlCreateRadio($aiRadio[$i], 30, 30 + $i * 30, 180, 20)
Next
GUICtrlSetState($aiRadio[Random(0, 3, 1)], $GUI_CHECKED)
GUICtrlCreateGroup('', -99, -99, 1, 1)
$iBtn = GUICtrlCreateButton('Start', 70, 170, 80, 30)
GUISetState(@SW_SHOW)


While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
        Case $iBtn
            For $i = 0 To 3
                If GUICtrlSendMsg($aiRadio[$i], $BM_GETCHECK, 1, 0) Then
                    $sSelect = GUICtrlRead($aiRadio[$i], 1)
                    Execute('_MyFunc_' & $i & '()')
                    ExitLoop
                EndIf
            Next
    EndSwitch
WEnd

Func _MyFunc_0()
    MsgBox(64, '_MyFunc_0', 'Вы выбрали: ' & $sSelect, 0, $hGui)
    $sSelect = ''
EndFunc   ;==>_MyFunc_0

Func _MyFunc_1()
    MsgBox(64, '_MyFunc_1', 'Вы выбрали: ' & $sSelect, 0, $hGui)
    $sSelect = ''
EndFunc   ;==>_MyFunc_1

Func _MyFunc_2()
    MsgBox(64, '_MyFunc_2', 'Вы выбрали: ' & $sSelect, 0, $hGui)
    $sSelect = ''
EndFunc   ;==>_MyFunc_2

Func _MyFunc_3()
    MsgBox(64, '_MyFunc_3', 'Вы выбрали: ' & $sSelect, 0, $hGui)
    $sSelect = ''
EndFunc   ;==>_MyFunc_3

вот сама ошибка она происходит после нажатия кнопки Start

Код:

>"C:\Program Files\AutoIt3\SciTE\..\autoit3.exe" /ErrorStdOut "C:\Users\Администратор\Desktop\AutoIt v3 Script.au3"    
"C:\Users\?????????????\Desktop\AutoIt v3 Script.au3" (33) : ==> Variable used without being declared.:
If GUICtrlSendMsg($aiRadio[$i], $BM_GETCHECK, 1, 0) Then
If GUICtrlSendMsg($aiRadio[$i], ^ ERROR
>Exit code: 1    Time: 2.107

madmasles · 17 Июл 2014

Jigan777 [?]

что я не так сделал?

Код:

#include <ButtonConstants.au3>

Надо было не убирать, когда мой код копировали.

PS
Я бы примерно так сделал.

Код:

#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
#include <StaticConstants.au3>
#include <EditConstants.au3>

Global $hGui, $iGroup, $aiRadio[4] = ['Взрослые лошади', 'Жеребята', 'Вступление в КСК', 'Переименовать лошадей'], $iBtn, $sSelect, _
		$aiInput[2] = ['Сколько лошадок', 'Введите имя для лошадей'], $iCount, $sName

$hGui = GUICreate('Test Radio', 250, 270)
For $i = 0 To 1
	GUICtrlCreateLabel($aiInput[$i], 10, 10 + $i * 41, 230, 16, BitOR($GUI_SS_DEFAULT_LABEL, $SS_CENTER))
	If $i Then
		$aiInput[$i] = GUICtrlCreateInput('Какое-то имя', 10, 26 + $i * 41, 230, 20, BitOR($GUI_SS_DEFAULT_INPUT, $ES_CENTER))
	Else
		$aiInput[$i] = GUICtrlCreateInput(Random(1, 10, 1), 10, 26 + $i * 41, 230, 20, BitOR($GUI_SS_DEFAULT_INPUT, $ES_CENTER, $ES_NUMBER))
	EndIf
Next
$iGroup = GUICtrlCreateGroup('Выбор действия', 10, 100, 230, 120)
For $i = 0 To 3
	$aiRadio[$i] = GUICtrlCreateRadio($aiRadio[$i], 30, 120 + $i * 25, 180, 20)
Next
GUICtrlSetState($aiRadio[Random(0, 3, 1)], $GUI_CHECKED)
GUICtrlCreateGroup('', -99, -99, 1, 1)
$iBtn = GUICtrlCreateButton('Start', 85, 230, 80, 30)
GUISetState()
While 1
	Switch GUIGetMsg()
		Case $GUI_EVENT_CLOSE
			Exit
		Case $iBtn
			$iCount = Int(GUICtrlRead($aiInput[0]))
			If Not $iCount Then
				MsgBox(16, 'Error', 'Корректно заполните поле "Сколько лошадок"', 0, $hGui)
				ContinueLoop
			EndIf
			$sName = GUICtrlRead($aiInput[1])
			If Not $sName Then
				MsgBox(16, 'Error', 'Корректно заполните поле "Введите имя для лошадей"', 0, $hGui)
				ContinueLoop
			EndIf
			For $i = 0 To 3
				If GUICtrlSendMsg($aiRadio[$i], $BM_GETCHECK, 0, 0) Then
					$sSelect = GUICtrlRead($aiRadio[$i], 1)
					Execute('_MyFunc_' & $i & '()')
					ExitLoop
				EndIf
			Next
	EndSwitch
WEnd

Func _MyFunc_0()
	MsgBox(64, '_MyFunc_0', 'Вы выбрали: ' & $sSelect & @LF & 'Сколько лошадок: ' & $iCount & @LF & 'Имя для лошадей: ' & $sName, 0, $hGui)
	$sSelect = ''
EndFunc   ;==>_MyFunc_0

Func _MyFunc_1()
	MsgBox(64, '_MyFunc_1', 'Вы выбрали: ' & $sSelect & @LF & 'Сколько лошадок: ' & $iCount & @LF & 'Имя для лошадей: ' & $sName, 0, $hGui)
	$sSelect = ''
EndFunc   ;==>_MyFunc_1

Func _MyFunc_2()
	MsgBox(64, '_MyFunc_2', 'Вы выбрали: ' & $sSelect & @LF & 'Сколько лошадок: ' & $iCount & @LF & 'Имя для лошадей: ' & $sName, 0, $hGui)
	$sSelect = ''
EndFunc   ;==>_MyFunc_2

Func _MyFunc_3()
	MsgBox(64, '_MyFunc_3', 'Вы выбрали: ' & $sSelect & @LF & 'Сколько лошадок: ' & $iCount & @LF & 'Имя для лошадей: ' & $sName, 0, $hGui)
	$sSelect = ''
EndFunc   ;==>_MyFunc_3

Jigan777 · 17 Июл 2014

а вот теперь вот что выходит

Код:

>"C:\Program Files\AutoIt3\SciTE\..\autoit3.exe" /ErrorStdOut "C:\Users\Администратор\Desktop\AutoIt v3 Script.au3"    
"C:\Users\?????????????\Desktop\AutoIt v3 Script.au3" (53) : ==> "For" statement has no matching "Next" statement.:
EndFunc

>Exit code: 1    Time: 0.0786

вот сам код

Код:

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Global $hGui, $iGroup, $aiRadio[4] = ['Взрослые лошади', 'Жеребята', 'Вступление в КСК', 'Переименовать лошадей'], $iBtn, $sSelect

$hGui = GUICreate('Test Radio', 405, 294, 193, 115)
$iGroup = GUICtrlCreateGroup('Выбор', 10, 10, 230, 140)

;$Form2 = GUICreate("Form2", 405, 294, 193, 115)
$Input1 = GUICtrlCreateInput("", 232, 24, 121, 21)
$Label1 = GUICtrlCreateLabel("Сколько лошадок", 232, 8, 121, 17)
$Input2 = GUICtrlCreateInput("", 240, 120, 121, 21)
$Label2 = GUICtrlCreateLabel("ВВедите имя для лошадей", 240, 96, 131, 17)



For $i = 0 To 3
    $aiRadio[$i] = GUICtrlCreateRadio($aiRadio[$i], 30, 30 + $i * 30, 180, 20)
Next
GUICtrlSetState($aiRadio[Random(0, 3, 1)], $GUI_CHECKED)
GUICtrlCreateGroup('', -99, -99, 1, 1)
$iBtn = GUICtrlCreateButton('Start', 70, 170, 80, 30)
GUISetState(@SW_SHOW)


While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
        Case $iBtn
            For $i = 0 To 3
                If GUICtrlSendMsg($aiRadio[$i], $BM_GETCHECK, 1, 0) Then
                    $sSelect = GUICtrlRead($aiRadio[$i], 1)
                    Execute('_MyFunc_' & $i & '()')
                    ExitLoop
                EndIf
            Next
    EndSwitch
WEnd

Func _MyFunc_0()
    $nRepeat = GUICtrlRead( $Input1 )
            For $Idx = 1 To $nRepeat Step 1
WinActivate("","Chrome Legacy Window")
ControlClick("", "Chrome Legacy Window", "[CLASS:Chrome_RenderWidgetHostHWND; INSTANCE:1]", "left", 1, 891, 351)
Sleep(3000)
ControlClick("", "Chrome Legacy Window", "[CLASS:Chrome_RenderWidgetHostHWND; INSTANCE:1]", "left", 1,1031, 781)
Sleep(3000)
ControlClick("", "Chrome Legacy Window", "[CLASS:Chrome_RenderWidgetHostHWND; INSTANCE:1]", "left", 1, 799, 616)
Sleep(3000)

EndFunc   ;==>Вступление в кск

Func _MyFunc_1()
    $nRepeat = GUICtrlRead( $Input3 )
            For $Idx = 1 To $nRepeat Step 1
WinActivate("","Chrome Legacy Window")
ControlClick("", "Chrome Legacy Window", "[CLASS:Chrome_RenderWidgetHostHWND; INSTANCE:1]", "left", 1, 182, 309)
Sleep(1000)
ControlClick("", "Chrome Legacy Window", "[CLASS:Chrome_RenderWidgetHostHWND; INSTANCE:1]", "left", 1, 313, 393)
Sleep(1000)
ControlClick("", "Chrome Legacy Window", "[CLASS:Chrome_RenderWidgetHostHWND; INSTANCE:1]", "left", 1, 186, 648)
Sleep(1000)
ControlClick("", "Chrome Legacy Window", "[CLASS:Chrome_RenderWidgetHostHWND; INSTANCE:1]", "left", 1, 178, 416)
Sleep(1000)
ControlClick("", "Chrome Legacy Window", "[CLASS:Chrome_RenderWidgetHostHWND; INSTANCE:1]", "left", 1, 177, 503)
Sleep(1000)
ControlClick("", "Chrome Legacy Window", "[CLASS:Chrome_RenderWidgetHostHWND; INSTANCE:1]", "left", 1, 800, 615)
Sleep(5000)
EndFunc   ;==> Взрослые лошади

Func _MyFunc_2()
   $nRepeat = GUICtrlRead( $Input1 )
            For $Idx = 1 To $nRepeat Step 1



WinActivate("","Chrome Legacy Window")
ControlClick("", "Chrome Legacy Window", "[CLASS:Chrome_RenderWidgetHostHWND; INSTANCE:1]", "left", 1, 743, 622)
Sleep(1000)
ControlClick("", "Chrome Legacy Window", "[CLASS:Chrome_RenderWidgetHostHWND; INSTANCE:1]", "left", 1,663, 658)
Sleep(3000)
ControlClick("", "Chrome Legacy Window", "[CLASS:Chrome_RenderWidgetHostHWND; INSTANCE:1]", "left", 1, 522, 200)
Sleep(2000)
MouseMove(486,269)
MouseDown("left")
MouseMove(369,261)
MouseUp("left")
Send("{BACKSPACE}Крез младший")
Sleep(1000)
ControlClick("", "Chrome Legacy Window", "[CLASS:Chrome_RenderWidgetHostHWND; INSTANCE:1]", "left", 1, 354, 277)
Sleep(3000)
ControlClick("", "Chrome Legacy Window", "[CLASS:Chrome_RenderWidgetHostHWND; INSTANCE:1]", "left", 1, 799, 618)
Sleep(5000)
EndFunc   ;==>Переименовать лошадок

Func _MyFunc_3()
    	$nRepeat = GUICtrlRead( $Input1 )
            For $Idx = 1 To $nRepeat Step 1



WinActivate("","Chrome Legacy Window")
ControlClick("", "Chrome Legacy Window", "[CLASS:Chrome_RenderWidgetHostHWND; INSTANCE:1]", "left", 1, 183, 316)
Sleep(3000)
ControlClick("", "Chrome Legacy Window", "[CLASS:Chrome_RenderWidgetHostHWND; INSTANCE:1]", "left", 1, 247, 406)
Sleep(3000)
ControlClick("", "Chrome Legacy Window", "[CLASS:Chrome_RenderWidgetHostHWND; INSTANCE:1]", "left", 1, 190, 484)
Sleep(3000)
ControlClick("", "Chrome Legacy Window", "[CLASS:Chrome_RenderWidgetHostHWND; INSTANCE:1]", "left", 1, 185, 385)
Sleep(3000)
ControlClick("", "Chrome Legacy Window", "[CLASS:Chrome_RenderWidgetHostHWND; INSTANCE:1]", "left", 1, 181, 506)
Sleep(3000)
ControlClick("", "Chrome Legacy Window", "[CLASS:Chrome_RenderWidgetHostHWND; INSTANCE:1]", "left", 1, 799, 615)
Sleep(3000)
EndFunc   ;==>Жеребята

C2H5OH · 17 Июл 2014

"For" statement has no matching "Next" statement.:

Какое слово помочь перевести?

madmasles · 17 Июл 2014

Jigan777,
Вопрос в теме "Как подключить функцию к radio". ИМХО, тема раскрыта. Ошибки синтаксиса к этой теме (ИМХО, вообще ни к какой) не относятся, читайте справку. Еще один такой вопрос и тему закрою.

Автор темы	Похожие темы	Форум	Ответы	Дата
A	Элементы GUI функции и элементы GUI	Общие вопросы по AutoIt	1	24 Апр 2020
Y	[Элементы GUI] Показ содержимого буфера обмена на экране	GUI - Графический интерфейс пользователя	1	5 Авг 2019
F	[Элементы GUI] Оптимизировать опрос ячеек GUI	GUI - Графический интерфейс пользователя	8	15 Май 2019
К	[Элементы GUI] Переход по ссылке IE в GUI	Автоматизация IE и Web-интерфейса	4	29 Мар 2019
	Перенесено: [Элементы GUI] Как подключить функцию к radio1	Разработка ботов	0	16 Июл 2014

Поиск

Поиск

[Элементы GUI] Как подключить функцию к radio1

Jigan777

Новичок

mef-t

Осваивающий

Jigan777

Новичок

alex33

Скриптер

Jigan777

Новичок

madmasles

Модератор

Jigan777

Новичок

Belfigor

Модератор

madmasles

Модератор

Jigan777

Новичок

madmasles

Модератор

Jigan777

Новичок

C2H5OH

AutoIT Гуру

madmasles

Модератор