如何将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)

代码运行时出现错误：unknown error。我不知道我做错了什么。 ：/

请帮助我

乔纳斯

Answer 1

Vbscript通过此方法getElementById使用HTML DOM来获取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()