Вобщем нужно время от времени обращятся к некоему веб-ресурсу, получать от него данные и их обрабатывать.
Вот мне интересно возможно ли зделать GET запрос по определённому URL, из агента выполняемого по расписанию, и потом обработать результат этого запроса?
Моё. Работает по расписанию для затягивания курса валют (Украина). Использует прокси сервер.
Кусок кода агента:
Sub Initialize
Dim Session As New NotesSession
Dim rtitem As NotesRichTextItem
Dim DB As NotesDatabase
Dim DC As NotesDocumentCollection
Dim Doc As NotesDocument
Dim sDoc As NotesDocument
Dim view As NotesView
Set DB = Session.CurrentDatabase
'url = "http://www.qdpro.com.ua/data/valute/val$%DDMM%"
r=Cstr(Date$)
YYYY = Mid$(Cstr(Date$),7,4)
MM = Mid$(Cstr(Date$),4,2)
DD = Mid$(Cstr(Date$),1,2)
url = "http://www.qdpro.com.ua/data/valute/val$" + DD + MM
Const HTTPREQUEST_SETCREDENTIALS_FOR_PROXY = 1
Const HTTPREQUEST_PROXYSETTING_PROXY = 2
Const AutoLogonPolicy_Always = 0
Dim httpobj As Variant
Print "Create оbject winhttp.winhttprequest.5.1 ..."
Set httpobj=CreateObject("winhttp.winhttprequest.5.1")
Print "Object winhttp.winhttprequest.5.1 CREATED !!!"
httpobj.SetProxy HTTPREQUEST_PROXYSETTING_PROXY, "192.168.1.10:3128", ""
Call httpobj.Open("GET", url, False)
httpobj.SetCredentials "домен\имя_пользователя","пароль",HTTPREQUEST_SETCREDENTIALS_FOR_PROXY
httpobj.SetAutoLogonPolicy AutoLogonPolicy_Always
httpobj.setRequestHeader "CACHE_CONTROL", "no-cache"
httpobj.setRequestHeader "CONNECTION", "Close"
Call httpobj.Send("")
ProcessPage$=httpobj.ResponseText
...
далее работаем с ProcessPage$ как с текстом
...
End Sub