Понимаю что назвал тему плохо, так что прошу вас предложить свой вариант названия(=
Сделал скрипт(Точнее переделал), с самого начала работал нормально, но пришлось переделать, перестало к начальному значению прибавлять 1, попробовал исправить, появилось куча ошибок...
Вот скрипт:
Вот ошибки:
Сделал скрипт(Точнее переделал), с самого начала работал нормально, но пришлось переделать, перестало к начальному значению прибавлять 1, попробовал исправить, появилось куча ошибок...
Вот скрипт:
Код:
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$Input1 = InputBox('Брут','Напишите четырёх значное число с начала которого будет начинаться брут комнаты','0000')
$Input2 = InputBox('Брут','Напишите четырёх значное число до которого будет продолжаться брут комнаты','9999')
$Input3 = InputBox('Брут','Напишите задержку(В милисекундах. 1 секунда = 1000 милисекунд)','100')
Global $brut=0
HotKeySet("{f5}", "brut")
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
If $brut = 1 Then
If WinActive('Point Blank') Then
Opt('SendKeyDownDelay',$Input3)
If $Input1<$Input2 Then
Send($Input1)
Send("{ENTER}")
Sleep($Input3)
GUICtrlSetData($Input1, StringFormat("%04d", Number($Input1+1))
EndIf
EndIf
EndIf
WEnd
Func brut()
If $brut=0 Then
$brut=1
Else
$brut=0
EndIf
EndFunc
Вот ошибки:
Код:
>"H:\Program Files\AutoIt3\SciTE\AutoIt3Wrapper\AutoIt3Wrapper.exe" /run /prod /ErrorStdOut /in "H:\Documents and Settings\Admin\Рабочий стол\AutoIt v3 Script.au3" /autoit3dir "H:\Program Files\AutoIt3" /UserParams
+>03:02:56 Starting AutoIt3Wrapper v.2.0.1.24 Environment(Language:0419 Keyboard:00000419 OS:WIN_XP/Service Pack 3 CPU:X64 OS:X86)
>Running AU3Check (1.54.19.0) from:H:\Program Files\AutoIt3
H:\Documents and Settings\Admin\Рабочий стол\AutoIt v3 Script.au3(25,80) : ERROR: syntax error
GUICtrlSetData($Input1, StringFormat("%04d", Number($Input1+1))
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
H:\Documents and Settings\Admin\Рабочий стол\AutoIt v3 Script.au3(33,1) : ERROR: missing EndIf.
EndFunc
^
H:\Documents and Settings\Admin\Рабочий стол\AutoIt v3 Script.au3(21,36) : REF: missing EndIf.
If $Input1<$Input2 Then
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
H:\Documents and Settings\Admin\Рабочий стол\AutoIt v3 Script.au3(33,1) : ERROR: missing EndIf.
EndFunc
^
H:\Documents and Settings\Admin\Рабочий стол\AutoIt v3 Script.au3(19,41) : REF: missing EndIf.
If WinActive('Point Blank') Then
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
H:\Documents and Settings\Admin\Рабочий стол\AutoIt v3 Script.au3(33,1) : ERROR: missing EndIf.
EndFunc
^
H:\Documents and Settings\Admin\Рабочий стол\AutoIt v3 Script.au3(18,18) : REF: missing EndIf.
If $brut = 1 Then
~~~~~~~~~~~~~~~~~^
H:\Documents and Settings\Admin\Рабочий стол\AutoIt v3 Script.au3(33,1) : ERROR: missing Wend.
EndFunc
^
H:\Documents and Settings\Admin\Рабочий стол\AutoIt v3 Script.au3(12,1) : REF: missing Wend.
While
^
H:\Documents and Settings\Admin\Рабочий стол\AutoIt v3 Script.au3(33,1) : ERROR: syntax error
EndFunc
^
H:\Documents and Settings\Admin\Рабочий стол\AutoIt v3 Script.au3(10,25) : ERROR: brut(): undefined function.
HotKeySet("{f5}", "brut")
~~~~~~~~~~~~~~~~~~~~~~~~^
H:\Documents and Settings\Admin\Рабочий стол\AutoIt v3 Script.au3 - 7 error(s), 0 warning(s)
!>03:02:56 AU3Check ended.rc:2
>Exit code: 0 Time: 1.927