将剪贴板文本粘贴到网站

Question

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

我正在尝试将剪贴板文本粘贴到网站的文本框。

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.SetAttribute("value", Otext) 
Dim elem_Input_Submit As HtmlElement = htmlDoc.GetElementById("startTranslateBtn")
                elem_Input_Submit.InvokeMember("click")

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

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()