Usuário com melhor resposta
Hotmail

Pergunta
-
Respostas
-
- Marcado como Resposta Eduardo Lima A quinta-feira, 27 de março de 2014 18:41
-
Fiz esse código de cabeça:
Dim search As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("input") Dim email As HtmlElement = Nothing Dim password As HtmlElement = Nothing For Each ele As HtmlElement In search If (email Is Nothing) AndAlso (ele.GetAttribute("type") = "email") Then email = ele If (password Is Nothing) AndAlso (ele.GetAttribute("type") = "password") Then password = ele If (email IsNot Nothing) AndAlso (password IsNot Nothing) Then Exit For Next 'Aqui você seta os valores dos campos
Veja se funciona...
Herbert Lausmann
- Marcado como Resposta Eduardo Lima A quinta-feira, 27 de março de 2014 18:41
Todas as Respostas
-
- Marcado como Resposta Eduardo Lima A quinta-feira, 27 de março de 2014 18:41
-
Sim é uma aplicação Win form o link é:
https://login.live.com/login.srf?wa=wsignin1.0&rpsnv=12&ct=1395939028&rver=6.4.6456.0&wp=MBI&wreply=http:%2F%2Fmail.live.com%2Fdefault.aspx&lc=1046&id=64855&mkt=pt-br&cbcxt=mai&snsc=1
e eu to usando o código padrão Web_01.Document.GetElementById("").SetAttribute("value","Abner_lana@hotmail.com")
Abner Martins Lana
-
Fiz esse código de cabeça:
Dim search As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("input") Dim email As HtmlElement = Nothing Dim password As HtmlElement = Nothing For Each ele As HtmlElement In search If (email Is Nothing) AndAlso (ele.GetAttribute("type") = "email") Then email = ele If (password Is Nothing) AndAlso (ele.GetAttribute("type") = "password") Then password = ele If (email IsNot Nothing) AndAlso (password IsNot Nothing) Then Exit For Next 'Aqui você seta os valores dos campos
Veja se funciona...
Herbert Lausmann
- Marcado como Resposta Eduardo Lima A quinta-feira, 27 de março de 2014 18:41