javascript - 自动化使用 JavaScript 函数的网页

Question

我想自动化这个 URL .以我的输入为例:

输入框:

使用 id="symbolSearch"

使用 id="indexSearch"

symbolSearch 的一些值:

我搜索 کیان，然后点击 آوای ثروت کوان-در سهام

我搜索 خوارòمی 然后我点击 مشترك خوارòمي-در سهام

indexSearch 的一些值:

我搜索 شاخص کل 然后我点击 شاخص کل

我搜索 شاخص کل 然后我点击 شاخain كل (هم وòن)

如何在 VBA 中自动执行此操作？

注意:“symbolSearch”中的每个元素都与具有特定 RegNo 的共同基金相关联。 this link 中的 URL 搜索元素

Sub MakeChart()

    Dim appIE As Object
    Set appIE = CreateObject("internetexplorer.application")

    'Get the WebPage Content to HTMLFile Object
    With appIE
        .navigate "http://www.fipiran.ir/AnalysisTools/MFInteractiveChart"
        .Visible = True

        'wait until the page loads
        Do While .Busy Or .readyState <> READYSTATE_COMPLETE
            DoEvents
        Loop
        Application.Wait (Now + TimeValue("00:00:05"))

        For Each cell In Range("C:C")
           If Not IsNumeric(cell) Or cell.Value = "" Or cell.EntireRow.Hidden Then GoTo Next_iteration
           '''
            **' codes to add RegNo in range C:C to webpage **


Next_iteration:
        Next

        .Quit
    End With
    Set appIE = Nothing
End Sub

Answer 1

我不确定我是否完全理解。我可以使用 JSON parser 从第一个链接解析 regNos并将它们存储在数组中。然后，我可以将这些数字连接成一个 XMLHTTP 请求 URL 字符串，该字符串返回我存储在另一个数组中的 JSON 数据，您可以对其进行解析。

Option Explicit   
Public Sub GetInfo()
    Dim url As String, json As Object, item As Object, regNos(), responseInfo(), i As Long
    url = "http://www.fipiran.ir/AnalysisTools/MFAutocomplete?term="

    With CreateObject("MSXML2.XMLHTTP")
        .Open "GET", url, False
        .send
        Set json = JsonConverter.ParseJson(.responseText)

        ReDim regNos(1 To json.Count)
        ReDim responseInfo(1 To json.Count)
        For Each item In json
            i = i + 1
            regNos(i) = item("RegNo")
        Next
        For i = LBound(regNos) To 2  'UBound(regNos)
            .Open "GET", "http://www.fipiran.ir/AnalysisTools/MFHistory?regNo=" & CStr(regNos(i)), False
            .send
            responseInfo(i) = .responseText
            'Application.Wait Now + TimeSerial(0, 0, 1) '< == to avoid being blocked
        Next
    End With
End Sub

responseInfo 数组中的示例信息:

将 jsonconverter.bas 添加到项目后，我通过 VBE > Tools > References to Microsoft Scripting Runtime 添加了一个引用。