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

fanrongqi

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

: C! [4 b1 n7 b; h+ c3 @# B. Lgolddict软件好像也不可以直接显示  翻译框，需要按键盘才行。可有一劳永逸的解决办法。

gnoweb

) r  A, A3 b  e8 ~目前 Windows 下可以通过 Autoit V3 脚本来实现剪贴板取词（鼠标划词选择，复制到剪贴板），脚本后台监测，调用 MDict PC。
/ o2 R8 Z# b' S  ?同样这种方法也适用于 GoldenDict PC 无法取词的程序，比如 Chrome，只需要改动一下程序的名称及路径信息，当然没有 GoldenDict PC 自带的即点即译方便，仅作权宜之计。
6 p, E( }" j( [' a7 z
; w1 q' F* ?- J, N& K7 I6 g7 y6 s

1. #include <StringConstants.au3>
   
2. #include <MsgBoxConstants.au3>
     E) N1 ^$ S6 i, f( F4 U, e
3. 
   
4. Func get_word_from_clip()
   * h) T/ d) O( n# |! A
5.    Local $clip_string = ClipGet()
   
6.    ;MsgBox("", "剪贴板文本", $clip_string)
   
7.    Return $clip_string
   . C2 |# b- c7 X3 ?; v
8. EndFunc
   
9. 
   
10. Func look_up_definition($word)
    ! o3 _5 |6 C3 `2 `! V# j
11.    If Not ProcessExists("MDict.exe") Then
    - J7 t8 u' N2 C6 G7 `
12.           Run("E:\Software\MDictPC\MDict.exe")                ; 此处改成你自己的 MDict 实际安装目录
    
13.           Sleep(100)
    / q5 i3 H* N8 a! n" x" I- i3 m8 {
14.    EndIf
    
15. 
    
16.    WinActivate("MDict")
    
17.    Send("{ENTER}")
      Q5 D0 ~: O5 r9 N$ q" n( v6 r  ~* w
18.    ControlSend("MDict", "", 1000, $word)
    5 N: L& ^  `+ B" _
19.    Send("{ENTER}")
    ) b8 O0 U) h+ \* |
20. EndFunc
    : K3 _$ T5 M- H0 T
21. 
    - D3 b% ]" U3 ^( Z# q) `, G% U
22. Func pretreatment($str)
    
23.    ; 对字符串进行预处理：去除左右空白字符、转小写、判断是否全部为字符且长度小于指定值
    , J# H$ c; n9 r& S/ X
24.    ; 默认不对带空格的词组取词，不对汉字取词
    
25.    ; 符合上述条件返回新的字符串，否则返回 0
    # k/ J$ _/ X3 D  c6 L1 H
26.    $str = StringStripWS($str, $STR_STRIPLEADING + $STR_STRIPTRAILING)
    
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)
    
30.           Return $str
    * ]" x! ~% L( d
31.    ElseIf StringLen($str) < 4 And StringIsAlpha($str) And Not StringInStr($str, @CR) Then
    * R5 A8 `* ^6 @9 d
32.           ;MsgBox($MB_SYSTEMMODAL, "4", $str)
    
33.           Return $str
    9 u- S2 L* e& g7 I8 U
34.    Else
    5 M$ E! a, B7 s( f
35.           Return Null
    
36.    EndIf
    
37. EndFunc
    
38. 
    
39. 
    + D$ M/ k7 a1 w2 ~+ a& i$ B
40. Func my_exit()
    
41.    Exit
    
42. EndFunc
    , q7 ?( s* u) l* I6 m7 g0 c8 m% i* n/ i
43. 
    
44. HotKeySet("^!l", "my_exit"); ^ Ctrl    ! Alt        l
    0 N7 T& Z6 U1 o1 ?1 O9 {7 A2 q
45. 
    . A9 E4 D# d3 v0 P
46. Local $preview = pretreatment(get_word_from_clip())
    . F$ M9 S+ V3 Y5 V2 [
47. Local $current
    
48. 
    7 q# g/ _! z- }/ @% Z+ X9 _5 v
49. While True
    
50.    $current = pretreatment(get_word_from_clip())
    
51.    if $current == $preview Then
    
52.           Sleep(1000)
    
53.           ContinueLoop
    
54.    ElseIf $current <> Null Then
    7 {. b1 G) k0 f( D( m
55.           $preview = $current
    $ a2 Y, q- P( U" E$ @! [8 Q  _
56.           look_up_definition($current)
    ) Y& ?3 ?: X$ F) ?6 n+ \$ k
57.           Sleep(1000)
    0 B2 T. j2 J% o# x# Z' X# H7 p
58.    ElseIf $current == Null Then        ; 防止循环空耗 CPU
    # Y2 [2 Q/ Z& S+ O- s; y3 I
59.           Sleep(1000)
    
60.    EndIf
    
61. WEnd

复制代码

dingjayi

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

喬治兄

gnoweb 发表于 2016-2-15 23:08
5 B0 v* h# I9 ]9 {! w2 ^目前 Windows 下可以通过 Autoit V3 脚本来实现剪贴板取词（鼠标划词选择，复制到剪贴板），脚本后台监测， ...

gnoweb兄:
* O6 I5 |1 ?, @7 ^3 z, a能否提供此代碼檔案
复制代码時太多亂碼

謝謝

喬治兄

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

Thanks a lot

喬治兄

gnoweb 发表于 2016-2-15 23:08
8 B" }. S6 l7 b- K+ ]) |+ X目前 Windows 下可以通过 Autoit V3 脚本来实现剪贴板取词（鼠标划词选择，复制到剪贴板），脚本后台监测， ...

" F. V( }5 C( g% P3 H$ @6 [, [
+ p7 u# P! P/ H: r( q/ Ignoweb兄:
3 h/ C, M$ `7 I5 w你好,小弟試了你的MDict_Enhance.au3 效果蠻好的
$ v! k5 {( z$ @" Y但是否能再修改一下,只要拷貝鼠標所選的內容直接傳送到 mdict 就好了
+ Q% x$ E: K6 D& r因 mdict  本身已有 Stripkey 處理,且目前無法查片語
但中文也可拷貝
直接讓mdict 判斷是否有此字條

另外改成GoldenDict 是無法執行的
4 G7 M2 D2 H# j是否是需調用其GoldenDict 內的dll來達成
能否麻煩gnoweb兄再寫一個GoldenDict的取詞

1 R' q# T: `9 a辛苦你了

" J; @( M( Q- ~0 R* k謝謝

gnoweb

喬治兄 发表于 2016-2-20 07:08
2 E' k; N: h# E+ F9 _gnoweb兄:
4 |$ @4 K5 U2 ~- E: p你好,小弟試了你的MDict_Enhance.au3 效果蠻好的
' h' {1 U& |4 e3 W+ E; ^) A# w但是否能再修改一下,只要拷貝鼠標所選的 ...

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

- }4 H7 P2 g# o1 Z- q7 Z4 Q

1. Func look_up_definition($word)
   * \/ L3 v9 m3 {3 k! s4 I/ _
2.         Run("E:\Software\GoldenDict\GoldenDict.exe " & $word)
   
3.         ; ！！！这里记得改成你自己的安装路径！！！
   
4. EndFunc

复制代码

) d+ W) E9 c& S$ t( E4 d  N

针对你提出的需要，只需改动 pretreatment 函数即可：

1. Func pretreatment($str)
   
2.    $str = StringStripWS($str, $STR_STRIPLEADING + $STR_STRIPTRAILING)
   - r* P" `' C$ }( k8 ~: e( d
3.    If StringLen($str) < 50 And Not StringInStr($str, ' ') And Not StringInStr($str, @CR) Then
   
4.           Return $str
   5 Q2 `! P: a- u1 x/ J: J; B
5.    ElseIf StringLen($str) < 100 And StringInStr($str, ' ') And Not StringInStr($str, @CR) Then
   
6.       Return '"' & $str & '"'
   + }7 g- E) k  b
7.    Else
   0 d1 U. N1 {1 l5 T  R5 P( p
8.           Return Null
   
9.    EndIf
   
10. EndFunc

复制代码

+ y* Q/ F$ A* @9 d7 e+ h代码可以参考这里：
% u) m9 [% z3 X9 C- D, ^. H) }) m2 M. O
2 R* n  a: B/ R* F1 M- K
0 ~6 a0 R$ P0 m5 s

喬治兄

gnoweb 发表于 2016-2-20 11:04
% F' f, |! s7 S只需要简单改动 look_up_definition 函数即可使用 GD：

gnoweb 兄:
, Q1 y3 u2 W$ I- z; r9 o* \
謝謝你,用起來蠻順暢的也都沒什問題
" F& ?# t" W  c4 p) u
Thanks again

fanrongqi

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

谢谢 。。。如果这个方便么就好了，我先试一下，差点想用钩子的方式了，

cidianaihao

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

fanrongqi

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

你好，我安装了 Autoit V3  ，编译你的 脚本，好像需要 按ctrl  c才可以读取到单词，鼠标划词是哪个函数实现的功能啊。。而且，发送到mdict不成功，  
;MsgBox("","ffsa",$word)这里显示的$word已经是剪切板上的单词了，但是  mdict也没有翻译。mdict已经运行起来。mdict已经设置 监视剪切板。
) D' y- c2 K2 b/ u8 R: T   ControlSend("MDict", "", 10, $word)

gnoweb

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

, O. ?1 h: P1 [+ }' J# Z
这个脚本是用鼠标选择文本，必须 Ctrl + C 或者鼠标右键复制到剪贴板后，才可以被传送到 Mdict 的。
4 C: n- k5 o) B/ U- Q
7 ?" ]. H* l2 G: P/ i; t如果用鼠标划取单词就被检测到，那你要自己去读 AutoIt v3 的文档 >> Function Reference >> Mouse Management >>
$ R9 x8 b" z& k8 S/ G/ C
- o; O! x2 V4 Z* S2 I
3 U4 R0 U. P1 r, o, Q4 d! |5 I
看看有没有可能实现，目前我暂时想不出来怎么用 AutoIt v3 提供的函数实现。
, R/ T' s3 y- B/ M. i
————————————————————————————————————————————————
! D- M- Z8 D+ v8 y% _& X
另外，你把 ControlSend 函数里面的 controlID 从 1000 改成了 10，所以无法翻译：

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

复制代码

: Y: E8 l7 n' W, _
* _$ w0 N6 v# c- \0 w5 c那个 1000 的意思是控件 ID 的代号，表示取词栏，就是要把单词传送给这个控件（黄色处）：
8 A. T% \& J% w% b8 y% u5 i' ]
' b" y  ~* k* K8 M6 D. h
8 y, N+ Y3 }* C+ D# v! r8 F
& @( W1 F9 u1 _改成 10 当然不行了，那个不是延时毫秒的意思，你从 1000 改为 10，并不会给整个过程提速。
3 J+ d: |- l; \. \/ ~6 M