如何实现在GUI上输入内容拿到IE里面的返回结果

871224

请问路过的大侠，如何在GUI里面输入一个内容，拿到IE页面（一定是可以打开的IE页面，函数不算）的返回结果，如翻译单词

会的教下，先谢谢了

871224

哪位大侠 教下呀

871224

哪位大侠教下

871224

afan

1. #include <EditConstants.au3>
   
2. #include <WindowsConstants.au3>
   
3. 
   
4. GUICreate("在线英译汉", 400, 300)
   
5. $Edit1 = GUICtrlCreateEdit("请在此输入英文", 5, 5, 390, 130, $WS_VSCROLL + $ES_WANTRETURN)
   
6. $Bt1 = GUICtrlCreateButton("", 5, 142, 225, 22)
   
7. GUICtrlSetData($Bt1, '在线翻译以上英文')
   
8. $Bt2 = GUICtrlCreateButton('清空', 230, 142, 80, 22)
   
9. $Bt3 = GUICtrlCreateButton('退出', 310, 142, 86, 22)
   
10. $Edit2 = GUICtrlCreateEdit("", 5, 170, 390, 105, $WS_VSCROLL + $ES_WANTRETURN)
    
11. GUICtrlCreateLabel('Afan - www.autoitx.com', 120, 280, 180, 17)
    
12. GUICtrlSetState(-1, 144)
    
13. GUISetState()
    
14. 
    
15. While 1
    
16.         Switch GUIGetMsg()
    
17.                 Case - 3, $Bt3
    
18.                         Exit
    
19.                 Case $Bt1
    
20.                         $a = StringRegExpReplace(GUICtrlRead($Edit1), @CR, '%0D%0A')
    
21.                         If $a <> '' Then
    
22.                                 GUICtrlSetData($Bt1, '正在提交翻译，请稍候...')
    
23.                                 GUICtrlSetState($Bt1, 144)
    
24.                                 $sR = StringRegExp(Post($a), 'suggestion>([^<]+)</textarea>', 3)
    
25.                                 If @error = 0 Then
    
26.                                         $a = StringRegExpReplace($sR[0], '&lt;br&gt;&lt;br&gt;', @CRLF)
    
27.                                         GUICtrlSetData($Edit2, $a)
    
28.                                 Else
    
29.                                         MsgBox(48, '出错', '网站貌似改版，读取出错，请联系本人')
    
30.                                 EndIf
    
31.                                 GUICtrlSetData($Bt1, '在线翻译以上英文')
    
32.                                 GUICtrlSetState($Bt1, 80)
    
33.                         Else
    
34.                                 MsgBox(48, '注意', '请在上输入框输入英文 ')
    
35.                         EndIf
    
36.                 Case $Bt2
    
37.                         GUICtrlSetData($Edit2, '')
    
38.                         GUICtrlSetData($Edit1, '')
    
39.         EndSwitch
    
40. WEnd
    
41. 
    
42. Func Post($Word)
    
43.         $oHTTP = ObjCreate("Microsoft.xmlhttp")
    
44.         $oHTTP.Open("Post", "http://translate.google.com/translate_t", False)
    
45.         $oHTTP.Send("text=" & $Word & "&langpair=en%7Czh-CN&hl=zh-CN&newwindow=1&ie=UTF-8&oe=UTF-8")
    
46.         $sReturn = BinaryToString($oHTTP.responseBody, 4)
    
47.         Return $sReturn
    
48. EndFunc   ;==>Post

复制代码

貌似翻译网站改版了，修改了下 http://www.autoitx.com/forum.php?mod=viewthread&tid=10934

ebhb

不错，收藏了。