VB6 操作ie浏览器输入文字文本框没有id有class

在VB6中操作IE浏览器输入文字到没有id的文本框，但有class的方法如下：

首先，创建一个InternetExplorer对象并打开IE浏览器：

Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate "http://example.com" '替换成你要打开的网页地址

使用Do While循环等待IE浏览器完全加载完成：

Do While IE.Busy Or IE.ReadyState <> 4
    DoEvents
Loop

使用getElementsByClassName方法获取所有具有相同class名称的元素，并找到目标文本框：

Dim elements As Object
Set elements = IE.Document.getElementsByClassName("yourClassName") '替换成目标文本框的class名称

使用循环遍历找到的元素，并使用innerText属性设置文本框的值：

Dim element As Object
For Each element In elements
    element.innerText = "Your Text" '替换成你要输入的文本
Next element

完整的示例代码如下：

Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate "http://example.com" '替换成你要打开的网页地址

Do While IE.Busy Or IE.ReadyState <> 4
    DoEvents
Loop

Dim elements As Object
Set elements = IE.Document.getElementsByClassName("yourClassName") '替换成目标文本框的class名称

Dim element As Object
For Each element In elements
    element.innerText = "Your Text" '替换成你要输入的文本
Next element

请注意，如果有多个具有相同class名称的文本框，代码将会逐个设置它们的值。如果你只想设置其中一个文本框的值，可以使用索引来定位特定的元素。例如，elements(0)表示第一个元素，elements(1)表示第二个元素，以此类推