Что нового

[Автоматизация] автоматизация действий

TiranCool

Новичок
Сообщения
78
Репутация
0
Код:
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>
#include <Array.au3>
#include <StructureConstants.au3>
#include <Date.au3>

$iButt=''

Global $hGui = GUICreate("Killer", 251, 151, -1, -1, -1, $WS_EX_TOPMOST)
Global $4el = GUICtrlCreateInput("",22.5,60,70)
Global $iButt = GUICtrlCreateButton("Go",80,105,91,45)
GUISetState()


While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
		Case $iButt
;~ 			Button1_HighlightOn($iButt)

$Start=0
;~ 			$f=GUICtrlRead($4el)


	EndSwitch
;~ if $Start=0 then
Sleep(5000)
$File=FileOpen("d:\1.TXT")
$File2=FileOpen("d:\2.TXT")
$pos2=FileReadLine($File2,1)
$f=GUICtrlRead($4el)
For $I=1 TO $f
	MsgBox(64,'',$f)
MouseMove(50,1025)
MouseDown("left")
Sleep(500)
MouseUp("left")
Sleep(1000)
MouseMove(112,501)
MouseDown("left")
Sleep(500)
MouseUp("left")
Sleep(1000)
    $pos=FileReadLine($File,$i)
	Send($pos)
	Sleep(1000)
	Send("{ENTER}")
	Sleep(1000)
MouseMove(116,616)
MouseDown("left")
Sleep(500)
MouseUp("left")
Sleep(1000)
MouseDown("right")
Sleep(500)
MouseUp("right")
Sleep(1000)
MouseMove(201,729)
MouseDown("left")
Sleep(500)
MouseUp("left")
Sleep(1000)
      Send($pos2)
   Sleep(1000)
   Send("{ENTER}")
   Sleep(1000)
   MouseMove(802,662)
MouseDown("left")
Sleep(500)
MouseUp("left")
$Start=1
Sleep(1000)
Next
;~ 0EndIf
WEnd
]
Хотелось бы сделать поле ввода,гд будет указываться количество повторений,но так же,чтобы была кнопка остановки действий(к примеру Esc),поле где ведется отчет количества повторений(отображение количества повторений),но так же,чтобы $File=FileOpen("d:\1.TXT") читался каждый раз с последующей строки,помогите пожалуйста :stars: :IL_AutoIt_1:
 
Автор
T

TiranCool

Новичок
Сообщения
78
Репутация
0
Ребят помогите пожалуйста,я не мастер в этом деле(((,но хочу научиться
 

InnI

AutoIT Гуру
Сообщения
4,912
Репутация
1,429
TiranCool
Чему можно научиться в разделе "Стол заказов"? Копипастить готовые скрипты? ;D
Код:
#include <GUIConstants.au3>

Global $Stop, $Line, $Text = FileReadToArray("d:\1.TXT")
If @error Then Exit

Global $hGui = GUICreate("Killer", 251, 151, -1, -1, -1, $WS_EX_TOPMOST)
Global $4el = GUICtrlCreateInput("", 22, 5, 60, 20)
Global $iLbl = GUICtrlCreateLabel("", 122, 5, 60, 20)
Global $iButt = GUICtrlCreateButton("Go", 80, 105, 91, 45)
GUISetState()

While 1
  Switch GUIGetMsg()
    Case $GUI_EVENT_CLOSE
      Exit
    Case $iButt
      Start()
  EndSwitch
WEnd

Func Start()
  HotKeySet("{ESC}", "Stop")
  $Opt1 = Opt("MouseClickDelay", 1000)
  $Opt2 = Opt("MouseClickDownDelay", 500)
  $Stop = 0
  ; Sleep(5000)
  $f = GUICtrlRead($4el)
  For $i = 1 To $f
    GUICtrlSetData($iLbl, $i & "/" & $f)
    MouseClick("left", 50, 1025)
    MouseClick("left", 112, 501)
    Send($Text[$Line])
    $Line += 1
    If $Line = UBound($Text) Then $Line = 0
    Sleep(1000)
    Send("{ENTER}")
    Sleep(1000)
    MouseClick("left", 116, 616)
    MouseClick("right")
    MouseClick("left", 201, 729)
    Send(FileReadLine("d:\2.TXT", 1))
    Sleep(1000)
    Send("{ENTER}")
    Sleep(1000)
    MouseClick("left", 802, 662)
    If $Stop Then ExitLoop
  Next
  Opt("MouseClickDelay", $Opt1)
  Opt("MouseClickDownDelay", $Opt2)
  GUICtrlSetData($iLbl, "готово")
  HotKeySet("{ESC}")
EndFunc

Func Stop()
  $Stop = 1
  GUICtrlSetData($iLbl, "ждите...")
EndFunc
 
Автор
T

TiranCool

Новичок
Сообщения
78
Репутация
0
Все круто,но не останавливается(((
 
Автор
T

TiranCool

Новичок
Сообщения
78
Репутация
0
Даа,но после полного завершения цикла,если так,то останавливается)))),спасибо!!!
 

InnI

AutoIT Гуру
Сообщения
4,912
Репутация
1,429
TiranCool
Надпись появляется в ближайший промежуток между кликами и слипами. А остановка - в конце. Просто новый цикл не начинается, но уже начатый будет пройден полностью. В принципе, для этого и надпись :smile:
 
Верх