Консультация /разработка веб обращения

Задание закрыто
Статус рабочей области:Поиск исполнителя
Стоимость:555 рублей
Срок выполнения:5 дней
Варианты оплаты:Без предоплаты
Дата публикации:2016-05-04 22:09
Был(а) на сайте:2024-04-29 23:57

Консультация /разработка веб обращения

 
Задача

Необходимо разработать корректную функцию обращения к веб сервису.

есть код в котором выполнение доходит только до шага ШАГ4
при этом xml верная и загрузилась.
остальные комментарии в скайп или в переписке

Private Sub MainProc()

Dim xmlDoc As Object
Dim xmlDocResponse As Object
Dim xmlHTTP As Object
Dim uConnectionStrin As String
uConnectionStrin = TextBox1.Text.ToString
Call CreateXMLDoc(xmlDoc)
Call CreateXMLDoc(xmlDocResponse)
Call CreateXMLHttp(xmlHTTP)

TextBox3.Text += "1"
xmlHTTP.open("POST", uConnectionStrin, False)
TextBox3.Text += "2"


xmlHTTP.SetRequestHeader("User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; MS Web Services Client Protocol 1.1.4322.573)")
xmlHTTP.SetRequestHeader("Content-Type", "text/xml; charset=utf-8")
'xmlHTTP.SetRequestHeader("ContentType", "text/xml;charset=utf-8")

...

Видеть полную информацию и оставлять заявки могут только авторизованные пользователи.
Заявок нет

Оставлять заявки могут только авторизованные пользователи.