Boa tarde ! Estou criando uma aplicação em que preciso acessar uma URL e ler uma valor dela, como um webscraping. Porém não consegui acessar essa informação da página por meio de script. Alguém pode me ajudar uma forma de fazé-lo ?
Basicamente ao acessar a URL, há uma linha de texto com a informação “port2=inactive” ou “port2=active” , que me retornar se o equipamento está ativo ou não. Preciso conseguir ler essa informação por meio de script assim posso jogar num tag e enviar para um Xcontrol.
Qual método você utilizou para acessar essa informação e qual retorno obteve? Uma forma de fazê-lo pode ser algo nesse caminho:
Dim sUrl
Dim sResponseText
Dim xmlhttp
' Sua URL aqui
sUrl = "https://www.elipse.com.br/"
' Cria um objeto XMLHTTP para fazer a requisicao HTTP
Set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP")
xmlhttp.Open "GET", sUrl, False
xmlhttp.send
If (xmlhttp.Status = 200) Then
' Obtem o texto da resposta
sResponseText = xmlhttp.responseText
If (InStr(sResponseText, "port2=active") > 0) Then
sRetval = "Ativo"
ElseIf (InStr(sResponseText, "port2=inactive") > 0) Then
sRetval = "Inativo"
Else
sRetval = "Indeterminado"
End If
' Exibe retorno
MsgBox "Retorno: " & sRetval
Else
MsgBox "Falha ao acessar a URL: " & _
xmlhttp.Status & " " & xmlhttp.statusText
End If
Bom dia Leandro! Pelo seu script, funcionou, obrigado! Só há um detalhe: coloquei esse escript num botão para rodar ao clicar, na primeira vez ele funciona , mas a partir da segunda ele não atualiza a informação, precisando fechar o viewer e abrir denovo. Como faço para ele atualizar a cada click ?
Você pode compatilhar a url que está tentando acessar? Não consegui reproduzir este comportamento.
Boa tarde Leandro! Consegui resolver aqui usando esse artigo:
https://www.tek-tips.com/viewthread.cfm?qid=1563400
O problema era no cache , quando roda o codigo nas veze seguinte ele lê apenas o cache, ai adicionei um valor random no final da URL para que force a atualização, como eles falaram nesse link.
Obrigado pela ajuda !