BAIXAR CAPTCHA
Boa tarde ,
Galera faz tempo que estou tentando baixar o CAPTCHA da pagina : https://uvt.set.rn.gov.br/login.aspx
Mas ate agora não tive muito exito, estou utilizando o CreateObject([Ô]InternetExplorer.Application[Ô]) , preciso que o CAPTCHA seja da mesma
sessão , o endereço da imagem não e completo por isso estou com dificuldade de baixar. A parte que contem os dados do CAPTCHA e esta
<img src=[Ô]CaptchaImagem.aspx[Ô] width=[Ô]170px;[Ô] alt=[Ô]captcha[Ô]> ,
[Ô]CaptchaImagem.aspx[Ô] , e o endereço da imagem mas não consigo baixar
Galera fico no Aguardo ?
Galera faz tempo que estou tentando baixar o CAPTCHA da pagina : https://uvt.set.rn.gov.br/login.aspx
Mas ate agora não tive muito exito, estou utilizando o CreateObject([Ô]InternetExplorer.Application[Ô]) , preciso que o CAPTCHA seja da mesma
sessão , o endereço da imagem não e completo por isso estou com dificuldade de baixar. A parte que contem os dados do CAPTCHA e esta
<img src=[Ô]CaptchaImagem.aspx[Ô] width=[Ô]170px;[Ô] alt=[Ô]captcha[Ô]> ,
[Ô]CaptchaImagem.aspx[Ô] , e o endereço da imagem mas não consigo baixar
Galera fico no Aguardo ?
O endereço é relativo, se a imagem está em uma página com o endereço
https://uvt.set.rn.gov.br/login.aspx
e no fonte está CaptchaImagem.aspx então o endereço completo é
https://uvt.set.rn.gov.br/CaptchaImagem.aspx
https://uvt.set.rn.gov.br/login.aspx
e no fonte está CaptchaImagem.aspx então o endereço completo é
https://uvt.set.rn.gov.br/CaptchaImagem.aspx
Certo , vou com fé
Se eu conseguir algum resultado hoje posto o código completo para baixar a imagem
Se eu conseguir algum resultado hoje posto o código completo para baixar a imagem
Citação::
O endereço é relativo, se a imagem está em uma página com o endereço
https://uvt.set.rn.gov.br/login.aspx
e no fonte está CaptchaImagem.aspx então o endereço completo é
https://uvt.set.rn.gov.br/CaptchaImagem.aspx
Você poderia me dar uma ajuda de como eu poderia baixar CAPTCHA utilizando o CreateObject([Ô]InternetExplorer.Application[Ô]) ?
Boa tarde Pessoal
Consegui Capturar o CAPTCHA com este codigo que segue logo abaixo
Fonte: http://stackoverflow.com/questions/31385335/how-to-get-captcha-image-if-src-use-java-function
Imports System.Net
Imports System.Windows.Forms
Imports mshtml
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim htmldoc As mshtml.IHTMLDocument2 = wb.Document.DomDocument
Dim captchaimg As mshtml.HTMLImg = htmldoc.all.item([Ô]cimage[Ô], 0)
Dim imgRange As IHTMLControlRange = htmldoc.body.createControlRange()
For Each img As IHTMLImgElement In htmldoc.images
If img.nameProp = [Ô]captchaImage[Ô] Then
imgRange.add(img)
imgRange.execCommand([Ô]Copy[Ô], False, Nothing)
Using bmp As Bitmap = Clipboard.GetDataObject().GetData(DataFormats.Bitmap)
bmp.Save([Ô]c: est.bmp[Ô])
End Using
End If
Next
End Sub
End Class
Consegui Capturar o CAPTCHA com este codigo que segue logo abaixo
Fonte: http://stackoverflow.com/questions/31385335/how-to-get-captcha-image-if-src-use-java-function
Imports System.Net
Imports System.Windows.Forms
Imports mshtml
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim htmldoc As mshtml.IHTMLDocument2 = wb.Document.DomDocument
Dim captchaimg As mshtml.HTMLImg = htmldoc.all.item([Ô]cimage[Ô], 0)
Dim imgRange As IHTMLControlRange = htmldoc.body.createControlRange()
For Each img As IHTMLImgElement In htmldoc.images
If img.nameProp = [Ô]captchaImage[Ô] Then
imgRange.add(img)
imgRange.execCommand([Ô]Copy[Ô], False, Nothing)
Using bmp As Bitmap = Clipboard.GetDataObject().GetData(DataFormats.Bitmap)
bmp.Save([Ô]c: est.bmp[Ô])
End Using
End If
Next
End Sub
End Class
Tópico encerrado , respostas não são mais permitidas