如何使用vbs从网站的字段中复制

Question

您好我是vbs的新手，我正在尝试创建一个vbs脚本，将数据输入网站上的字段并输出返回文本文件的文本 这就是我到目前为止创造的东西：

Dim objIE


    Set objIE = CreateObject("InternetExplorer.Application")
    objIE.Visible = 1 


objIE.navigate "http://translation.babylon.com/english/to-spanish/"
    
WScript.Sleep 100
Do while objIE.busy
Wscript.sleep 200
Loop

objIE.Document.all.Item("translator_input").Value = "sample text"
 
WScript.Sleep 100
Do while objIE.busy
Wscript.sleep 200
Loop

Call objIE.Document.all.Item("btnTranslate").Click

Objie.Quit

任何想法如何将transelation复制到txt。或者excel doc。？

Answer 1

使用Chrome浏览器的DOM检查器，翻译的文本显示在此元素中：

<div id="resltext" name="resultext">
</div>

因此，您只需查找ID并返回innerText的值即可获取文字：

strTranslated = objIE.Document.All.Item("resltext").innerText