FAZER UPLOAD DE IMAGENS USANDO WEBBROWSER
Olá
Estou criando uma aplicação na qual tenho que enviar algumas imagens para um site através do webbrowser.
gostaria de saber se tem como automatizae esse processo
o mais perto que cheguei foi esse cod. fonte
[ô]Dim myHTML As HtmlElement
[ô]the HTML source:
[ô]<input type=[Ô]file[Ô] name=[Ô]file[Ô] size=[Ô]17[Ô]>
[ô]For Each myHTML In WebBrowser1.Document.GetElementsByTagName([Ô]input[Ô])
[ô]If myHTML.GetAttribute([Ô]type[Ô]) = [Ô]file[Ô] AndAlso _
[ô]myHTML.GetAttribute([Ô]name[Ô]) = [Ô]image[Ô] Then
[ô]myHTML.Focus()
[ô]SendKeys.SendWait([Ô]C:\Users\USER\Desktop\ok.jpg[Ô])
[ô]Exit For
[ô]End If
[ô] Next
porem o input da página parece ter algum tipo de proteção codificação...
Estou criando uma aplicação na qual tenho que enviar algumas imagens para um site através do webbrowser.
gostaria de saber se tem como automatizae esse processo
o mais perto que cheguei foi esse cod. fonte
[ô]Dim myHTML As HtmlElement
[ô]the HTML source:
[ô]<input type=[Ô]file[Ô] name=[Ô]file[Ô] size=[Ô]17[Ô]>
[ô]For Each myHTML In WebBrowser1.Document.GetElementsByTagName([Ô]input[Ô])
[ô]If myHTML.GetAttribute([Ô]type[Ô]) = [Ô]file[Ô] AndAlso _
[ô]myHTML.GetAttribute([Ô]name[Ô]) = [Ô]image[Ô] Then
[ô]myHTML.Focus()
[ô]SendKeys.SendWait([Ô]C:\Users\USER\Desktop\ok.jpg[Ô])
[ô]Exit For
[ô]End If
[ô] Next
porem o input da página parece ter algum tipo de proteção codificação...
Qual o site?
Citação::
Qual o site?
http://www2.olx.com.br/ai
Alguém pode me ajudar?
Faça seu login para responder