Что нового

[Автоматизация] Помогите сделать обьявление к переменной

Статус
Закрыто для дальнейших ответов.

Jigan777

Новичок
Сообщения
23
Репутация
0
Код:
"C:\Users\?????????????\Desktop\AutoIt v3 Script.au3" (32) : ==> Variable used without being declared.:
If GUICtrlSendMsg($aiRadio[$i], $BM_GETCHECK, 0, 0) Then
If GUICtrlSendMsg($aiRadio[$i], ^ ERROR

вот сама ошибка что в переводе а русский означает "Переменная используется без объявлены.:"(Пользовался переводчиком)
Вот собственно сам код)
Код:
#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)




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, 0, 0) Then
                    $sSelect = GUICtrlRead($aiRadio[$i], 1)
                    Execute('_MyFunc_' & $i & '()')
                    ExitLoop
                EndIf
            Next
    EndSwitch
WEnd

Func _MyFunc_0()
    $nRepeat = GUICtrlRead( $Input1 )
            $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_1()
    $nRepeat = GUICtrlRead( $Input3 )
             $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   ;==> Жеребята

Func _MyFunc_2()
   $nRepeat = GUICtrlRead( $Input1 )
             $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_3()
    	$nRepeat = GUICtrlRead( $Input1 )
             $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   ;==>Переименовать лошадок

Помогите пожалуйста) я реально нуб в таих вещах
 
Статус
Закрыто для дальнейших ответов.
Верх