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

deeke

特点：
1.适合配置双屏幕的电脑使用。
2.在指定软件窗口中双击取词，如 SumatraPDF、Firefox、EditPlus 等等。
3.在任意软件窗口中选中单词或词组，然后后按右边 Ctrl 键取词。
4.取词后还原剪切板内容、焦点回到原窗口。
5.按 Pause 键暂停或继续。
# z* L! N# G/ r+ N5 a! V. o$ J
参考：
GoldenDict+Autohotkey-> 高亮即取词[Windows]
超级实用！自制MDict取词小助手！
: }$ \% Y* T5 E. T/ i5 C' l
东拼西凑的 AutoHotkey 脚本，错漏不足之处请不吝指正。

1. ~Pause::Suspend
   $ g6 J# b* o0 J$ }5 Z% C
2. 
   
3. ~RControl::
   - f* [" U) I8 B
4. LookUp()
   8 A2 e4 a0 W/ C& ^' T) H
5. return
   , x" `9 |- f6 z' ^5 S1 f  x
6. 
   1 v& v) k  y2 T8 Z  k
7. ~LButton Up::
   # {. |% c' ~! l( Y
8. if (A_TickCount - t) < 350
   & j( T: N5 w' [5 A  c8 T% Y1 T
9. {
   0 f) m# z0 H  o. \$ b3 h
10.         if(IsMySoft())
      o- z( L$ _$ j/ q& @  p( z6 R. t! X4 Q
11.                 LookUp()
    
12. }
    
13. t := A_TickCount
    % \; Y$ C3 _, k8 Z9 \* {
14. return
    
15. 
    6 r4 H" S; G+ A
16. IsMySoft()
    
17. {
    - z$ P2 [* ?4 U* J& m+ h8 o
18.         MouseGetPos, ,,win
    
19.         SetTitleMatchMode, 2
    
20.         if WinActive("SumatraPDF") = win
    
21.                 return true
    
22.         if WinActive("Firefox") = win
    
23.                 return true
    % g: q. g9 E* x
24.         if WinActive("EditPlus") = win
    7 N2 ]9 b/ X" Q2 G' t: G
25.                 return true
    
26.         return false
    7 u; m3 Q4 v; A) G9 F% F
27. }
    6 Y6 ~0 U! p  T- P* ], b
28. 
    
29. LookUp()
    
30. {
    ( m6 T+ d& _  k
31.         Sleep, 300
    
32.         a = %Clipboard%
    0 y7 o. y5 f1 _7 R. o& t9 [
33.         Clipboard =
    8 Q$ x9 m& o$ S8 e3 }% x
34.         Send ^c
    
35.         Sleep, 300
    2 Y5 L6 x2 k# T" f3 r/ `' b
36.         b = %Clipboard%
    9 A; b9 b; K+ c$ Y
37.         if StrLen(b) > 0 and StrLen(b) < 20
    
38.         {
    4 [/ q* t$ C9 e: C; n: t' ^
39.                 WinGetActiveTitle, Title
    6 n5 b6 L, O# w
40.                 run "c:\Portable Program\GoldenDict\GoldenDict.exe" "%b%"
    + G. m- {" E2 E; ^
41.                 Sleep, 800
    
42.                 IfWinExist, %Title%
    ; [( X) n& C) m
43.                         WinActivate
    5 n9 J9 \! n7 G( b0 _8 [; }
44.         }
    
45.         Clipboard =
    
46.         if StrLen(a) > 0
    4 G9 Q' y( M% J6 X3 A
47.         {
    
48.                 Clipboard = %a%
    % V# Q3 V$ h3 w3 n; q1 V& @
49.         }
    
50.         VarSetCapacity(a, 0)
    ) s( R) [* e; V5 k, w* s
51.         VarSetCapacity(b, 0)
    
52.         return
    
53. }

复制代码

注意：修改成你电脑上的 GoldenDict.exe 路径。

deeke

  T# |$ L  w8 v0 B$ ^3 C
1. 删除 移动窗口 的快捷键。
2. 增加 按右边 Ctrl键去查询被选中的词组、短语。

0 g4 H0 H* R) k4 s: D如果是单屏幕计算机使用，去掉代码区的 39、42、43 那三行即可。

lxchen2001

想法挺棒：
" K6 V( M9 Q, Z. i- 可以限制使用GD的应用，并不是想在所有的应用上都使用GD

deeke

9 ^4 Q  C2 W7 Q* n3 R, D5 ?+ x
  }9 A( @, F( ?$ ]增加三行内容

1. #SingleInstance ignore
   * }& M7 r; J8 `5 I8 w6 F
2. ;此脚本的实例一次只能运行一个。
   # E! N+ E7 P& c& Z0 Z* D
3. 
   
4. ~Pause::Suspend
   , K' X1 U) _( j* y( v
5. ;按下Pause键会挂起脚本，关闭功能。
   
6. 
   6 ^3 A" C5 ^& y3 f; v" b
7. #z::Send #+{Left}
   6 b1 e8 D8 d6 r# K8 o' i
8. ;按下 Win + z 键会把当前窗口移动到另一屏幕上，需Win7以上。

复制代码

xuwen2288502

谢谢

xuwen2288502

谢谢