适合双屏幕的双击取词 Win+AHK+GD

deeke

- A) Z2 U+ @2 Q* P
特点：
6 X6 h! o; w- x9 _1.适合配置双屏幕的电脑使用。
6 |/ Z4 T* x+ L7 B  J2.在指定软件窗口中双击取词，如 SumatraPDF、Firefox、EditPlus 等等。
3.在任意软件窗口中选中单词或词组，然后后按右边 Ctrl 键取词。
# o) s, }0 }( ~/ U" c! Z7 ~4.取词后还原剪切板内容、焦点回到原窗口。
5.按 Pause 键暂停或继续。

- e' S; \+ Z% w3 K9 I6 m* m参考：
GoldenDict+Autohotkey-> 高亮即取词[Windows]
3 H. B5 a0 v5 P7 C6 `; F8 n% E超级实用！自制MDict取词小助手！
; p' ^# N$ P  o) l- U
东拼西凑的 AutoHotkey 脚本，错漏不足之处请不吝指正。
$ Y; a# t$ Z; H# ]

1. ~Pause::Suspend
   8 m2 z) M' M  A/ c. F) U
2. 
   
3. ~RControl::
   
4. LookUp()
   
5. return
   
6. 
   * N; u  Y1 h7 R: t9 f
7. ~LButton Up::
   
8. if (A_TickCount - t) < 350
   ; y1 y$ y8 t5 k5 \  j
9. {
   
10.         if(IsMySoft())
    
11.                 LookUp()
    , A+ ?  C. l( m  q
12. }
    
13. t := A_TickCount
    ' d8 b) Z; d5 V7 u- ^; B* T3 T2 I
14. return
    
15. 
    , {9 X7 |3 v7 ?/ V: O) u$ k) Y1 c, y
16. IsMySoft()
    $ {$ K- ~( O2 p; t: I
17. {
    
18.         MouseGetPos, ,,win
    
19.         SetTitleMatchMode, 2
    3 }$ ^: P" I& C6 \% s, B
20.         if WinActive("SumatraPDF") = win
    0 x+ a# J$ T7 b" O: x
21.                 return true
    % G1 I' ~0 Q3 S2 B$ A1 X
22.         if WinActive("Firefox") = win
    
23.                 return true
    5 L& M% S2 P8 R( W# T+ Y. a
24.         if WinActive("EditPlus") = win
    1 |* J( ^! ^7 y+ W) S0 n; W1 M
25.                 return true
    8 A9 c$ o; H5 E0 k' r3 Q$ x! U- X
26.         return false
    
27. }
    
28. 
    $ b; h; }$ r. J! ^. R* E1 {+ `
29. LookUp()
    % R/ S* J4 u) v0 T9 |$ \0 g# D7 l4 b8 b
30. {
    
31.         Sleep, 300
    & x, _, R) o8 B' K' U" z9 ]
32.         a = %Clipboard%
    ' v5 j, ^/ i+ g4 x
33.         Clipboard =
    ! n$ P, }9 Y" A. U& ?9 g9 J  p5 f
34.         Send ^c
    
35.         Sleep, 300
    2 S+ e6 d- ?* C$ j* G6 ?
36.         b = %Clipboard%
    
37.         if StrLen(b) > 0 and StrLen(b) < 20
    / G: O; X5 b6 l. o6 u2 S) J: M+ G- Q( ^
38.         {
    6 ]0 d+ r% R6 L! W! g
39.                 WinGetActiveTitle, Title
    ! p+ |8 Q" t+ ~( `/ Q' l
40.                 run "c:\Portable Program\GoldenDict\GoldenDict.exe" "%b%"
    ; X! J% T8 w, n
41.                 Sleep, 800
    % M6 ]+ d/ a3 M3 z; _. T4 @# Y8 L
42.                 IfWinExist, %Title%
    
43.                         WinActivate
    
44.         }
    & _; C0 f& j. S
45.         Clipboard =
    
46.         if StrLen(a) > 0
    ; d$ F* L1 ?* D6 u, J- j
47.         {
    # H, l0 O# I! {2 ^" M* R
48.                 Clipboard = %a%
    
49.         }
    ' J# Z3 k$ h, W( E
50.         VarSetCapacity(a, 0)
    
51.         VarSetCapacity(b, 0)
    ) {. ~8 y' o- g' {" w; `
52.         return
    
53. }

复制代码

! n' L3 J" n0 a7 o) r  b注意：修改成你电脑上的 GoldenDict.exe 路径。

deeke

6 J9 @' e  s' I# f* Q$ x
1. 删除 移动窗口 的快捷键。
2. 增加 按右边 Ctrl键去查询被选中的词组、短语。

! T: e+ O% j, @如果是单屏幕计算机使用，去掉代码区的 39、42、43 那三行即可。

lxchen2001

想法挺棒：
' d* C! _( J, \% O- b& a, k" r- 可以限制使用GD的应用，并不是想在所有的应用上都使用GD
. ?) P* |  R& H

deeke

8 g* s1 G7 P- p: ?+ o
增加三行内容

1. #SingleInstance ignore
   6 N- P* s8 c6 D& {" K4 H$ Q
2. ;此脚本的实例一次只能运行一个。
   
3. 
   : h- |8 ^. ~! b. I. Q* L
4. ~Pause::Suspend
   
5. ;按下Pause键会挂起脚本，关闭功能。
   , q3 F# i. H9 h& U8 r
6. 
   
7. #z::Send #+{Left}
   
8. ;按下 Win + z 键会把当前窗口移动到另一屏幕上，需Win7以上。

复制代码

xuwen2288502

谢谢

xuwen2288502

谢谢