Mdict 软件是否能支持 鼠标取词 划词?

fanrongqi

如题，我找了选项，好像是没有，我感觉需要在看文档的时候，能够屏幕鼠标划词，这样方便点吧。
, P9 j/ k- |" v# @- k
% S* K' H2 v& ^1 t1 G; L- fgolddict软件好像也不可以直接显示  翻译框，需要按键盘才行。可有一劳永逸的解决办法。

gnoweb

. C0 E& V* s) h4 `$ U目前 Windows 下可以通过 Autoit V3 脚本来实现剪贴板取词（鼠标划词选择，复制到剪贴板），脚本后台监测，调用 MDict PC。
8 @) a0 g- X- `9 P5 Q" Y同样这种方法也适用于 GoldenDict PC 无法取词的程序，比如 Chrome，只需要改动一下程序的名称及路径信息，当然没有 GoldenDict PC 自带的即点即译方便，仅作权宜之计。
4 G. ~  F3 t7 G8 C) H% K
# ^  B  U( z  ^" G7 W  \0 h

1. #include <StringConstants.au3>
   
2. #include <MsgBoxConstants.au3>
   ) S( m0 Q, K$ V' s3 S0 s
3. 
   
4. Func get_word_from_clip()
   
5.    Local $clip_string = ClipGet()
   , z  a* B9 [$ ^
6.    ;MsgBox("", "剪贴板文本", $clip_string)
   
7.    Return $clip_string
   " P3 ?. K" d  G& X# c
8. EndFunc
   
9. 
   
10. Func look_up_definition($word)
    4 w% w' x2 k  J9 |5 b7 x+ T
11.    If Not ProcessExists("MDict.exe") Then
    0 k( [" a! e& y( F7 f; F4 c8 Z
12.           Run("E:\Software\MDictPC\MDict.exe")                ; 此处改成你自己的 MDict 实际安装目录
      F4 T2 r4 g. y: n
13.           Sleep(100)
    # L: ^8 a6 K& ?* T
14.    EndIf
    
15. 
    1 j9 f1 ~; g9 ^; a; P6 G8 K
16.    WinActivate("MDict")
    
17.    Send("{ENTER}")
    
18.    ControlSend("MDict", "", 1000, $word)
    
19.    Send("{ENTER}")
    # F1 q, ]( c! k
20. EndFunc
    ; ]/ L% ]0 X* p% }! ~% T9 L
21. 
    
22. Func pretreatment($str)
    
23.    ; 对字符串进行预处理：去除左右空白字符、转小写、判断是否全部为字符且长度小于指定值
    
24.    ; 默认不对带空格的词组取词，不对汉字取词
    
25.    ; 符合上述条件返回新的字符串，否则返回 0
    
26.    $str = StringStripWS($str, $STR_STRIPLEADING + $STR_STRIPTRAILING)
    
27.    $str = StringLower($str)
    0 D% M  C" o# U' J6 v8 j/ v
28.    If StringLen($str) < 20 And StringIsASCII($str) And StringIsAlpha($str) And Not StringInStr($str, @CR) Then
    
29.           ;MsgBox($MB_SYSTEMMODAL, "20", $str)
    4 ~: x! g3 |# o4 }
30.           Return $str
    
31.    ElseIf StringLen($str) < 4 And StringIsAlpha($str) And Not StringInStr($str, @CR) Then
    3 z- Y  I9 f" W5 v0 x% V
32.           ;MsgBox($MB_SYSTEMMODAL, "4", $str)
    
33.           Return $str
    
34.    Else
    
35.           Return Null
    / `" Y; D) Q: ^
36.    EndIf
    
37. EndFunc
    9 s* Q$ y* ^$ C% u* ^. Y2 G
38. 
    
39. 
    & P7 ], w  r" ?
40. Func my_exit()
    . r4 G  a) P; Z. O9 }% F
41.    Exit
    2 f; C$ {- C: w- t
42. EndFunc
      I9 ^; b3 K1 N% Y/ x  j
43. 
    ! r- J& U$ ^; r  J" c0 S6 @
44. HotKeySet("^!l", "my_exit"); ^ Ctrl    ! Alt        l
    
45. 
    
46. Local $preview = pretreatment(get_word_from_clip())
    / C& j  F; u# D
47. Local $current
    
48. 
    % ]4 h5 X, O# v, T, r' S8 U: i4 X
49. While True
    
50.    $current = pretreatment(get_word_from_clip())
    ! e0 O- ~& H* J7 R: w; U1 j% X
51.    if $current == $preview Then
    ; h( M4 y! B) |3 z0 n7 ]0 w1 t
52.           Sleep(1000)
    
53.           ContinueLoop
    
54.    ElseIf $current <> Null Then
    
55.           $preview = $current
    ; o9 F! s& Y" S; i- y  E/ y4 T
56.           look_up_definition($current)
    + A5 b1 Y. ]1 d3 r, S; W0 C. @
57.           Sleep(1000)
    ! X  C+ X( a) L# r
58.    ElseIf $current == Null Then        ; 防止循环空耗 CPU
    
59.           Sleep(1000)
    ) d8 g! M! @2 _  E" U
60.    EndIf
    
61. WEnd

复制代码

- q7 |; l" Z: q7 A7 P

dingjayi

是可以的！而且本坛就有解决方案及工具下载！你用论坛搜索即可得。

喬治兄

gnoweb 发表于 2016-2-15 23:08
目前 Windows 下可以通过 Autoit V3 脚本来实现剪贴板取词（鼠标划词选择，复制到剪贴板），脚本后台监测， ...

' w& L- a( P* x& U" zgnoweb兄:
能否提供此代碼檔案
$ z# w, X7 B, M& n5 Y1 G复制代码時太多亂碼

謝謝

喬治兄

gnoweb 发表于 2016-2-15 23:08
7 P. G$ n& @  B. h! d8 ]; U: P目前 Windows 下可以通过 Autoit V3 脚本来实现剪贴板取词（鼠标划词选择，复制到剪贴板），脚本后台监测， ...

Thanks a lot

喬治兄

; ^4 U" s% c* i8 q

gnoweb 发表于 2016-2-15 23:08
/ j9 c$ _! S: z. B' E% n+ ~目前 Windows 下可以通过 Autoit V3 脚本来实现剪贴板取词（鼠标划词选择，复制到剪贴板），脚本后台监测， ...

9 V: T* @+ l% A; A
gnoweb兄:
你好,小弟試了你的MDict_Enhance.au3 效果蠻好的
但是否能再修改一下,只要拷貝鼠標所選的內容直接傳送到 mdict 就好了
' ?$ z8 p2 V( D1 Q, {9 S$ Z因 mdict  本身已有 Stripkey 處理,且目前無法查片語
- A! G- b& @6 q# u但中文也可拷貝
直接讓mdict 判斷是否有此字條
2 q) c) r, r8 F$ v8 V/ ~0 O
另外改成GoldenDict 是無法執行的
是否是需調用其GoldenDict 內的dll來達成
能否麻煩gnoweb兄再寫一個GoldenDict的取詞

辛苦你了

謝謝
1 Y2 L) d3 Q7 K6 Q

gnoweb

喬治兄 发表于 2016-2-20 07:08
gnoweb兄:
8 e" m$ ~: n6 [% s0 }$ Z你好,小弟試了你的MDict_Enhance.au3 效果蠻好的
但是否能再修改一下,只要拷貝鼠標所選的 ...

2 X5 N" O& }9 k2 }9 i5 a8 h只需要简单改动 look_up_definition 函数即可使用 GD：
8 O1 i& Q' o) i' k' K5 Z

1. Func look_up_definition($word)
   
2.         Run("E:\Software\GoldenDict\GoldenDict.exe " & $word)
   6 {) m) L/ Z; y- f
3.         ; ！！！这里记得改成你自己的安装路径！！！
   2 a3 g# y4 |. p4 `% v1 r. z' O- C
4. EndFunc

复制代码

, n2 g. S! g+ f; D$ D$ i5 Z5 H
% _  p( ]7 p& v2 q
针对你提出的需要，只需改动 pretreatment 函数即可：

1. Func pretreatment($str)
   & A+ V- l4 e. _; L9 I7 W
2.    $str = StringStripWS($str, $STR_STRIPLEADING + $STR_STRIPTRAILING)
   
3.    If StringLen($str) < 50 And Not StringInStr($str, ' ') And Not StringInStr($str, @CR) Then
   
4.           Return $str
   
5.    ElseIf StringLen($str) < 100 And StringInStr($str, ' ') And Not StringInStr($str, @CR) Then
   ( D( {% e. [1 A4 n- q/ l
6.       Return '"' & $str & '"'
   
7.    Else
   
8.           Return Null
   
9.    EndIf
   9 A. E' O1 C% ], A: M
10. EndFunc

复制代码

代码可以参考这里：
! {( T0 e- g) v4 A& }
2 q& u. ]- _7 R" H( M# k# ?

喬治兄

gnoweb 发表于 2016-2-20 11:04
只需要简单改动 look_up_definition 函数即可使用 GD：

3 h3 W! H: ]2 W- O: ?( m, e" Vgnoweb 兄:

" F3 u7 d7 n( A5 w9 e2 V) S謝謝你,用起來蠻順暢的也都沒什問題

Thanks again

fanrongqi

gnoweb 发表于 2016-2-15 23:08
  f/ \' ]* V) O8 K+ [1 N/ {" p目前 Windows 下可以通过 Autoit V3 脚本来实现剪贴板取词（鼠标划词选择，复制到剪贴板），脚本后台监测， ...

; X6 Z" M8 m3 e! @: z谢谢 。。。如果这个方便么就好了，我先试一下，差点想用钩子的方式了，

cidianaihao

要是mac 的goldendict也可以实现就好了

fanrongqi

gnoweb 发表于 2016-2-15 23:08
6 O1 f" p+ R* b4 D7 Z目前 Windows 下可以通过 Autoit V3 脚本来实现剪贴板取词（鼠标划词选择，复制到剪贴板），脚本后台监测， ...

你好，我安装了 Autoit V3  ，编译你的 脚本，好像需要 按ctrl  c才可以读取到单词，鼠标划词是哪个函数实现的功能啊。。而且，发送到mdict不成功，  
' y( B. I3 }; _; w- H) D ;MsgBox("","ffsa",$word)这里显示的$word已经是剪切板上的单词了，但是  mdict也没有翻译。mdict已经运行起来。mdict已经设置 监视剪切板。
+ X; A; J, x8 l& i% U' u8 W   ControlSend("MDict", "", 10, $word)

gnoweb

fanrongqi 发表于 2016-2-24 16:49
' A$ R( y1 E$ p$ g, H你好，我安装了 Autoit V3  ，编译你的 脚本，好像需要 按ctrl  c才可以读取到单词，鼠标划词是哪个函数 ...

7 R; k. L- h& K3 {$ @
4 d4 E" Z% F1 L/ q( |这个脚本是用鼠标选择文本，必须 Ctrl + C 或者鼠标右键复制到剪贴板后，才可以被传送到 Mdict 的。

如果用鼠标划取单词就被检测到，那你要自己去读 AutoIt v3 的文档 >> Function Reference >> Mouse Management >>

( B* C( a% C! N, A: D6 B  r8 W
* I2 r% h+ F& m2 m) D" C( P
+ U1 {$ Z- J1 A3 s. J# R7 U看看有没有可能实现，目前我暂时想不出来怎么用 AutoIt v3 提供的函数实现。

————————————————————————————————————————————————
* z& B  P" R3 v8 l$ W& G
另外，你把 ControlSend 函数里面的 controlID 从 1000 改成了 10，所以无法翻译：
, {' \( [9 |4 p9 L7 W

1. ControlSend("MDict", "", 10, $word)

复制代码

, X6 ], \* g8 |+ d; p
7 c" w- O# g5 @7 a8 a( ]$ k那个 1000 的意思是控件 ID 的代号，表示取词栏，就是要把单词传送给这个控件（黄色处）：
+ z! i8 F; L9 |& A" j; Q


3 p6 g7 j+ t6 @3 \% g( i+ n; U改成 10 当然不行了，那个不是延时毫秒的意思，你从 1000 改为 10，并不会给整个过程提速。

2 Y& h9 V# |& C3 x( ~+ m
: a* p3 Y& X1 z3 G. W; G1 Z