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

deeke

  w; c7 E0 ?4 i; b
特点：
1.适合配置双屏幕的电脑使用。
2.在指定软件窗口中双击取词，如 SumatraPDF、Firefox、EditPlus 等等。
3.在任意软件窗口中选中单词或词组，然后后按右边 Ctrl 键取词。
, {) \/ S! ~- w2 `) x, F8 F4.取词后还原剪切板内容、焦点回到原窗口。
5.按 Pause 键暂停或继续。

参考：
. P* ~5 O6 C. F. N! B5 K0 LGoldenDict+Autohotkey-> 高亮即取词[Windows]
超级实用！自制MDict取词小助手！
1 Z* Y; q. i9 b8 [) g" I
& s) U- r% b. s# e# q4 z# o东拼西凑的 AutoHotkey 脚本，错漏不足之处请不吝指正。

1. ~Pause::Suspend
   + ~- g+ w% n" _
2. 
   
3. ~RControl::
   
4. LookUp()
   
5. return
   7 m+ N- S. O  W$ |5 m: Z
6. 
   6 |& Z7 j/ F3 A
7. ~LButton Up::
   " D/ M) |+ P1 |7 y7 j6 w& e) e
8. if (A_TickCount - t) < 350
   
9. {
   
10.         if(IsMySoft())
    1 V8 {7 V( N4 @  ^& s8 {7 U  A
11.                 LookUp()
    
12. }
    , K% o( F( n! n( W
13. t := A_TickCount
    4 Q% ?- S0 C6 |+ n
14. return
    
15. 
    ! t- T7 t( X( ]& ?8 n# @
16. IsMySoft()
    
17. {
    & \- |! p" k$ U
18.         MouseGetPos, ,,win
    
19.         SetTitleMatchMode, 2
    , K, f. F: _# W/ Y# g
20.         if WinActive("SumatraPDF") = win
    : F, x) `7 h! a% r2 ?$ R
21.                 return true
    1 {9 R1 N9 ~! p! h
22.         if WinActive("Firefox") = win
    7 |/ |) b4 D9 c8 y
23.                 return true
    1 N  r. N/ f' ?( b$ F% p/ g) `
24.         if WinActive("EditPlus") = win
    
25.                 return true
    $ _- n, E# x7 w: V2 ^% J
26.         return false
    
27. }
    , L% q! ^% l; [, p( f" p
28. 
    
29. LookUp()
    
30. {
    . g7 j5 |! O% v, n5 b1 l+ E
31.         Sleep, 300
    + t, c5 B! |4 ^  z$ C- e) }
32.         a = %Clipboard%
    
33.         Clipboard =
    
34.         Send ^c
    
35.         Sleep, 300
    * w# ]+ v; p: `  V0 ^( q4 r
36.         b = %Clipboard%
    4 Z  Z* }, Z6 W7 k# m" A! }# v2 ]
37.         if StrLen(b) > 0 and StrLen(b) < 20
    " G& ^/ f8 H! x" c2 v; ]) N: B
38.         {
    
39.                 WinGetActiveTitle, Title
    ; J5 r# h! t/ G7 X1 q" Q
40.                 run "c:\Portable Program\GoldenDict\GoldenDict.exe" "%b%"
    
41.                 Sleep, 800
    7 M- }- p/ x5 ]% y
42.                 IfWinExist, %Title%
    ' j7 Q2 o* i1 _/ H4 Z* o3 l
43.                         WinActivate
    ( P) N4 P- t( Z' M
44.         }
    . I2 ^  ], f3 N0 d& d  ~
45.         Clipboard =
    
46.         if StrLen(a) > 0
    
47.         {
    
48.                 Clipboard = %a%
    0 b, |- X1 E" P/ [% F2 V
49.         }
    + t% h; _# m, o1 b3 O5 d. N
50.         VarSetCapacity(a, 0)
    ( z5 i/ ~- R: {% j8 w
51.         VarSetCapacity(b, 0)
    
52.         return
    / C) a8 P3 u% ~! e
53. }

复制代码

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

deeke

8 ]! T5 l9 r" ~2 {: F1. 删除 移动窗口 的快捷键。
2. 增加 按右边 Ctrl键去查询被选中的词组、短语。
8 k  y) |0 O( b; K$ _  |+ S0 V
, I& @' O# R9 \  _) v6 r  L如果是单屏幕计算机使用，去掉代码区的 39、42、43 那三行即可。

lxchen2001

想法挺棒：
9 T- V; K9 n$ j  b  I# |* o- 可以限制使用GD的应用，并不是想在所有的应用上都使用GD

deeke

. A- w6 V2 H. h' ?  ]; A
0 p6 V' M' R0 p. u7 B1 q增加三行内容

1. #SingleInstance ignore
   
2. ;此脚本的实例一次只能运行一个。
   
3. 
   . R4 }7 F1 ^2 r/ S1 t! d1 X
4. ~Pause::Suspend
   , Q. o* Y  \5 ~2 m6 D
5. ;按下Pause键会挂起脚本，关闭功能。
   - V+ ~) ?* K# |" A8 S  w! }. X
6. 
   , _5 y, h6 s7 e! p# t: y
7. #z::Send #+{Left}
   4 ~. P" P  R/ S! K/ H0 w4 Z
8. ;按下 Win + z 键会把当前窗口移动到另一屏幕上，需Win7以上。

复制代码

xuwen2288502

谢谢

xuwen2288502

谢谢