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

deeke

  w, ~; k7 U, q* r) i; B4 r) n特点：
1.适合配置双屏幕的电脑使用。
0 y! z5 n% p( f1 ?3 b2.在指定软件窗口中双击取词，如 SumatraPDF、Firefox、EditPlus 等等。
" {, Z* c* s$ z3.在任意软件窗口中选中单词或词组，然后后按右边 Ctrl 键取词。
9 m% y2 ^; Q( E* ?; g9 I( z4.取词后还原剪切板内容、焦点回到原窗口。
- x- D8 N) D6 J: {+ H: r$ N5.按 Pause 键暂停或继续。
3 _/ q$ H! a/ [% l( Z& @
6 L4 Z" r! s' P5 V" P) t- S; `参考：
# P% W+ n* }2 P3 s" m0 qGoldenDict+Autohotkey-> 高亮即取词[Windows]
超级实用！自制MDict取词小助手！
$ t% p: B8 E4 Q. B
- }' H. u# r* k3 x4 p/ S$ [/ e东拼西凑的 AutoHotkey 脚本，错漏不足之处请不吝指正。

1. ~Pause::Suspend
   
2. 
   * p7 N" s% f0 E) k( V6 D7 K
3. ~RControl::
   
4. LookUp()
   " j3 m8 f% a" }5 l5 H
5. return
   
6. 
   
7. ~LButton Up::
   
8. if (A_TickCount - t) < 350
   0 I; }1 F* }; b
9. {
   ; U/ ?% f( P( u
10.         if(IsMySoft())
    4 H+ l5 v5 D# g: C( I3 M9 p2 \
11.                 LookUp()
    
12. }
    6 L7 P7 z# I* T: S6 e
13. t := A_TickCount
    
14. return
    + X3 u' l, _4 z0 M5 s: G* T
15. 
    0 v; C  X9 y2 |0 y7 }3 R9 t/ [# v
16. IsMySoft()
    ) i; T* Z; K; G) L# c8 i( q
17. {
    % `% |$ Y, N% Q5 z, z3 _
18.         MouseGetPos, ,,win
    
19.         SetTitleMatchMode, 2
    
20.         if WinActive("SumatraPDF") = win
    
21.                 return true
    - c& g5 B1 ]( W
22.         if WinActive("Firefox") = win
    
23.                 return true
    ' l6 B: G% l* {' X1 O/ J
24.         if WinActive("EditPlus") = win
    + i- A5 }6 O) w
25.                 return true
    
26.         return false
    
27. }
    
28. 
    % S* Z: D  ]/ z% ]$ k% t
29. LookUp()
    8 R; _+ s1 b2 Z+ g) W
30. {
    % z5 V3 K+ z3 w/ e1 E; X1 i
31.         Sleep, 300
    
32.         a = %Clipboard%
    
33.         Clipboard =
    $ f) z0 n. G9 j
34.         Send ^c
    ' |! V4 o3 D' R: ?8 h
35.         Sleep, 300
    # I. @: A6 R& M+ E' B9 C% t; [* G- E
36.         b = %Clipboard%
    
37.         if StrLen(b) > 0 and StrLen(b) < 20
    7 a/ |, t+ o! i5 C$ I4 j4 |2 r& ^! Y2 D
38.         {
    
39.                 WinGetActiveTitle, Title
    " T1 d5 y* F( E
40.                 run "c:\Portable Program\GoldenDict\GoldenDict.exe" "%b%"
    
41.                 Sleep, 800
    8 u1 X0 ]& X8 j
42.                 IfWinExist, %Title%
    & }4 Q: O0 z5 V5 @0 V
43.                         WinActivate
    & Q8 E" z- z) C5 ]0 j* H* o' N
44.         }
    / V& H3 a2 k6 Q+ s" K
45.         Clipboard =
    # i+ X! ^' f/ ^/ I9 V
46.         if StrLen(a) > 0
    
47.         {
    7 I9 f" X/ E2 p7 p
48.                 Clipboard = %a%
    
49.         }
    
50.         VarSetCapacity(a, 0)
    
51.         VarSetCapacity(b, 0)
    
52.         return
    
53. }

复制代码

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

deeke

1. 删除 移动窗口 的快捷键。
2. 增加 按右边 Ctrl键去查询被选中的词组、短语。

& ^( ]7 {$ @  d- w如果是单屏幕计算机使用，去掉代码区的 39、42、43 那三行即可。

lxchen2001

想法挺棒：
+ J" ~, d8 |, A4 _6 z8 X- 可以限制使用GD的应用，并不是想在所有的应用上都使用GD

deeke

增加三行内容
5 L. M0 i* {5 {* \& Q, U

1. #SingleInstance ignore
   $ {- O  V  l7 D) x- n
2. ;此脚本的实例一次只能运行一个。
   , l# V8 p( i# s/ T8 J6 J% {6 l
3. 
   5 g. r% f6 M5 z* [; ~
4. ~Pause::Suspend
   0 Z& l4 x, D+ m' r
5. ;按下Pause键会挂起脚本，关闭功能。
   + s" o8 K8 ]* W/ X7 c( l
6. 
   , p0 U$ ~) p7 x
7. #z::Send #+{Left}
   
8. ;按下 Win + z 键会把当前窗口移动到另一屏幕上，需Win7以上。

复制代码

xuwen2288502

谢谢

xuwen2288502

谢谢