1 Тема от admin

  • admin
  • admin
  • Administrator
  • Неактивен
  • Зарегистрирован: 2010-04-07
  • Сообщений: 1,192
  • Репутация : 0

Тема: Послать GET Http запрос браузеру из лотуса

Вот пример get запроса с лотуса браузеру.

Sub Click(Source As Button)
    'On Error Goto ErrH
    Print "старт"
    If datapatch<>"" Then
        Print "datapatch:" & datapatch
        On Error Goto ErrH
        Dim objHTTP
        Set objHTTP = CreateObject( "WinHttp.WinHttpRequest.5.1" )
        objHTTP.Open "GET", "http://127.0.0.1:9999/exit", False
        Call objHTTP.setRequestHeader ("User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)")
        
        objHTTP.Send
        
        Print "9999/exit сделали"
    End If
    '
    Exit Sub    
ErrH:
    Print "Ошибка " & objHTTP.GetLastError
    Exit Sub
End Sub

Поделиться