Надо отправить данные на Интернет страницу и получить ответ - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д