Skip to main content
Announcements
Live today at 11 AM ET. Get your questions about Qlik Connect answered, or just listen in. SIGN UP NOW
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