au3做的实时翻译[数据来源于谷歌]

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

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

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

把代码直接贴出来吧，免得下载浪费时间
bob 发表于 2010-12-25 17:25

谢谢分享.......

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]<>0) Then
                                GUICtrlSetData($Edit2, "翻译结果:"&StringTrimRight(StringTrimLeft($result[1], 4),1)&@CRLF&"注音:"&StringTrimLeft(StringTrimRight($result[4], 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]<>0) Then
                                GUICtrlSetData($Edit2, "翻译结果:"&StringTrimRight(StringTrimLeft($result[1], 4),1)&@CRLF&"注音:"&StringTrimLeft(StringTrimRight($result[3], 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

很好很强大，谢谢分享。。。。。

		自动登录	找回密码
密码			加入

[原创] au3做的实时翻译[数据来源于谷歌]