AHK - скопировать в буфер обмена, вставить из буфера обмена - массив - PullRequest
0 голосов
/ 29 мая 2020

Приведенный ниже код копирует выбранные данные из app1 (column1 row1 до column5 row 5) и вставляет их в указанные поля (с помощью координат мыши) в app2. Есть 4 столбца, и каждый столбец имеет 5 строк, кроме столбца 1, который имеет 4 строки. Массив, вероятно, лучший способ выполнить это упражнение по копированию / вставке. В идеале данные из приложения 1 могут быть сначала выгружены в буфер обмена и вставлены в соответствующие поля в приложении 2. Буду признателен за вашу помощь в оптимизации моего текущего исходного кода.

Спасибо

^Home::

;Column1
WinActivate, app1
SendEvent {Click 400, 510, down}{click 500, 510, up}
Send ^c
WinActivate, app2
Click, 800, 545
Send ^v

WinActivate, app1
SendEvent {Click 400, 550, down}{click 500, 550, up}
Send ^c
WinActivate, app2
Click, 800, 585
Send ^v

WinActivate, app1
SendEvent {Click 400, 590, down}{click 500, 590, up}
Send ^c
WinActivate, app2
Click, 800, 625
Send ^v

WinActivate, app1
SendEvent {Click 400, 630, down}{click 500, 630, up}
Send ^c
WinActivate, app2
Click, 800, 665
Send ^v

;Column2
WinActivate, app1
SendEvent {Click 590, 480, down}{click 700, 480, up}
Send ^c
WinActivate, app2
Click, 800, 810
Send ^v

WinActivate, app1
SendEvent {Click 590, 520, down}{click 700, 520, up}
Send ^c
WinActivate, app2
Click, 800, 850
Send ^v

WinActivate, app1
SendEvent {Click 590, 560, down}{click 700, 560, up}
Send ^c
WinActivate, app2
Click, 800, 890
Send ^v

WinActivate, app1
SendEvent {Click 590, 600, down}{click 700, 600, up}
Send ^c
WinActivate, app2
Click, 800, 930
Send ^v

WinActivate, app1
SendEvent {Click 590, 640, down}{click 700, 640, up}
Send ^c
WinActivate, app2
Click, 800, 970
Send ^v

;Column3
WinActivate, app1
SendEvent {Click 780, 480, down}{click 890, 480, up}
Send ^c
WinActivate, app2
Send {PgDn}
Sleep, 500
Click, 800, 380
Send ^v

WinActivate, app1
SendEvent {Click 780, 520, down}{click 890, 520, up}
Send ^c
WinActivate, app2
Click, 800, 420
Send ^v

WinActivate, app1
SendEvent {Click 780, 560, down}{click 890, 560, up}
Send ^c
WinActivate, app2
Click, 800, 460
Send ^v

WinActivate, app1
SendEvent {Click 780, 600, down}{click 890, 600, up}
Send ^c
WinActivate, app2
Click, 800, 500
Send ^v

WinActivate, app1
SendEvent {Click 780, 640, down}{click 890, 640, up}
Send ^c
WinActivate, app2
Click, 800, 540
Send ^v

;Column4
WinActivate, app1
SendEvent {Click 1160, 480, down}{click 1270, 480, up}
Send ^c
WinActivate, app2
Click, 800, 730
Send ^v

WinActivate, app1
SendEvent {Click 1160, 520, down}{click 1270, 520, up}
Send ^c
WinActivate, app2
Click, 800, 770
Send ^v

WinActivate, app1
SendEvent {Click 1160, 560, down}{click 1270, 560, up}
Send ^c
WinActivate, app2
Click, 800, 810
Send ^v

WinActivate, app1
SendEvent {Click 1160, 600, down}{click 1270, 600, up}
Send ^c
WinActivate, app2
Click, 800, 850
Send ^v

WinActivate, app1
SendEvent {Click 1160, 640, down}{click 1270, 640, up}
Send ^c
WinActivate, app2
Click, 800, 890
Send ^v

return
...