Что нового

[Ошибки] Ошибка Func _ArrayAdd, не компилируется скрипт в новой версии Autoit

Skygrinder

Новичок
Сообщения
2
Репутация
0
Всем привет.
Года 2 назад писался скрипт, на тот момент работал исправно, компилировался тоже без проблем.
Недавно понадобилось внести пару правок, скачал новую версию autoit чтобы подредактировать код, и при компиляции столкнулся с такой ошибкой:

Код:
"C:\Program Files (x86)\AutoIt3\Include\Array.au3"(73,1) : error: syntax error
Func
^
"C:\Program Files (x86)\AutoIt3\Include\Array.au3"(73,1) : error: Statement cannot be just an expression.
Func
^
"C:\Program Files (x86)\AutoIt3\Include\Array.au3"(73,38) : warning: $vValue: possibly used before declaration.
Func _ArrayAdd(ByRef $aArray, $vValue,
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
"C:\Program Files (x86)\AutoIt3\Include\Array.au3"(73,48) : warning: $iStart: possibly used before declaration.
Func _ArrayAdd(ByRef $aArray, $vValue, $iStart =
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
"C:\Program Files (x86)\AutoIt3\Include\Array.au3"(73,66) : warning: $sDelim_Item: possibly used before declaration.
Func _ArrayAdd(ByRef $aArray, $vValue, $iStart = 0, $sDelim_Item =
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
"C:\Program Files (x86)\AutoIt3\Include\Array.au3"(73,85) : warning: $sDelim_Row: possibly used before declaration.
Func _ArrayAdd(ByRef $aArray, $vValue, $iStart = 0, $sDelim_Item = "|", $sDelim_Row =
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
"C:\Program Files (x86)\AutoIt3\Include\Array.au3"(73,102) : warning: $iForce: possibly used before declaration.
Func _ArrayAdd(ByRef $aArray, $vValue, $iStart = 0, $sDelim_Item = "|", $sDelim_Row = @CRLF, $iForce =
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
"C:\Program Files (x86)\AutoIt3\Include\Array.au3"(79,24) : warning: $aArray: possibly used before declaration.
	If Not IsArray($aArray)
	~~~~~~~~~~~~~~~~~~~~~~^
"C:\Program Files (x86)\AutoIt3\Include\Array.au3"(73,128) : error: _ArrayAdd(): undefined function.
Func _ArrayAdd(ByRef $aArray, $vValue, $iStart = 0, $sDelim_Item = "|", $sDelim_Row = @CRLF, $iForce = $ARRAYFILL_FORCE_DEFAULT)


Попробовал скомпилировать старую версию, которая вообще без изменений и работала раньше - получил то же самое.
Скачал более раннюю версию autoit - то же самое.
Кто то знает как такое решается?

сам скрипт:
Код:
#include <GUIConstantsEx.au3>
#include <NomadMemory.au3>
#include <misc.au3>
#include <string.au3>
#include <GUIConstants.au3>
#include <ButtonConstants.au3>
#include <MemoryModuleGetBaseAddress.au3>
#include <Array.au3>
#include <WindowsConstants.au3>
Global $ProcessName, $SPMinH, $offset_hp,$TEXTtown,$TEXTdelay,$RESPtown,$OFFcity, $offset_MaxHP,$town, $offset_sp, $offset_MaxSP, $baseADDR, $DllInformation, $sModule,  $GMtextname, $HUSER32DLLOPEN = DllOpen("User32.dll")
$s = 0
$version = "v.3.1"
Global $find = "Процесс не найден.", $go, $op, $sa, $Cbut,$CLICK0, $afterclick, $clickerdelay,$CLICK01,$CLICK02,$CLICK03,$CLICK04,$CLICK05,$CLICK06
#Region Gui
;--------------------------------------------------------------
$HP = 0
$SP = 0
$Lilit= 204
Opt("SendKeyDelay", 1)
Opt("SendKeyDownDelay", 1)
Opt("GUIOnEventMode", 1)
Opt("TrayOnEventMode", 1)
Opt("TrayAutoPause", 0)

HotKeySet("{PAUSE}", "pause")
HotKeySet("{HOME}", "pause")
HotKeySet("!x", "Terminate")
$GUI = GUICreate("FFF AutoHealer" & $version, 300, 410)
GUISetBkColor(16775930)
GUICtrlCreateGroup ("HP",5,45,150,110)
GUICtrlCreateGroup ("SP",5,165,150,110)
GUICtrlCreateGroup ("Message",170,45,120,65)
GUICtrlCreateGroup ("Respawn",5,285,150,55)
GUICtrlCreateGroup ("Delay",170,285,120,55)
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
; --------------------------------------------------------------ICON
$ICON1 = GUICtrlCreateIcon("", 0, 10, 100)
GUICtrlSetImage($ICON1, @ScriptFullPath, 201)
$ICON2 = GUICtrlCreateIcon("", 0, 10, 60)
GUICtrlSetImage($ICON2, @ScriptFullPath, 202)
$ICON3 = GUICtrlCreateIcon("", 0, 10, 180)
GUICtrlSetImage($ICON3, @ScriptFullPath, 203)
$ICON4 = GUICtrlCreateIcon("", 0, 190, 115, 100, 130)
GUICtrlSetImage($ICON4, @ScriptFullPath, $Lilit)
$ICON5 = GUICtrlCreateIcon("", 0, 155, 1)
GUICtrlSetImage($ICON5, @ScriptFullPath, 205)
$ICON8 = GUICtrlCreateIcon("", 0, 10, 220)
GUICtrlSetImage($ICON8, @ScriptFullPath, 201)
$ICON6 = GUICtrlCreateIcon("", 0, 190, 115, 100, 130)
$ICON7 = GUICtrlCreateIcon("", 0, 190, 115, 100, 130)

;--------------------------------------------------------------HP
$hpcmin = GUICtrlCreateCombo("0%", 45, 107, 43, 20)
GUICtrlSetData(-1, "1%|2%|3%|4%|5%|6%|7%|8%|9%|10%|11%|12%|13%|14%|15%|16%|17%|18%|19%|20%|21%|22%|23%|24%|25%|26%|27%|28%|29%|30%|31%|32%|33%|34%|35%|36%|37%|38%|39%|40%|41%|42%|43%|44%|45%|46%|47%|48%|49%|50%|51%|52%|53%|54%|55%|56%|57%|58%|59%|60%|61%|62%|63%|64%|65%|66%|67%|68%|69%|70%|71%|72%|73%|74%|75%|76%|77%|78%|79%|80%|81%|82%|83%|84%|85%|86%|87%|88%|89%|90%|91%|92%|93%|94%|95%|96%|97%|98%|99%|-1%", IniRead(@ScriptDir & "\FFFAH.ini", "Save", "HPMin", "30%"))
$hpcmax = GUICtrlCreateCombo("0%", 45, 66, 43, 20)
GUICtrlSetData(-1, "1%|2%|3%|4%|5%|6%|7%|8%|9%|10%|11%|12%|13%|14%|15%|16%|17%|18%|19%|20%|21%|22%|23%|24%|25%|26%|27%|28%|29%|30%|31%|32%|33%|34%|35%|36%|37%|38%|39%|40%|41%|42%|43%|44%|45%|46%|47%|48%|49%|50%|51%|52%|53%|54%|55%|56%|57%|58%|59%|60%|61%|62%|63%|64%|65%|66%|67%|68%|69%|70%|71%|72%|73%|74%|75%|76%|77%|78%|79%|80%|81%|82%|83%|84%|85%|86%|87%|88%|89%|90%|91%|92%|93%|94%|95%|96%|97%|98%|99%|-1%", IniRead(@ScriptDir & "\FFFAH.ini", "Save", "HPMax", "95%"))
$HPmin = GUICtrlCreateCombo("{F1}", 90, 107, 43, 20)
GUICtrlSetData(-1, "{F2}|{F3}|{F4}|{F5}|{F6}|{F7}|{F8}|{F9}|1|2|3|4|5|6|7|8|9|q|w|e|r|t|y|u|i|o|p|[|]|a|s|d|f|g|h|j|k|l|;|'|\|z|x|c|v|b|n|m|,|.|/", IniRead(@ScriptDir & "\FFFAH.ini", "Save", "HPMinBut", "{F3}"))
$HPmax = GUICtrlCreateCombo("{F1}", 90, 66, 43, 20)
GUICtrlSetData(-1, "{F2}|{F3}|{F4}|{F5}|{F6}|{F7}|{F8}|{F9}|1|2|3|4|5|6|7|8|9|q|w|e|r|t|y|u|i|o|p|[|]|a|s|d|f|g|h|j|k|l|;|'|\|z|x|c|v|b|n|m|,|.|/", IniRead(@ScriptDir & "\FFFAH.ini", "Save", "HPMaxBut", "{F7}"))
$checkhp = GUICtrlCreateCheckbox("ON AutoHP", 10, 132,82,20)
;--------------------------------------------------------------SP
$sphmin = GUICtrlCreateCombo("0%", 45, 227, 43, 20)
GUICtrlSetData(-1, "1%|2%|3%|4%|5%|6%|7%|8%|9%|10%|11%|12%|13%|14%|15%|16%|17%|18%|19%|20%|21%|22%|23%|24%|25%|26%|27%|28%|29%|30%|31%|32%|33%|34%|35%|36%|37%|38%|39%|40%|41%|42%|43%|44%|45%|46%|47%|48%|49%|50%|51%|52%|53%|54%|55%|56%|57%|58%|59%|60%|61%|62%|63%|64%|65%|66%|67%|68%|69%|70%|71%|72%|73%|74%|75%|76%|77%|78%|79%|80%|81%|82%|83%|84%|85%|86%|87%|88%|89%|90%|91%|92%|93%|94%|95%|96%|97%|98%|99%|-1%", IniRead(@ScriptDir & "\FFFAH.ini", "Save", "SPMin", "80%"))
$sphmax = GUICtrlCreateCombo("0%", 45, 186, 43, 20)
GUICtrlSetData(-1, "1%|2%|3%|4%|5%|6%|7%|8%|9%|10%|11%|12%|13%|14%|15%|16%|17%|18%|19%|20%|21%|22%|23%|24%|25%|26%|27%|28%|29%|30%|31%|32%|33%|34%|35%|36%|37%|38%|39%|40%|41%|42%|43%|44%|45%|46%|47%|48%|49%|50%|51%|52%|53%|54%|55%|56%|57%|58%|59%|60%|61%|62%|63%|64%|65%|66%|67%|68%|69%|70%|71%|72%|73%|74%|75%|76%|77%|78%|79%|80%|81%|82%|83%|84%|85%|86%|87%|88%|89%|90%|91%|92%|93%|94%|95%|96%|97%|98%|99%|-1%", IniRead(@ScriptDir & "\FFFAH.ini", "Save", "SPMax", "80%"))
$SPmin = GUICtrlCreateCombo("{F1}", 90, 227, 43, 20)
GUICtrlSetData(-1, "{F2}|{F3}|{F4}|{F5}|{F6}|{F7}|{F8}|{F9}|1|2|3|4|5|6|7|8|9|q|w|e|r|t|y|u|i|o|p|[|]|a|s|d|f|g|h|j|k|l|;|'|\|z|x|c|v|b|n|m|,|.|/", IniRead(@ScriptDir & "\FFFAH.ini", "Save", "SPMinBut", "{F5}"))
$SPmax = GUICtrlCreateCombo("{F1}", 90, 186, 43, 20)
GUICtrlSetData(-1, "{F2}|{F3}|{F4}|{F5}|{F6}|{F7}|{F8}|{F9}|1|2|3|4|5|6|7|8|9|q|w|e|r|t|y|u|i|o|p|[|]|a|s|d|f|g|h|j|k|l|;|'|\|z|x|c|v|b|n|m|,|.|/", IniRead(@ScriptDir & "\FFFAH.ini", "Save", "SPMaxBut", "{F7}"))
$checksp = GUICtrlCreateCheckbox("ON AutoSP", 10, 252)
;--------------------------------------------------------------ONOFF
$on = GUICtrlCreateRadio("Вкл.", 2, 13)
$off = GUICtrlCreateRadio("Выкл.", 52, 13)
GUICtrlSetState($off, $GUI_CHECKED)
GUICtrlSetState($checkhp, $GUI_CHECKED)
GUICtrlSetState($checksp, $GUI_UNCHECKED)
;--------------------------------------------------------------TOWN
$checkTOWN = GUICtrlCreateInput("moscovia", 20, 305, 120, 20)
GUICtrlSetData(-1,IniRead(@ScriptDir & "\FFFAH.ini", "Save", "Town", "moscovia"))
;--------------------------------------------------------------DELAY
$checkDELAY = GUICtrlCreateInput("170", 185, 305, 90, 20)
GUICtrlSetData(-1,IniRead(@ScriptDir & "\FFFAH.ini", "Save", "Delay", "100"))
;--------------------------------------------------------------UPDATE
$up = GUICtrlCreateButton("Обновить", 3, 345,60,25)
GUICtrlSetOnEvent($up, "UpDate")
$flabel = GUICtrlCreateLabel($find, 67, 345, 150, 150)
;--------------------------------------------------------------HELPBUTTON
$help = GUICtrlCreateButton("Помощь",3,375,60,25)
GUICtrlSetOnEvent($help,"help_open")
;--------------------------------------------------------------TEXT
GUICtrlCreateLabel("Final Fatal Force guild", 185, 10, 130, 20)
GUICtrlCreateLabel("by Kito", 255, 25, 130, 20)
GUICtrlSetColor(-1,0xdcdcdc)
$AHon = "Запустите клиент и нажмите кнопку <Обновить>"
$AHoff = GUICtrlCreateLabel($AHon, 180, 60, 100, 40)
;---------------------------------------------------------------HelpGUI
$helpGUI = GUICreate("HELP", 330, 350)
GUICtrlCreateTab(2, 0, 328, 350)
;HelpTabs
;----------
GUICtrlCreateTabItem("Общий")
GUICtrlCreateGroup ("",10,25,125,50)
GUICtrlCreateLabel("Пауза - Pause/Break"&@LF& "Выход - Alt+X", 20, 40, 120, 40)
GUICtrlCreateGroup ("",10,85,315,170)
GUICtrlCreateLabel("-Для корректной работы необходим .NET Framework 4" &@LF&"-Запускать когда угодно (во время игры/до запуска игры)"&@LF&@LF&"Индикаторы правильной работы:"&@LF&"1)В левом верхнем углу экрана отобразятся текущие % вашего хп/сп"&@LF&"2)Внизу окна автожора напишет 'процесс найден:<номер процесса>, Память открыта:0х00400000, Город респа: <название>'"&@LF&"3)В Message боксе напишет что Проверка пройдена успешно", 20,100,300,200)
;----------
GUICtrlCreateTabItem("HP/SP")
GUICtrlCreateGroup ("",10,25,230,115)
$ICON2 = GUICtrlCreateIcon("", 0, 15, 35)
GUICtrlSetImage($ICON2, @ScriptFullPath, 202)
GUICtrlCreateLabel("Первичная расходка"&@LF&"(алойки/вайт поты/мастерелки итд.)", 47, 40, 200, 40)
$ICON1 = GUICtrlCreateIcon("", 0, 15, 70)
GUICtrlSetImage($ICON1, @ScriptFullPath, 201)
GUICtrlCreateLabel("Вторичная расходка"&@LF&"(сиды/ягоды)", 47, 75, 200, 40)
$ICON3 = GUICtrlCreateIcon("", 0, 15, 105)
GUICtrlSetImage($ICON3, @ScriptFullPath, 203)
GUICtrlCreateLabel("Любая расходка на сп", 47, 112, 200, 40)
GUICtrlCreateGroup ("",10,150,290,190)
GUICtrlCreateLabel("По желанию можно отключить отдельно отжор сп/хп убрав галочку в соответсвующих чекбоксах"&@LF&"(ON AutoHP/ON AutoSP)"&@LF&"Если вам нужно отключить один вид расхода(отьедатся только потами или только ягодами), то выставте в процентном меню значение '-1%'"&@LF, 20, 160, 280, 90)
GUICtrlCreateLabel("Как работает автоотжор:"&@LF&"Жмёт кнопку 'ягод' пока 2<HP<(% 'ягод')"&@LF&"Жмёт кнопку 'потов' пока (% 'ягод' )=<HP<(% 'потов')"&@LF&"Тоже самое и для СП. Только если у вас ровно 0 сп - поты кушатся будут." ,20, 270, 280, 80)
;----------
GUICtrlCreateTabItem("Respawn")
GUICtrlCreateGroup ("",10,25,290,205)
GUICtrlCreateLabel("Введите название города в котором сохранён ваш чар.Тогда автоотжор НЕ будет там работать!"& @LF& "Чтобы узнать правильное название города используйте команду '/where'"& @LF & @LF &"Пример:"& @LF &"Yuno, Capital of Schwarzwarld Republic(yuno): 157, 181"& @LF &"вписываем: yuno"& @LF & @LF &"Автоотжор также не работает на таких картах: 'sch_gld', 'aru_gld' - локации перед замками WoE 2.0"&@LF&@LF&"Это зделано для того, чтобы не тратить расход на отжор после смерти и эфекты яблочек под замком",20,35,280,180)
;----------
GUICtrlCreateTabItem("Delay")
GUICtrlCreateGroup ("",10,25,170,100)
GUICtrlCreateLabel("Задержка на поедание потов"&@LF&"(в милисекундах)"&@LF&@LF&"Ставить слишком маленькое значение не рекомендуется, возможны лаги",20,35,165,100)
;----------
GUICtrlCreateTabItem("Lags")
GUICtrlCreateGroup ("",10,25,305,235)
GUICtrlCreateLabel("В предидущих версих наблюдалось залипание клавиш, особенно таких как Alt, если юзер активно их клацал во время поедания потов автоотжором."&@LF&@LF&"Начиная с версии 2.1 автоотжор приостанавливается если вы зажали одну из следующих клавиш:"&@LF&"Alt, Ctrl, Shift"&@LF&"и сразу же продолжает работать как только вы их отпускаете"&@LF&"Если кнопка всетаки залипла(хз как вам это удалось) ПРОБЛЕМА РЕШАЕТСЯ ПОВТОРНЫМ НАЖАТИЕМ НА ТУ ЖЕ КНОПКУ и установкой задержки побольше",20,35,290,225)
;----------
GUISetOnEvent($GUI_EVENT_CLOSE, "help_close")

;---------------------------------------------------------------START
GUISetState(@SW_SHOW, $GUI)
#EndRegion Gui
;--------------------------------------------------------------
While 1
	mytown()
	If WinActive($ProcessName) And (GUICtrlRead($on) = 1) and  StringRegExp($OFFcity, $RESPtown ,2)  Then
		ToolTip("HP: " & $HP & "% "& "SP: " & $SP & "%", 0, 0)
		If GUICtrlRead($checkhp) = $GUI_CHECKED Then hp()
		If GUICtrlRead($checksp) = $GUI_CHECKED Then SP()
		If $HP >= GUICtrlRead($hpcmax) And $SP >= GUICtrlRead($sphmax)  Then Sleep(50)
	ElseIf WinActive($ProcessName) And (GUICtrlRead($on) = 1) and StringRegExp($OFFcity, $RESPtown ,0) Then
	ToolTip("",0,0)
		Sleep(50)
	ElseIf WinActive($ProcessName) And (GUICtrlRead($off) = 1) Then
		ToolTip("Pause",0,0)
		Sleep(50)
	EndIf
	If Not WinActive($ProcessName) Or (GUICtrlRead($on) = 4) Then Sleep(50)
	If GUICtrlRead($checkhp) = $GUI_UNCHECKED And GUICtrlRead($checksp) = $GUI_UNCHECKED Then Sleep(50)
	Sleep($TEXTdelay)
WEnd
;--------------------------------------------------------------
Func hp()
	If $go = True Then
		$mem = "0x" & Hex($offset_hp)
		$CurrentHP = _MemoryRead($mem, $DllInformation, 'ptr') ; читаем адрес из памяти
		$HPdec = Dec(StringTrimLeft($CurrentHP, 2)) ; возвращаем в десятичном формате

		$mem = "0x" & Hex($offset_MaxHP)
		$CurrentMHP = _MemoryRead($mem, $DllInformation, 'ptr')
		$HPMdec = Dec(StringTrimLeft($CurrentMHP, 2))

		$hhp = $HPMdec / 100
		Global $HP = Int($HPdec / $hhp)
		$HPMH = StringTrimRight(GUICtrlRead($hpcmax), 1)
		$HPMinH = StringTrimRight(GUICtrlRead($hpcmin), 1)
		Select
			Case $HP <= $HPMH And $HP > $HPMinH And $HPdec > 2
				_CONTROLSENDEX(GUICtrlRead($HPmax))
				sleep(1)
			Case $HP <= $HPMinH And $HPdec > 2
				_CONTROLSENDEX(GUICtrlRead($HPmin))
				Sleep(1)
			Case $HPdec <= 2
				Sleep(30)
		EndSelect
		sleep(2)
	EndIf
EndFunc   ;==>hp
;--------------------------------------------------------------
Func SP()
	If $go = True Then
		$mem = "0x" & Hex($offset_sp)
		$CurrentSP = _MemoryRead($mem, $DllInformation, 'ptr') ; читаем адрес из памяти
		$SPdec = Dec(StringTrimLeft($CurrentSP, 2)) ; возвращаем в десятичном формате

		$mem = "0x" & Hex($offset_MaxSP)
		$CurrentMSP = _MemoryRead($mem, $DllInformation, 'ptr')
		$SPMdec = Dec(StringTrimLeft($CurrentMSP, 2))

		$msp = $SPMdec / 100
		Global $SP = Int($SPdec / $msp)
		$SPSH = StringTrimRight(GUICtrlRead($sphmax), 1)
		$SPMinH = StringTrimRight(GUICtrlRead($sphmin), 1)

		Select
			Case $SP <= $SPSH And $SP > $SPMinH
				_CONTROLSENDEX(GUICtrlRead($SPmax))
				sleep(1)
			Case $SP <= $SPMinH
				_CONTROLSENDEX(GUICtrlRead($SPmin))
				Sleep(1)
		EndSelect
		Sleep(2)
	EndIf
EndFunc   ;==>SP
;--------------------------------------------------------------
Func mytown()
	$mem = "0x" & Hex($town)
	$CURRENTtown = _MEMORYREAD($mem, $DLLINFORMATION, "char[32]")
	$RESPtown = StringTrimLeft(_HEXTOSTRING($CURRENTtown),2)
EndFunc
;--------------------------------------------------------------
Func pause()
	Select
		Case (GUICtrlRead($on) = 1)
			GUICtrlSetState($off, $GUI_CHECKED)
		Case (GUICtrlRead($off) = 1)
			GUICtrlSetState($on, $GUI_CHECKED)
	EndSelect
EndFunc   ;==>pause

;--------------------------------------------------------------
Func _CONTROLSENDEX($SSEND_DATA)
	While _ISPRESSED("10", $HUSER32DLLOPEN) Or _ISPRESSED("11", $HUSER32DLLOPEN) Or _ISPRESSED("12", $HUSER32DLLOPEN)
		Sleep(10)
	WEnd
	Send($SSEND_DATA)
EndFunc

;---------------------------------------------------------------

Func TERMINATE()
	DllClose($HUSER32DLLOPEN)
	Exit 0
EndFunc ;==>close

;--------------------------------------------------------------
Func UpDate()
	$ProcessName = "TervistRO 2.0 [tervistro.net]"
	$ProcessID = WinGetProcess($ProcessName, "")
	$DllInformation = _MemoryOpen($ProcessID)
	$offset_hp = 0x0083e1b4
	$offset_MaxHP = 0x0083e1b8
	$offset_sp = 0x0083e1bc
	$offset_MaxSP = 0x0083e1c0
	$sModule = "ragexe_tervist2.exe"
	$town = 0x0083B90C



	$TEXTdelay = int(Number(GUICtrlRead($checkDELAY)))
	$TEXTtown = GUICtrlRead($checkTOWN)
	$OFFcity = "sch_gld" & "aru_gld" & $TEXTtown

	If ProcessExists($sModule) Then
		$Lilit=206
		GUICtrlSetImage($ICON6, @ScriptFullPath, $Lilit)
		$AHon = "Клиент найден." &@LF& "AutoHealer настроен."
		GUICtrlSetData($AHoff,$AHon)
	Else
		$Lilit = 207
		GUICtrlSetImage($ICON7, @ScriptFullPath, $Lilit)
		$AHon = "Ожидание запуска клиента"
		GUICtrlSetData($AHoff,$AHon)
	EndIf

	If $ProcessID <> -1 Then
		SetPrivilege("SeDebugPrivilege", 1)
		$baseADDR = _MemoryModuleGetBaseAddress($ProcessID, $sModule)
		If $baseADDR = 0 Then
			SetPrivilege("SeDebugPrivilege", 1)
			$baseADDR = _MemoryModuleGetBaseAddress($ProcessID, $sModule)
		EndIf
		$find = "Процесс найден:" & $ProcessID & "	Память открыта:" & $baseADDR & "	Город респа: " & $TEXTtown
		GUICtrlSetData($flabel, $find)
		$go = True
	EndIf


EndFunc   ;==>UpDate

;--------------------------------------------------------------
Func help_open()
GUISetState(@SW_SHOW, $helpGUI)
EndFunc   ;==>Help
;--------------------------------------------------------------
Func help_close()
    GUISetState(@SW_HIDE, $helpGUI)
EndFunc

;--------------------------------------------------------------
Func CLOSEClicked()
	$iniWrite = "HPMinBut=" & GUICtrlRead($HPmin) & @LF & "HPMaxBut=" & GUICtrlRead($HPmax) & @LF & "SPMinBut=" & GUICtrlRead($SPmin) & @LF & "SPMaxBut=" & GUICtrlRead($SPmax) & @LF & "HPMin=" & GUICtrlRead($hpcmin) & @LF & "HPMax=" & GUICtrlRead($hpcmax) & @LF & "SPMin=" & GUICtrlRead($sphmin) & @LF & "SPMax=" & GUICtrlRead($sphmax) & @LF & "Delay=" & GUICtrlRead($checkDELAY) & @LF & "Town=" & GUICtrlRead ($checkTOWN) & @LF
	IniWriteSection(@ScriptDir & "\FFFAH.ini", "Save", $iniWrite)
	Exit
EndFunc   ;==>CLOSEClicked
 

InnI

AutoIT Гуру
Сообщения
4,947
Репутация
1,443
Skygrinder
У меня нет UDF NomadMemory.au3 и MemoryModuleGetBaseAddress.au3, поэтому я закомментировал все функции _Memory* и SetPrivilege. После этого на версии 3.3.14.2 скрипт запустился и скомпилировался. Попробуйте сделать так же. Если получится, значит проблема в этих UDF. Если нет - полностью удалите все версии AutoIt и установите только последнюю (желательно не портабельную).
 
Верх