时间戳

首页 > 解决方案 > 不显示下拉列表中的表单帖子选择

html - 不显示下拉列表中的表单帖子选择

问题描述

我的任务是自动填写网络表单。我能够打开表格并能够从下拉列表中选择选项并能够填写表格。下拉菜单有多个选项，并根据下拉菜单中的选择显示表单。我可以通过 VBA 编码从下拉列表中选择选项，但表单没有扩展。虽然它是通过鼠标从下拉菜单中选择来扩展的。

我写了下面的代码：

Sub FilltheForm1()

Dim IE As SHDocVw.InternetExplorer
Dim IE2 As SHDocVw.InternetExplorer

Set IE = New InternetExplorer
Set IE2 = New InternetExplorer

IE.Visible = True

IE.navigate "My URL"

Do While IE.readyState <> READYSTATE_COMPLETE
Loop

Dim Doc As MSHTML.HTMLDocument

Set Doc = IE.document

    Doc.getElementsByTagName("select").Item("userType").Value = "SERVICE_PROVIDER"

    Doc.getElementsByTagName("Input").Item("firstName").Value = "A"
    Doc.getElementsByTagName("Input").Item("middleInitial").Value = "A"
    Doc.getElementsByTagName("Input").Item("lastName").Value = "A"
    Doc.getElementsByTagName("select").Item("company").Value = "HCL"
    Doc.getElementsByTagName("Input").Item("companyEmail").Value = "A"
    Doc.getElementsByTagName("Input").Item("address").Value = "A"
    Doc.getElementsByTagName("Input").Item("city").Value = "A"
    Doc.getElementsByTagName("Input").Item("stateProvince").Value = "A"
    Doc.getElementsByTagName("Input").Item("zipPostalCode").Value = "A"
    Doc.getElementsByTagName("select").Item("country").Value = "INDIA"

    Doc.getElementsByTagName("Input").Item("phone").Value = "A"
    Doc.getElementsByTagName("textarea").Item("reasonForRequestingAccess").Value = "A"


End Sub

网页表单的 HTML 代码：

     <tr>
     <td class="textAlignRight">

       <p class="pBold">User Type:<sup>*</sup></p></td>
       <td colspan="2"  align="left"> <select name='userType' class="selectDropDown" onChange=refreshPage()>
    <option value= 'PLEASE SELECT USER TYPE' selected ="selected">

标签： htmlvbawebscreen-scraping

解决方案

您可能需要触发 OnChange 事件来模拟用户交互。

ie.document.querySelector("[name='userType']").FireEvent "onchange"

推荐阅读