Надо отправить данные на Интернет страницу и получить ответ - VB

Узнай цену своей работы

Формулировка задачи:

Вот ссылочка: http://www.salyk.kz/ru/Pages/findtaxpayers.aspx

Налоговый комитет Министерства финансов Республики Казахстан

Собственно там есть форма. Вот надо к примеру вбить в поле "Фамилия" фамилию человека и после получить результат в Text1.Text и Text2.Text его РНН и ИИН.

Помогете мне ? Пожалуйста!

Вариант из страницы в закрепленных не прокатывает .

Как только не пытался.

Решение задачи: «Надо отправить данные на Интернет страницу и получить ответ»

textual
Листинг программы
'References to:
'MS Internet Controls
'MS HTML Object Library
 
Sub main()
    Dim sURL As String: sURL = "http://www.salyk.kz/ru/Pages/findtaxpayers.aspx"
 
    Dim appIE As SHDocVw.InternetExplorer
    Set appIE = CreateObject("InternetExplorer.Application")
 
    With appIE
        .Navigate sURL
        .Visible = True
 
        Do While (.Busy Or .readyState <> 4): DoEvents: Loop
 
        Dim D As MSHTML.HTMLDocument
        Set D = .document
 
        Dim eInput As MSHTML.HTMLInputElement
        Dim collInput As MSHTML.IHTMLElementCollection
        Dim n&: n = 0
        Dim Text() As MSHTML.HTMLInputElement 'TextBoxes
        Dim Submit As MSHTML.HTMLInputElement 'Button
        Set collInput = D.getElementsByTagName("INPUT")
 
        On Error Resume Next
        For Each eInput In collInput
            With eInput
                If .Type = "text" And .className = "text" Then
                    n = n + 1: ReDim Preserve Text(n)
                    Set Text(n) = eInput
                  ElseIf .Type = "submit" Then Set Submit = eInput
                End If
            End With
        Next eInput
        
        Text(1).Value = "РНН" '12 digits
        Text(2).Value = "ИИН" '12 digits
        Text(3).Value = "Фамилия"
        Text(4).Value = "Имя"
        Text(5).Value = "Отчество"
 
        Submit.Click 'Кнопка "Найти"
 
        '.Quit 'Close IE
        
        For n = 1 To n: Set Text(n) = Nothing: Next
        Set Submit = nothing: Set collInput = Nothing: Set D = Nothing
    End With
    Set appIE = Nothing
End Sub

Оцени полезность:

8   голосов , оценка 4.125 из 5
Похожие ответы