Код:
"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 ;==>Переименовать лошадок
Помогите пожалуйста) я реально нуб в таих вещах