#include <Misc.au3>
#include <Excel.au3>
;HotKeySet('{1}'1'_exit') ; Завершим скрипт на 1
Global $Paused
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")
HotKeySet("+!d", "ShowMessage") ; Shift-Alt-d для вызова сообщения
;MsgBox(4096, 'Сообщение', 'Нажмите горячую клавишу Pause/Break,' & @CRLF & 'чтобы увидеть как это работает.')
#Region Опрос
;~ MsgBox(0,'Настройка','Наведите мышь на окно Экселя/блокнота')
;~ Do
;~ $pos2 = MouseGetPos()
;~ ToolTip('Пробел для приминения ' & $pos2[0] & '.' & $pos2[1])
;~ Until _IsPressed(20)
;~ MsgBox(0,'Настройка','Наведите мышь на окно Экселя/блокнота2')
;~ Do
;~ $pos3 = MouseGetPos()
;~ ToolTip('Пробел для приминения ' & $pos3[0] & '.' & $pos3[1])
;~ Until _IsPressed(20)
MsgBox(0,'Настройка','Наведите мышь на место для нового аддона')
Do
$pos = MouseGetPos()
ToolTip('Пробел для приминения ' & $pos[0] & '.' & $pos[1])
Until _IsPressed(20)
#EndRegion Опрос
ToolTip('')
For $i = 1 To 6 Step 1
MouseClick('right',$pos[0],$pos[1])
send ("{DOWN}")
send ("{DOWN}")
send ("{DOWN}")
send ("{DOWN}")
send ("{DOWN}")
send ("{ENTER}")
MouseClick('left',$pos[0],$pos[1])
MouseClick('right',744,572)
MouseClick('left',845,627)
MouseClick ( "left", 770, 582,2)
MouseClick ( "left", 499,1500) ;выбор экселя или блокнота
;MouseClick ( "left", $pos2[0],$pos2[1]) ;выбор экселя или блокнота
;MouseClick ( "left", 472, 1498) ;выбор экселя или блокнота
;MouseClick ( "left", 1980, 1496) ;выбор экселя или блокнота
;MouseClick ( "left", 480, 655,4)
MouseClick ( "left", 1645, 947,2); !!!нужно указать в блокноте координаты!!!
send('^x')
send('{DEL}')
;MouseClick ( "left", 2512, 13) ;свернул
MouseClick ( "left", 780, 580,2)
send('^v')
MouseClick ( "left", 892, 613) ;replace all
send ("{ENTER}")
MouseClick ( "left", 768, 786) ;Close at the end
MouseClick ( "left", 940, 519) ;Close replace
MouseClick ( "left", 532, 769) ;Close endend
MouseClick ( "left", 368,1500) ;выбор экселя или блокнота
;MouseClick ( "left", $pos3[0],$pos3[1]) ;выбор экселя или блокнота
MouseClickDrag("left", 716, 943, 425, 943) ; !!!нужно указать в блокноте координаты!!!
send('^x')
send('{DEL}')
sleep(700)
MouseClick('left',200+$pos[0],$pos[1]+15 ,7) ;на валуе едит
sleep(500)
send('^v')
sleep(500)
send ("{ENTER}")
MouseClick ( "left", 368,1500) ;выбор экселя или блокнота
;MouseClick ( "left", $pos3[0],$pos3[1]) ;выбор экселя или блокнота
MouseClickDrag("left", 716, 943, 425, 943) ; !!!нужно указать в блокноте координаты, те же что и выше !!!
send('^x')
send('{DEL}')
sleep(500)
MouseClick('left',200+$pos[0],$pos[1]+30 ,7) ;на чанелл едит
send('^v')
send ("{ENTER}")
sleep(500)
MouseClickDrag("left", $pos[0]-10, $pos[1]-10, $pos[0]+785, $pos[0]+470) ; выделяем новый аддном
send('^c')
sleep(500)
MouseClick ( "left", 2543,1013, 10) ;сдвигаем окно вниз
;MouseClick('left',$pos2[0],$pos2[1])
;MouseClick ( "left", $pos3[0],$pos3[1],2)
;Msgbox(0, " ","x: "&$pos[0]&' y: '&$pos[1])
Next
Func TogglePause()
$Paused = Not $Paused
While $Paused
Sleep(100)
ToolTip('Скрипт приостановлен')
WEnd
ToolTip("")
EndFunc
Func Terminate()
Exit 0
EndFunc
Func ShowMessage()
MsgBox(4096, "", "Это сообщение.")
EndFunc