将剪贴板文本粘贴到网站

Question

网址： http://translate.naver.com/#/ja/ko

我试图将剪贴板文字粘贴到网站的文本框中。

myLatLng

以上代码一直工作到几天前。 但后来他们改变了一些东西，代码再也没有了。 有没有其他方法可以将文本粘贴到该文本框中，所以我可以自动翻译它？

Answer 1

看起来他们改变了html代码。 这应该有效：

Web1.ScriptErrorsSuppressed = True
Web1.Navigate("http://translate.naver.com/#/ja/ko")
WaitForPageLoad()
dim Otext as string = Clipboard.GetText
Dim htmlDoc = Web1.Document
Dim elem_Input As HtmlElement = htmlDoc.GetElementById("transEditorText")
elem_Input.InnerText = Otext
Dim elem_Input_Submit As HtmlElement = htmlDoc.GetElementById("startTranslateBtn")
elem_Input_Submit.InvokeMember("click")

我没有测试这段代码。我使用了我的firefox开发者控制台和javascript：

document.getElementById("transEditorText").innerText = "hello world"
document.getElementById("startTranslateBtn").click()