Что нового

Убирание ошибок из скрипта

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

Viktor217

Осваивающий
Сообщения
233
Репутация
31
Понимаю что назвал тему плохо, так что прошу вас предложить свой вариант названия(=
Сделал скрипт(Точнее переделал), с самого начала работал нормально, но пришлось переделать, перестало к начальному значению прибавлять 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
 

dwerf

Использует ArchLinux
Сообщения
478
Репутация
218
Код:
Func brut()
    If $brut=0 Then
        $brut=1
    Else
        $brut=0
EndFunc


EndIf потерялся.

Код:
Func brut()
    $brut = Not $brut
EndFunc
 
Автор
V

Viktor217

Осваивающий
Сообщения
233
Репутация
31
А ну да, спасибо конечно, но ошибки всё равно вылезают, щас откорректирую первый пост...
 

CreatoR

Must AutoIt!
Команда форума
Администратор
Сообщения
8 473
Репутация
2 403
Viktor217
Перенёс тему в раздел тестирования, потренеруйся в придумываний названия темы.

P.S
Я тебе советую начать интенсивно читать справку, у тебя допускаются базовые ошибки, которые не должны допускаться после прочтения соответствующих разделов справки.
 
Статус
Закрыто для дальнейших ответов.
Верх