在VB.net webbrowser控件中填充有重影文本的输入框

在VB.net webbrowser控件中填充有重影文本的输入框,vb.net,input,innertext,Vb.net,Input,Innertext,在VB.net中,我试图自动填充一个包含一些重影文本的网站输入框 (也就是说,这里是有这些方框的区域:这里是有这些方框的站点:-右边的方框) 问题是:如果我尝试像填充没有重影文本的框(element.InnerText=“whatever”)一样填充,则输入的文本将被视为重影文本,因此如果用户在输入文本后单击框,文本将消失。- 代码: For Each element As HtmlElement In frmMain.wb1.Document.GetElementsByTagName("in

在VB.net中,我试图自动填充一个包含一些重影文本的网站输入框

(也就是说,这里是有这些方框的区域:这里是有这些方框的站点:-右边的方框)

问题是:如果我尝试像填充没有重影文本的框(element.InnerText=“whatever”)一样填充,则输入的文本将被视为重影文本,因此如果用户在输入文本后单击框,文本将消失。-

代码:

For Each element As HtmlElement In frmMain.wb1.Document.GetElementsByTagName("input")
            If element.Name = "FromEmailAddress" Then
                Dim i = 0
                dim strLine = "sample text"
                        element.InnerText = strLine
                    End If
                Next
            End If
        Next

我尝试在element.InnerText之前使用element.Focus(),但没有帮助。我知道ghost文本是用javascript完成的,所以我可以在代码中实现一些javascript来更改inputbox值吗

如有任何建议,我们将不胜感激。如果你需要更多信息,请告诉我


谢谢

请在frmMain.wb1.Document.GetElementsByTagName(“输入”)中将每个元素的代码[code]作为HtmlElement发布,如果element.Name=“FromEmailAddress”,则在TextBox1.Text.Split(vbNewLine)中将每个strLine的Dim i=0作为字符串如果i=2,那么element.InnerText=strLine End如果i=i+1下一个End如果下一个[/code]下面是应该更改输入框文本的代码。它有一些额外的行来解析要输入的文本-它们是无关的请格式化它并作为问题的一部分发布编辑:我通过更改元素的类来解决这个问题,因此重影文本被转换为常规文本,并且可以很容易地用element.innertext元素.SetAttribute(“className”,“”)进行修改-使这项工作顺利进行的那一行,PS。为了更简单,请使用element.InvokeMember(“单击”);)