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

fanrongqi

如题，我找了选项，好像是没有，我感觉需要在看文档的时候，能够屏幕鼠标划词，这样方便点吧。

golddict软件好像也不可以直接显示  翻译框，需要按键盘才行。可有一劳永逸的解决办法。

gnoweb

目前 Windows 下可以通过 Autoit V3 脚本来实现剪贴板取词（鼠标划词选择，复制到剪贴板），脚本后台监测，调用 MDict PC。
同样这种方法也适用于 GoldenDict PC 无法取词的程序，比如 Chrome，只需要改动一下程序的名称及路径信息，当然没有 GoldenDict PC 自带的即点即译方便，仅作权宜之计。

1. #include <StringConstants.au3>
   0 b, B4 ~4 {" ^: G
2. #include <MsgBoxConstants.au3>
   8 }/ @( s$ E  Q, d
3. 
   & ~; t: m6 Q2 z* @- r4 Y' X9 v
4. Func get_word_from_clip()
   $ u) B$ t8 A+ h5 X4 E0 Z
5.    Local $clip_string = ClipGet()
   2 |  F4 o( ~9 g! B% g
6.    ;MsgBox("", "剪贴板文本", $clip_string)
   * g4 n3 V- X9 [: p8 @: w. }
7.    Return $clip_string
   
8. EndFunc
   # a* d; [# ^2 ]. X, d
9. 
   
10. Func look_up_definition($word)
    
11.    If Not ProcessExists("MDict.exe") Then
    6 @7 d7 ?! \; ~5 ]
12.           Run("E:\Software\MDictPC\MDict.exe")                ; 此处改成你自己的 MDict 实际安装目录
      l# N$ f! x. Q6 p$ q
13.           Sleep(100)
    
14.    EndIf
    9 p& L2 s# T5 i% I, S9 V7 ^2 G8 O
15. 
    7 g  e: Z1 m! g, T
16.    WinActivate("MDict")
    
17.    Send("{ENTER}")
    
18.    ControlSend("MDict", "", 1000, $word)
    
19.    Send("{ENTER}")
    3 {% x, L, A. y9 Q* |
20. EndFunc
    
21. 
    
22. Func pretreatment($str)
    * Y8 X1 C+ {  {! z7 {& w: v
23.    ; 对字符串进行预处理：去除左右空白字符、转小写、判断是否全部为字符且长度小于指定值
    6 |* r4 z% r0 R% G/ w/ {8 \1 V7 m
24.    ; 默认不对带空格的词组取词，不对汉字取词
    * M5 F% k2 U5 x; `) W
25.    ; 符合上述条件返回新的字符串，否则返回 0
    
26.    $str = StringStripWS($str, $STR_STRIPLEADING + $STR_STRIPTRAILING)
    8 c* T( r# [! B& C# W0 k
27.    $str = StringLower($str)
    
28.    If StringLen($str) < 20 And StringIsASCII($str) And StringIsAlpha($str) And Not StringInStr($str, @CR) Then
    
29.           ;MsgBox($MB_SYSTEMMODAL, "20", $str)
    : I! c7 w& x! C# A. `4 L5 P
30.           Return $str
    7 \5 F9 W6 z, X
31.    ElseIf StringLen($str) < 4 And StringIsAlpha($str) And Not StringInStr($str, @CR) Then
    ' q+ K, V. ^3 [! {: j
32.           ;MsgBox($MB_SYSTEMMODAL, "4", $str)
    
33.           Return $str
    " Z( i) P4 A' p8 V) z2 E. U( l
34.    Else
    
35.           Return Null
    4 H7 h$ X: k. q+ k5 Z, y
36.    EndIf
    ( B; L8 F5 f9 Y& c8 d/ f# ~
37. EndFunc
    
38. 
    2 I' v4 X/ n* v4 g/ ^- v
39. 
    , X2 u4 D; {1 q. S8 }  R2 ~1 @
40. Func my_exit()
    
41.    Exit
    ) R; P/ g" H# i' N
42. EndFunc
    $ O3 E2 n/ `4 w2 x
43. 
    
44. HotKeySet("^!l", "my_exit"); ^ Ctrl    ! Alt        l
    - _- y- q; g' ?9 T! g
45. 
    0 R' V$ D& D, S  q( z0 X
46. Local $preview = pretreatment(get_word_from_clip())
    
47. Local $current
    4 z, W6 |: v( l
48. 
    " ^( C: Z8 A( f
49. While True
    / o- ^; D; {  u. F4 @
50.    $current = pretreatment(get_word_from_clip())
    & t' _) K! v! s
51.    if $current == $preview Then
    
52.           Sleep(1000)
    
53.           ContinueLoop
    1 h3 m0 G+ n2 a) n
54.    ElseIf $current <> Null Then
    " q$ `# f! m2 F, r! [0 b, h
55.           $preview = $current
    4 @+ A4 s$ i/ f! C8 U# }
56.           look_up_definition($current)
    9 g& e  h& H1 J$ T& e' K
57.           Sleep(1000)
    ; d7 ^0 Q/ F: ]0 `8 T+ d! m
58.    ElseIf $current == Null Then        ; 防止循环空耗 CPU
    $ h4 G9 z+ Z1 m
59.           Sleep(1000)
    
60.    EndIf
    7 t8 Q7 J+ n2 x& R9 J. S2 \: t2 _4 {
61. WEnd

复制代码

dingjayi

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

喬治兄

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

% F1 E9 f$ f: V, Pgnoweb兄:
4 d0 P0 `/ f# ?' e" w+ ^. l能否提供此代碼檔案
4 q- _4 |) }+ Z3 m  Z) w+ V复制代码時太多亂碼

5 k" C$ M+ `' j' H謝謝

喬治兄

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

Thanks a lot

喬治兄

1 u0 n6 j% T& p/ D/ F+ [: t

gnoweb 发表于 2016-2-15 23:08
2 G& Z) F9 m1 X! j# j/ A4 {0 M目前 Windows 下可以通过 Autoit V3 脚本来实现剪贴板取词（鼠标划词选择，复制到剪贴板），脚本后台监测， ...

2 A+ Z9 I) L( e& N, U- f
& D3 Y4 Q0 t9 F. agnoweb兄:
9 [; n) ?/ j2 K你好,小弟試了你的MDict_Enhance.au3 效果蠻好的
但是否能再修改一下,只要拷貝鼠標所選的內容直接傳送到 mdict 就好了
因 mdict  本身已有 Stripkey 處理,且目前無法查片語
但中文也可拷貝
! U; W/ l; L' F/ }) o5 d8 l直接讓mdict 判斷是否有此字條
, E- v# r* M* x
' u" k9 |* f1 ^! g# ~另外改成GoldenDict 是無法執行的
是否是需調用其GoldenDict 內的dll來達成
能否麻煩gnoweb兄再寫一個GoldenDict的取詞

辛苦你了
1 ^9 d/ L4 ]( l9 Z5 `& h- {
謝謝
( x7 K! w, n& d7 f  T# K

gnoweb

喬治兄 发表于 2016-2-20 07:08
gnoweb兄:
你好,小弟試了你的MDict_Enhance.au3 效果蠻好的
但是否能再修改一下,只要拷貝鼠標所選的 ...

只需要简单改动 look_up_definition 函数即可使用 GD：

1. Func look_up_definition($word)
   1 `& B( m; x- n9 [
2.         Run("E:\Software\GoldenDict\GoldenDict.exe " & $word)
   
3.         ; ！！！这里记得改成你自己的安装路径！！！
   
4. EndFunc

复制代码

. `( U# A: E6 W8 V9 y% F( b1 K

针对你提出的需要，只需改动 pretreatment 函数即可：
" F- f0 A" v9 \
, c$ H6 Z" U0 s% d! L& C3 ]

1. Func pretreatment($str)
   8 k( k( T) _; ~2 P3 G# n
2.    $str = StringStripWS($str, $STR_STRIPLEADING + $STR_STRIPTRAILING)
   ; r5 {4 o2 }1 ^9 C3 K+ v8 ]
3.    If StringLen($str) < 50 And Not StringInStr($str, ' ') And Not StringInStr($str, @CR) Then
   # J6 ?; |4 Y" m
4.           Return $str
   
5.    ElseIf StringLen($str) < 100 And StringInStr($str, ' ') And Not StringInStr($str, @CR) Then
   & {; V/ l" r9 S' S# L) Y2 }
6.       Return '"' & $str & '"'
   ) q& E0 B) n& C& j! S; N
7.    Else
   
8.           Return Null
   
9.    EndIf
   9 V& p" W; m. N1 e% ~& I0 l: F
10. EndFunc

复制代码

  c+ e) c) B% H  b1 ]4 Q
代码可以参考这里：


% Z' y# o/ N9 s  m) F) A' [! o) Y

喬治兄

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

$ e0 P, S. C  d% q9 k7 `gnoweb 兄:
! d8 P3 c$ a$ H
" f, q. O3 H. c8 K0 J謝謝你,用起來蠻順暢的也都沒什問題
$ V* v& [; Y: y7 v
0 s/ I1 F5 q3 ~$ K% ^$ \7 G- O" h) A Thanks again

fanrongqi

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

: a1 A0 s9 t# p% g9 H% h, @( E谢谢 。。。如果这个方便么就好了，我先试一下，差点想用钩子的方式了，

cidianaihao

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

fanrongqi

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

6 G! t5 _+ V+ }6 u# ^& t7 b你好，我安装了 Autoit V3  ，编译你的 脚本，好像需要 按ctrl  c才可以读取到单词，鼠标划词是哪个函数实现的功能啊。。而且，发送到mdict不成功，  
;MsgBox("","ffsa",$word)这里显示的$word已经是剪切板上的单词了，但是  mdict也没有翻译。mdict已经运行起来。mdict已经设置 监视剪切板。
   ControlSend("MDict", "", 10, $word)

gnoweb

fanrongqi 发表于 2016-2-24 16:49
& Y9 k  ~: i& |9 D0 I& S你好，我安装了 Autoit V3  ，编译你的 脚本，好像需要 按ctrl  c才可以读取到单词，鼠标划词是哪个函数 ...

5 b2 G, o2 z1 \2 h: k' G
这个脚本是用鼠标选择文本，必须 Ctrl + C 或者鼠标右键复制到剪贴板后，才可以被传送到 Mdict 的。

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


3 r- J# q( G' W' v0 V. V
看看有没有可能实现，目前我暂时想不出来怎么用 AutoIt v3 提供的函数实现。

. T' r! }. F) q1 U0 J2 a% D. D1 S; m' T————————————————————————————————————————————————

- y9 S; f& `- U: M7 f另外，你把 ControlSend 函数里面的 controlID 从 1000 改成了 10，所以无法翻译：

8 T  Y" ?9 o# b  P/ g, g) `

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

复制代码

/ r5 W* G# G) H4 X- x" i4 L0 [那个 1000 的意思是控件 ID 的代号，表示取词栏，就是要把单词传送给这个控件（黄色处）：


" V" ^( i7 Q0 ^1 n0 r1 G# o
4 _8 {3 d7 `0 s改成 10 当然不行了，那个不是延时毫秒的意思，你从 1000 改为 10，并不会给整个过程提速。
6 c8 c2 n, [7 I

. e: G; P' @3 y! _