如何将 IE 中的 ID 值保存到 VBScript 中的变量中？

Question

我想编写一个程序，在消息框中输出来自网站“https://10minutemail.net/”的电子邮件。不幸的是，我找不到任何允许我将 ID 存储在变量中的代码。

我已经试过了，没有任何结果：

Dim email
email = ""
set webbrowser = createobject("internetexplorer.application")
webbrowser.statusbar = false
webbrowser.menubar = false
webbrowser.toolbar = false
webbrowser.visible = false
webbrowser.navigate("10minutemail.net") 
email = webbrowser.document.all.item("fe_text")

wscript.echo(email)

代码运行时出现错误：[未知错误][1]。 [1]: https://i.stack.imgur.com/m1yHF.png

如何解决？

Answer 1

Vbscript 使用 HTML DOM 和此方法 getElementById 获取 HTML 代码源页面中的特定元素

因此，对于您的情况，您可以尝试使用以下代码：

Option Explicit
Dim IE,Email_Value
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = False
IE.navigate "https://10minutemail.net/"
Do While (IE.Busy)
    WScript.Sleep 100
Loop 

Email_Value = IE.document.getElementByID("fe_text").Value
wscript.echo(Email_Value)
IE.Quit()

如何将 IE 中的 ID 值保存到 VBScript 中的变量中？

How can I save the value of an ID from IE to a variable in VBScript?

email

variables

vbscript

internet-explorer

internet-explorer-11