Skip to main content
cancel
Showing results for 
Search instead for 
Did you mean: 
thiagopcleite
Contributor II
Contributor II

Dados de Site que precisa de autenticação

Boa tarde pessoal,

Preciso pegar os dados de um site, mas esse site necessita de uma autenticação (Login / Senha) antes de chegar a tabela que preciso acessar.

É possível fazer isso no Qlikview????

Grato,

Thiago Leite

1 Solution

Accepted Solutions
Clever_Anjos
Employee
Employee

É possível executando uma macro, segue um exemplo

Public Function httpGET(fn As String, _

        Optional authUser As String = vbNullString, _

        Optional authPass As String = vbNullString) As String

    pHtml = fn

    Dim oHttp As Object

    Set oHttp = CreateObject("Microsoft.XMLHTTP")

    Call oHttp.Open("GET", pHtml, False)

    If (authUser <> vbNullString) Then

        oHttp.SetRequestHeader "Content-Type", "application/json"

        oHttp.SetRequestHeader "Accept", "application/json"

        oHttp.SetRequestHeader "Authorization", "Basic " + _

            Base64Encode(authUser + ":" + authPass)

    End If

    Call oHttp.Send("")

    httpGET = oHttp.ResponseText

    Set oHttp = Nothing

End Function

View solution in original post

3 Replies
nicolett_yuri

Deve ter outra maneira, mas você pode resolver isso gravando esse usuário e senha utilizando o browser IE (após efetuar o primeiro login). Mas lembre-se de fazer essa ação com o usuário que esta executando os serviços do QlikView (em caso de carga pelo QvServer).

Clever_Anjos
Employee
Employee

É possível executando uma macro, segue um exemplo

Public Function httpGET(fn As String, _

        Optional authUser As String = vbNullString, _

        Optional authPass As String = vbNullString) As String

    pHtml = fn

    Dim oHttp As Object

    Set oHttp = CreateObject("Microsoft.XMLHTTP")

    Call oHttp.Open("GET", pHtml, False)

    If (authUser <> vbNullString) Then

        oHttp.SetRequestHeader "Content-Type", "application/json"

        oHttp.SetRequestHeader "Accept", "application/json"

        oHttp.SetRequestHeader "Authorization", "Basic " + _

            Base64Encode(authUser + ":" + authPass)

    End If

    Call oHttp.Send("")

    httpGET = oHttp.ResponseText

    Set oHttp = Nothing

End Function

Clever_Anjos
Employee
Employee

Já conseguiu solucionar? Se sim, marque uma das respostas como "Correta" e nos ajude a manter os foruns organizados