Веб сервис, VBScript

Обсуждение вопросов клиентского программирования.

Модератор: Duncon

Ответить
Kolyasik
Сообщения: 5
Зарегистрирован: 22 сен 2008, 14:30

реально ли получить информацию с веб сервиса скриптом?

из студии я делал так:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Переменные для подключения к Веб-сервису
Dim MyServices As New WS.organization_data
Dim objXDTO As Object
Dim strTime As String
Dim MyNetworkCredential As New NetworkCredential
Dim MyCredentialsCache As New CredentialCache
'Переменные для работы с объектом XDTO
Dim objStructuredGroup As Object
Dim objElements As Object
Dim objRoot As Object
Dim strChild As String
Dim strSeparator As String = " | "

MyNetworkCredential.UserName = txtName.Text
MyNetworkCredential.Password = txtPassword.Text
MyCredentialsCache.Add(New Uri("http://nikolay/ws/organizations.1cws"), "Basic", MyNetworkCredential)
MyServices.Credentials = MyCredentialsCache

strTime = Format(dtpDate.Value, "yyyy") & _
Format(dtpDate.Value, "MM") & _
Format(dtpDate.Value, "dd")

objXDTO = MyServices.get_data(strTime).group

For Each objStructuredGroup In objXDTO
objRoot = tvStructuredGroup.Nodes.Add(objStructuredGroup.name)
For Each objElements In objStructuredGroup.Elements
strChild = objElements.code & strSeparator & objElements.name & _
strSeparator & objElements.full_name & strSeparator & _
objElements.inn

objRoot.Nodes.Add(objStructuredGroup.name, strChild)
Next
Next

End Sub
Аватара пользователя
Duncon
Сообщения: 2085
Зарегистрирован: 10 окт 2004, 14:11
Откуда: Питер
Контактная информация:

Как минимум непонятна задача..
Kolyasik
Сообщения: 5
Зарегистрирован: 22 сен 2008, 14:30

задача....

как скриптом получить данные веб сервиса, или хотябы просто подключиться к веб сервису...
Аватара пользователя
Duncon
Сообщения: 2085
Зарегистрирован: 10 окт 2004, 14:11
Откуда: Питер
Контактная информация:

Что за веб сервис? Скрипты выполняюца на стороне клиента..
Kolyasik
Сообщения: 5
Зарегистрирован: 22 сен 2008, 14:30

веб сервис возращает некоторый список...
скрипт... хоть файликам *.vbs
Kolyasik
Сообщения: 5
Зарегистрирован: 22 сен 2008, 14:30

мне интересно как подключиться....

у .NET есть пространство имен System.Web и System.net

сдесь есть что то подобное?
Ответить