VB6.0+WebBrowser如何向网页text文本框输入某个字符

Question

VB6.0+WebBrowser如何向网页text文本框输入某个字符串，如“123456测试”

input type="text" class="_cc76e _7c380 _03321" placeholder="请输入公司名称、老板姓名、品牌名称等" value="" autocomplete="chrome-off"

Answer 1

通过Document对象来访问和操纵页面上的元素。例子，展示了如何设置特定文本框的值：

Dim txtBox As HTMLInputElement
Set txtBox = WebBrowser1.Document.getElementsByClassName("_cc76e _7c380 _03321")(0)
txtBox.Value = "123456测试"

• 定义了一个HTMLInputElement对象，然后用getElementsByClassName方法找到页面上具有指定类名的元素的集合，最后把第一个匹配的元素的Value属性设置为所需的字符串。

• 确保这段代码在页面加载完毕后执行，比如在DocumentComplete事件处理器中。