Bdrag.ahk
1.22 KB
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
;######################## CÓPIA AUTOMÁTICA ###########################
;# Bruno Santos #
;# brunosantos@lavid.ufpb.br #
;#####################################################################
;Mantem apenas uma versão executando
#SingleInstance,Reload
;Não permite o script entrar em modo sleep
SetBatchLines,-1
CoordMode,Mouse
;Comando CTRL + a
~^a::
Gosub,COPIAR
return
;Comando SHIFT + click down
~+LButton Up::
Gosub,COPIAR
Return
;Click down para pegar coordenadas
~LButton::
MouseGetPos,coordx_old,coordy_old,winid_old
Return
;Click up para copiar seleção para área de transferência
~LButton Up::
MouseGetPos,coordx,coordy,winid
if ((coordx < coordx_old ) or (coordx > coordx_old ) or (coordy < coordy_old) or (coordy > coordy_old ))
{
Gosub,COPIAR
}
ticks = %A_TickCount%
difticks = %ticks%
EnvSub,difticks,%oldticks%
if (difticks < 400)
{
Gosub,COPIAR
}
oldticks=%ticks%
Return
;Rotina de cópia
COPIAR:
clip=%Clipboardall%
Clipboard=
Send,^c
if Clipboard=
Clipboard=%clip%
Return
EXIT:
ExitApp