INTEGRAçãO NUVEM SHOPPING

 Tópico anterior Próximo tópico Novo tópico

INTEGRAçãO NUVEM SHOPPING

C#

 Compartilhe  Compartilhe  Compartilhe
#496837 - 28/04/2021 00:05:31

JOAOBENEVIDES
RIBEIRAO PRETO
Cadast. em:Maio/2009


Boa Noite Pessoal estou fazendo uma integração com sistema NuvemShoping
estou tendo um problema em receber uma Autentição sei que o sistema quando envio uma requisçao pelo navegador para o endereco
https://www.tiendanube.com/apps/(app_id)/authorize / trocando o {app_id} para o id da minha loja recebo um url assim
http://localhost/?code=b5f1a46aa18a0cdbd17bc532846378bd8a2d5fa2 tenho que pegar esta Informção code=b5f1a46aa18a0cdbd17bc532846378bd8a2d5fa2 para dar sequencia em minha autenticação
esta url e validaca por 30s , agora vem minha pergunta como fazer isto , ?

Obrigado

Joao Spagnol

........Todos Podemos Ajudar Um ao Outro ajude vc tambem.....


#496839 - 28/04/2021 04:58:51

FABRICIOWEB
BELO HORIZONTE
Cadast. em:Novembro/2011


recebe como string? se for string so fazer um replace?
'http://localhost/?',''



#496841 - 28/04/2021 08:57:31

JOAOBENEVIDES
RIBEIRAO PRETO
Cadast. em:Maio/2009


ele volta numa pagina de internet no navegador

........Todos Podemos Ajudar Um ao Outro ajude vc tambem.....


#496903 - 06/05/2021 21:36:00

GABRIEL
ARAUCÁRIA - PR
Cadast. em:Dezembro/2003


use a requisição do html e jogue ela num textbox e de la vc pega so o que lhe interessar e trabalha no resulrtado!

GHPNET Informatica
www.ghpnet.com.br
(41) 9 9744-6137

#496905 - 07/05/2021 09:32:25

JOAOBENEVIDES
RIBEIRAO PRETO
Cadast. em:Maio/2009


Gabriel boa dia poderia se der me passar como fazer por favor ?
Obrigado

Joao

........Todos Podemos Ajudar Um ao Outro ajude vc tambem.....


#496910 - 07/05/2021 22:22:51

GABRIEL
ARAUCÁRIA - PR
Cadast. em:Dezembro/2003


Num modulo coloque o seguinte codigo
  'aqui algumas declarações para validação de URL
'para saber se a url está funcionando ou fora do ar
Private Declare Function InternetOpen Lib 'wininet.dll' Alias 'InternetOpenA' (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Private Declare Function InternetConnect Lib 'wininet.dll' Alias 'InternetConnectA' (ByVal hInternetSession As Long, ByVal sServerName As String, ByVal nServerPort As Integer, ByVal sUsername As String, ByVal sPassword As String, ByVal lService As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long
Private Declare Function HttpOpenRequest Lib 'wininet.dll' Alias 'HttpOpenRequestA' (ByVal hHttpSession As Long, ByVal sVerb As String, ByVal sObjectName As String, ByVal sVersion As String, ByVal sReferer As String, ByVal something As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long
Private Declare Function HttpQueryInfo Lib 'wininet.dll' Alias 'HttpQueryInfoA' (ByVal hHttpRequest As Long, ByVal lInfoLevel As Long, ByRef sBuffer As Any, ByRef lBufferLength As Long, ByRef lIndex As Long) As Integer
Private Declare Function InternetCloseHandle Lib 'wininet.dll' (ByVal hInet As Long) As Integer
Private Declare Function HttpSendRequest Lib 'wininet.dll' Alias 'HttpSendRequestA' (ByVal hHttpRequest As Long, ByVal sHeaders As String, ByVal lHeadersLength As Long, ByVal sOptional As String, ByVal lOptionalLength As Long) As Integer
Private Const HTTP_QUERY_STATUS_CODE = 19
Private Const INTERNET_SERVICE_HTTP = 3
Private Const scUserAgent = 'http sample'
Private Const INTERNET_OPEN_TYPE_PRECONFIG = 0
Private Const INTERNET_FLAG_RELOAD = &H80000000
Private Const INTERNET_FLAG_KEEP_CONNECTION = &H400000
'fim das declarações de url

'funções para ver se ta conectado a internet
Private Declare Function InternetGetConnectedState Lib 'wininet' (ByRef dwFlags As Long, ByVal dwReserved As Long) As Long
Private Const CONNECT_LAN As Long = &H2
Private Const CONNECT_MODEM As Long = &H1
Private Const CONNECT_PROXY As Long = &H4
Private Const CONNECT_OFFLINE As Long = &H20
Private Const CONNECT_CONFIGURED As Long = &H40 '
'fim das funções de internet

'' carrega html sem
Function GetHTMLCode(Optional strURL As String) As String
    Dim objHttp As Object, strText As String
    Set objHttp = CreateObject('MSXML2.ServerXMLHTTP')
    objHttp.Open 'GET', strURL, False
    objHttp.setRequestHeader 'User-Agent', 'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)'
    objHttp.send ('')
    strText = objHttp.responseText
    Set objHttp = Nothing
    GetHTMLCode = strText
End Function

'Carrego arquivo de texto em listbox
Public Sub file2list(listbox As listbox, filename As String, clear As String)
On Error Resume Next
If clear = '1' Then
listbox.clear
End If
Dim temp1 As String
Dim temp2 As String
temp1 = '0'
temp2 = '0'
Dim data As String
Open filename For Input As #1
On Error GoTo handler
Do Until temp1 = '999999999999999' 'rules to read
Input #1, data 'open data
temp1 = temp1 + 1 'counter
temp2 = data 'read data in temp
listbox.AddItem temp2 'add data
Loop
Exit Sub
handler:
Close #1
End Sub


' aqui verifico se tem internet
Public Function IsWebConnected(Optional ByRef ConnType As String) As Boolean
    Dim dwFlags As Long
    Dim WebTest As Boolean
    ConnType = ''
    WebTest = InternetGetConnectedState(dwFlags, 0&)
    Select Case WebTest
        Case dwFlags And CONNECT_LAN: ConnType = 'LAN'
        Case dwFlags And CONNECT_MODEM: ConnType = 'Modem'
        Case dwFlags And CONNECT_PROXY: ConnType = 'Proxy'
        Case dwFlags And CONNECT_OFFLINE: ConnType = 'Offline'
        Case dwFlags And CONNECT_CONFIGURED: ConnType = 'Configurada'
    End Select
IsWebConnected = WebTest
End Function


'checo status do servidor
Public Function CheckUrl(url As String) As Long
Dim sBuffer         As String * 1024
Dim lBufferLength   As Long
Dim hInternetSession As Long
Dim hInternetConnect As Long
Dim hHttpOpenRequest As Long

lBufferLength = 1024

'Remove Http if needed
If UCase(Left$(url, 7)) = 'HTTP://' Then
  url = Right$(url, Len(url) - 7)
End If

'Open the Internetconnection
hInternetSession = InternetOpen(scUserAgent, INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0)

If CBool(hInternetSession) = False Then
  CheckUrl = 0
  Exit Function
End If

'Connect and get the Status
hInternetConnect = InternetConnect(hInternetSession, url, 80, '', '', INTERNET_SERVICE_HTTP, 0, 0)
hHttpOpenRequest = HttpOpenRequest(hInternetConnect, 'GET', '', 'HTTP/1.0', vbNullString, 0, INTERNET_FLAG_RELOAD Or INTERNET_FLAG_KEEP_CONNECTION, 0)
HttpSendRequest hHttpOpenRequest, vbNullString, 0, vbNullString, 0
HttpQueryInfo hHttpOpenRequest, HTTP_QUERY_STATUS_CODE, ByVal sBuffer, lBufferLength, 0

CheckUrl = Val(Left$(sBuffer, lBufferLength))
' 0 No Connect / Error
' 200 OK
' 201 Created
' 202 Accepted
' 204 No Content
' 301 Moved Permanently
' 302 Moved Temporarily
' 304 Not Modified
' 400 Bad Request
' 401 Unauthorized
' 403 Forbidden
' 404 Not Found
' 500 Internal Server Error
' 501 Not Implemented
' 502 Bad Gateway
' 503 Service Unailable

'Close connections
InternetCloseHandle (hHttpOpenRequest)
InternetCloseHandle (hInternetSession)
InternetCloseHandle (hInternetConnect)
End Function




depois no form
coloque um timer com o nome de 'tstatus' e ponha enable = false e interval com 1000
depois ponha um webborwer na tela
um textbox mult-line com o nome de html
e um botao na tela

e insira o seguinte codigo
  Private Sub Command1_Click()
WebBrowser1.Navigate 'https://www.tiendanube.com/apps/(app_id)/authorize/'
tstatus.Enabled = True
End Sub


Private Sub tstatus_Timer()
'bstatus.Caption = WebBrowser1.ReadyState = READYSTATE_COMPLETE
If WebBrowser1.ReadyState = READYSTATE_COMPLETE Then
    Texto = WebBrowser1.Document.documentElement.outerHTML
    html.Text = Texto
    tstatus.Enabled = False
End If
End Sub


pronto, ja tera o html do site, ai é so pegar a parte que vc precisa!

duvidas me chame no whats que mando um exemplo

GHPNET Informatica
www.ghpnet.com.br
(41) 9 9744-6137

 Tópico anterior Próximo tópico Novo tópico


Para responder este tópico o login é requerido
Se você já possui uma conta de usuário por favor faça seu login
Se você não possui uma conta de usuário use a opção Criar usuário