Что нового
Автор:
Фильтры

[Автоматизация] INIRead - Не использует сохранения

K

kolosov

Новичок
Сообщения
137
Репутация
0
Доброго времени суток.
Суть проблемы в том что после сохранения координат в INIWrite не хочет их использовать после перезапуска программы.
Вот скрипт.
Код: 
#include <GUIConstants.au3>
#include <ButtonConstants.au3>
#include <_UniqueHardwaeIDv1.inc>
#include <string.au3>
AutoItSetOption('GUIOnEventMode',1)
GUICreate("==",300,230)
GUICtrlCreateTab ( 0, 0, 300, 230 ); 

GUISetOnEvent($GUI_EVENT_CLOSE, "ExitApp")
GUICtrlCreateTabitem ("--")
GUICtrlCreateLabel("-",70,5)
GUICtrlCreateLabel("Выключить меня на F10",10,199)
GUICtrlCreateLabel("-",205,5)
GUICtrlCreateLabel("I",200,0)
GUICtrlCreateLabel("I",200,3)
GUICtrlCreateLabel("I",200,6)
GUICtrlCreateLabel("I",200,8)
HotKeySet("{F10}","ExitApp")
GUISetState()
$Start = GUICtrlCreateButton("Старт",10,30)
$Setting = GUICtrlCreateButton("Настройка",47,30)
$Instruction = GUICtrlCreateButton("Инструкция",110,30)
$Time01 = GUICtrlCreateInput('-',10,90,200)
$Time02 = GUICtrlCreateInput('-',10,120,200)
$Time03 = GUICtrlCreateInput('-',10,150,200)
GUICtrlCreateLabel("Время писать в мс. Пример 1ск = 1000мс",10,180)
$Patty = GUICtrlCreateCheckbox("-",200,30)
GUICtrlSetOnEvent($Start,'_Start')
GUICtrlSetOnEvent($Setting,'_Setting')
GUICtrlSetOnEvent($Instruction,'_Instruction01')
Global $name [2]=[0,0]
;Setting atack
Global $Atacka01[2] = [0,0]
Global $Atacka02[2] = [0,0]
Global $Atacka03[2] = [0,0]
Global $Atacka04[2] = [0,0]
Global $Atacka05[2] = [0,0]
Global $Atacka06[2] = [0,0]
Global $Atacka07[2] = [0,0]
Global $Atacka08[2] = [0,0]
Global $Atacka09[2] = [0,0]
;________________________
Global $Exit [2] = [0,0]
Global $Orb01 [2] = [0,0]
Global $Patty01 [2] = [0,0]

$name = Read()
$Atacka01 = Read1()
$Atacka02 = Read2()
$Atacka03 = Read3()
$Atacka04 = Read4()
$Atacka05 = Read5()
$Atacka06 = Read6()
$Atacka07 = Read7()
$Atacka08 = Read8()
$Atacka09 = Read9()
$Exit = Read10()
$Orb01 = Read11()
$Patty01 = Read12()

Func _Start()
   Sleep(1500)
   While 1
 
   MouseClick('left',$name[0],$name[1])
   Sleep(GUICtrlRead($Time01))
   
   MouseClick('left',$Orb01[0],$Orb01[1])
   Sleep(300)
   
   MouseClick('left',$Atacka01[0],$Atacka01[1])
   Sleep(GUICtrlRead($Time02))
   
   MouseClick('left',$Orb01[0],$Orb01[1])
   Sleep(300)
   
   MouseClick('left',$Atacka02[0],$Atacka02[1])
   Sleep(GUICtrlRead($Time02))
   
   MouseClick('left',$Orb01[0],$Orb01[1])
   Sleep(300)
   
   MouseClick('left',$Atacka03[0],$Atacka03[1])
   Sleep(GUICtrlRead($Time02))
   
   MouseClick('left',$Orb01[0],$Orb01[1])
   Sleep(300)
   
   MouseClick('left',$Atacka04[0],$Atacka04[1])
   Sleep(GUICtrlRead($Time02))
   
   MouseClick('left',$Orb01[0],$Orb01[1])
   Sleep(300)
   
   MouseClick('left',$Atacka05[0],$Atacka05[1])
   Sleep(GUICtrlRead($Time02))
   
   MouseClick('left',$Orb01[0],$Orb01[1])
   Sleep(300)
   
   MouseClick('left',$Atacka06[0],$Atacka06[1])
   Sleep(GUICtrlRead($Time02))
   
   MouseClick('left',$Atacka07[0],$Atacka07[1])
   Sleep(GUICtrlRead($Time02))
   
   MouseClick('left',$Orb01[0],$Orb01[1])
   Sleep(300)
   
   MouseClick('left',$Atacka08[0],$Atacka08[1])
   Sleep(GUICtrlRead($Time02))
   
   MouseClick('left',$Orb01[0],$Orb01[1])
   Sleep(300)
   
   MouseClick('left',$Atacka09[0],$Atacka09[1])
   Sleep(3500)
   
   MouseClick('left',$Exit[0],$Exit[1])
   Sleep(4000)
   
   Sleep(GUICtrlRead($Time03))
     if GUICtrlRead ($Patty) = 1 Then _Patty01()
   WEnd
   EndFunc

Func _Setting()
   MsgBox(0,"Настройка","-")
   Sleep(2000)
   $name = MouseGetPos()
   MsgBox(0,"Настройка","Выполнено",1)
   IniWrite('Setting.ini','Setting','X',$name  [0])
   IniWrite('Setting.ini','Setting','Y',$name  [1])
   
   MsgBox(0,"Настройка","-")
   Sleep(2000)
   $Orb01 = MouseGetPos()
   MsgBox(0,"Настройка","Выполнено",1)
   IniWrite('Setting.ini','Setting','X',$Orb01  [0])
   IniWrite('Setting.ini','Setting','Y',$Orb01  [1])
   
   MsgBox(0,"Настройка","-")
   Sleep(2000)
   $Atacka01 = MouseGetPos()
   MsgBox(0,"Настройка","Выполнено",1)
   IniWrite('Setting.ini','Setting','X',$Atacka01  [0])
   IniWrite('Setting.ini','Setting','Y',$Atacka01  [1])
   
   MsgBox(0,"Настройка","-")
   Sleep(2000)
   $Atacka02 = MouseGetPos()
   MsgBox(0,"Настройка","Выполнено",1)
   IniWrite('Setting.ini','Setting','X',$Atacka02  [0])
   IniWrite('Setting.ini','Setting','Y',$Atacka02  [1])
   
   MsgBox(0,"Настройка","-")
   Sleep(2000)
   $Atacka03 = MouseGetPos()
   MsgBox(0,"Настройка","Выполнено",1)
   IniWrite('Setting.ini','Setting','X',$Atacka03  [0])
   IniWrite('Setting.ini','Setting','Y',$Atacka03  [1])
   
   MsgBox(0,"Настройка","-")
   Sleep(2000)
   $Atacka04 = MouseGetPos()
   MsgBox(0,"Настройка","Выполнено",1)
   IniWrite('Setting.ini','Setting','X',$Atacka04  [0])
   IniWrite('Setting.ini','Setting','Y',$Atacka04  [1])
   
   MsgBox(0,"Настройка","-")
   Sleep(2000)
   $Atacka05 = MouseGetPos()
   MsgBox(0,"Настройка","Выполнено",1)
   IniWrite('Setting.ini','Setting','X',$Atacka05  [0])
   IniWrite('Setting.ini','Setting','Y',$Atacka05  [1])
   
   MsgBox(0,"Настройка","-")
   Sleep(2000)
   $Atacka06 = MouseGetPos()
   MsgBox(0,"Настройка","Выполнено",1)
   IniWrite('Setting.ini','Setting','X',$Atacka06  [0])
   IniWrite('Setting.ini','Setting','Y',$Atacka06  [1])
   
   MsgBox(0,"Настройка","-")
   Sleep(2000)
   $Atacka07 = MouseGetPos()
   MsgBox(0,"Настройка","Выполнено",1)
   IniWrite('Setting.ini','Setting','X',$Atacka07  [0])
   IniWrite('Setting.ini','Setting','Y',$Atacka07  [1])
   
   MsgBox(0,"Настройка","-")
   Sleep(2000)
   $Atacka08 = MouseGetPos()
   MsgBox(0,"Настройка","Выполнено",1)
   IniWrite('Setting.ini','Setting','X',$Atacka08  [0])
   IniWrite('Setting.ini','Setting','Y',$Atacka08  [1])
   
   MsgBox(0,"Настройка","-")
   Sleep(2000)
   $Atacka09 = MouseGetPos()
   MsgBox(0,"Настройка","Выполнено",1)
   IniWrite('Setting.ini','Setting','X',$Atacka09  [0])
   IniWrite('Setting.ini','Setting','Y',$Atacka09  [1])

   MsgBox(0,"Настройка","-")
   Sleep(2000)
   $Exit = MouseGetPos()
   MsgBox(0,"Настройка","Выполнено",1)
   IniWrite('Setting.ini','Setting','X',$Exit  [0])
   IniWrite('Setting.ini','Setting','Y',$Exit  [1])
   
   MsgBox(0,"Настройка","-")
   Sleep(2000)
   $Patty01 = MouseGetPos()
   MsgBox(0,"Настройка","Выполнено",1)
   IniWrite('Setting.ini','Setting','X',$Patty01  [0])
   IniWrite('Setting.ini','Setting','Y',$Patty01  [1])
   
   EndFunc

Func Read()
   $name[0] = IniRead('Setting','Setting','X','0')
   $name[1] = IniRead('Setting','Setting','Y','0')
Return $name
EndFunc

Func Read11()
   $Orb01[0] = IniRead('Setting','Setting','X','0')
   $Orb01[1] = IniRead('Setting','Setting','Y','0')
Return $Orb01
EndFunc

Func Read1()
   $Atacka01[0] = IniRead('Setting','Setting','X','0')
   $Atacka01[1] = IniRead('Setting','Setting','Y','0')
Return $Atacka01
EndFunc

Func Read2()
   $Atacka02[0] = IniRead('Setting','Setting','X','0')
   $Atacka02[1] = IniRead('Setting','Setting','Y','0')
Return $Atacka02
EndFunc

Func Read3()
   $Atacka03[0] = IniRead('Setting','Setting','X','0')
   $Atacka03[1] = IniRead('Setting','Setting','Y','0')
Return $Atacka03
EndFunc

Func Read4()
   $Atacka04[0] = IniRead('Setting','Setting','X','0')
   $Atacka04[1] = IniRead('Setting','Setting','Y','0')
Return $Atacka04
EndFunc

Func Read5()
   $Atacka05[0] = IniRead('Setting','Setting','X','0')
   $Atacka05[1] = IniRead('Setting','Setting','Y','0')
Return $Atacka05
EndFunc

Func Read6()
   $Atacka06[0] = IniRead('Setting','Setting','X','0')
   $Atacka06[1] = IniRead('Setting','Setting','Y','0')
Return $Atacka06
EndFunc

Func Read7()
   $Atacka07[0] = IniRead('Setting','Setting','X','0')
   $Atacka07[1] = IniRead('Setting','Setting','Y','0')
Return $Atacka07
EndFunc

Func Read8()
   $Atacka08[0] = IniRead('Setting','Setting','X','0')
   $Atacka08[1] = IniRead('Setting','Setting','Y','0')
Return $Atacka08
EndFunc

Func Read9()
   $Atacka09[0] = IniRead('Setting','Setting','X','0')
   $Atacka09[1] = IniRead('Setting','Setting','Y','0')
Return $Atacka09
EndFunc

Func Read10()
   $Exit[0] = IniRead('Setting','Setting','X','0')
   $Exit[1] = IniRead('Setting','Setting','Y','0')
Return $Exit
EndFunc

Func Read12()
   $Patty01[0] = IniRead('Setting','Setting','X','0')
   $Patty01[1] = IniRead('Setting','Setting','Y','0')
Return $Patty01
EndFunc


Func _Patty01()
   MouseClick('left',$Patty01[0],$Patty01[1])
   EndFunc

Func ShowInstryction($Title, $File, $X, $Y)
GuiCreate($Title, $X, $Y)
	$Text = FileRead ( $File )
	If @error = 1 Then Return 0
	GUICtrlCreateEdit ( $Text, 0, 0, $X, $Y )
GUISetState()
While 1
	$msg = GUIGetMsg()
	Select
		Case $msg = -3
GUIDelete ( )
ExitLoop
	EndSelect
WEnd
Return 1
EndFunc



Func _Instruction01()
   $ShowInstryction = ShowInstryction("Инструкция", @ScriptDir&"\Instruction.ini", 600, 700)
If $ShowInstryction = 1 Then;					Условие: если возвращаемое значение = 1
MsgBox(48,"","Иструкция успешно закрыта")
Else;										Иначе: если возвращаемое значение НЕ = 1
MsgBox(48,"","Не найден указанный файл, либо произошли ошибки чтения")
EndIF;		
   
   EndFunc





















Func ExitApp()
   Exit
EndFunc






While 1
    $msg = GUIGetMsg()
    
    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
Wend
 
inververs

inververs

AutoIT Гуру
Сообщения
2,135
Репутация
465
В IniWrite вы пишите в файл Setting.ini а читаете IniRead файл Setting, а это 2 разных файла.
 
Автор
K

kolosov

Новичок
Сообщения
137
Репутация
0
Простите, получается у меня вот такая ошибка?
Код: 
Func Read12()
   $Patty01[0] = IniRead('Setting','Setting','X','0')
   $Patty01[1] = IniRead('Setting','Setting','Y','0')
Return $Patty01
EndFunc

А нужно так?
Код: 
Func Read12()
   $Patty01[0] = IniRead('Setting.ini','Setting','X','0')
   $Patty01[1] = IniRead('Setting.ini','Setting','Y','0')
Return $Patty01
EndFunc
 
Вам необходимо войти или зарегистрироваться, чтобы здесь отвечать.
Автор темы Похожие темы Форум Ответы Дата
N Автоматизация нажатия клавиш мышки. Покупка/продажа, поиск услуг 1
G Автоматизация + сообщение в ТГ Стол заказов 0
RAMzor Автоматизация WinSCP через COM. Копирование файлов с индикатором прогресса Общие вопросы по AutoIt 1
G Автоматизация Guard Light Общие вопросы по AutoIt 6
M Автоматизация автологона в программе Покупка/продажа, поиск услуг 2
Похожие темы
Автоматизация нажатия клавиш мышки.
Автоматизация + сообщение в ТГ
Автоматизация WinSCP через COM. Копирование файлов с индикатором прогресса
Автоматизация Guard Light
Автоматизация автологона в программе
Верх