迷龙88 发表于 2012-5-6 13:30:14

真是好东西， 长见识了。这么简单就可以~哈哈

iori2882 发表于 2012-5-11 09:40:53

把代码直接贴出来吧，免得下载浪费时间
bob 发表于 2010-12-25 17:25 http://www.autoitx.com/images/common/back.gif

谢谢分享.......

lsszmj 发表于 2012-6-8 07:02:16

源码已收下了

ZMHC133 发表于 2013-2-15 22:16:50

程序有点年代了.谷也改版了

chenghua 发表于 2013-6-6 16:32:57

谢谢。已经用上了

mikezunya 发表于 2013-8-21 15:52:23

感谢9楼，学习了

lanfengc 发表于 2013-8-21 16:45:35

回复 9# bob


    更改翻译函数为以下内容：

Func _translate()
      $xmlhttp = ObjCreate("Msxml2.XMLHTTP");
                If $flag=1 Then
                        $xmlhttp.open("GET", "http://translate.google.cn/translate_a/t?client=t&sl=zh-CN&tl=en&hl=zh-CN&sc=2&ie=UTF-8&oe=UTF-8&prev=btn&ssel=3&tsel=6&q=" & _UnicodeURLEncode(GUICtrlRead($Edit1)) , False)
                        $xmlhttp.Send
                        $result = StringSplit($xmlhttp.responseText, ',')
                        If($result<>0) Then
                                GUICtrlSetData($Edit2, "翻译结果:"&StringTrimRight(StringTrimLeft($result, 4),1)&@CRLF&"注音:"&StringTrimLeft(StringTrimRight($result, 3),1))
                        EndIf
                Else
                        $xmlhttp.open("GET", "http://translate.google.cn/translate_a/t?client=t&sl=en&tl=zh-CN&hl=zh-CN&sc=2&ie=UTF-8&oe=UTF-8&prev=btn&ssel=4&tsel=6&q="& _UnicodeURLEncode(GUICtrlRead($Edit1)), False)
                        $xmlhttp.Send
                        $result = StringSplit($xmlhttp.responseText, ',')
                        If($result<>0) Then
                                GUICtrlSetData($Edit2, "翻译结果:"&StringTrimRight(StringTrimLeft($result, 4),1)&@CRLF&"注音:"&StringTrimLeft(StringTrimRight($result, 1),1))
                        EndIf
                EndIf

EndFunc   ;==>_translate

chamlien 发表于 2014-8-17 03:35:14

回复标记一下，很强大

605284 发表于 2014-11-18 21:13:29

看著不錯，謝謝樓主分享。

chenking84 发表于 2014-11-19 13:13:22

很好很强大，谢谢分享。。。。。
页: 1 [2]
查看完整版本: au3做的实时翻译[数据来源于谷歌]