SEM IDS??

NETBRFAKES 06/11/2013 23:16:28
#430823
Alguem sabe como add informaçoes sem ID

<label>
<span class=[Ô]lbl[Ô]>E-mail</span>
<input[Ô] maxlength=[Ô]50[Ô] name=[Ô]email[Ô] value=[Ô][Ô] tabindex=[Ô]1[Ô] class=[Ô]mail[Ô] type=[Ô]text[Ô]>
</label>



<label>
<span class=[Ô]lbl[Ô]>Senha</span>
<input name=[Ô]senha[Ô] value=[Ô][Ô] tabindex=[Ô]2[Ô] class=[Ô]pasw[Ô] type=[Ô]password[Ô]>
</label>





Como add um valor ai belo VB? alguem tem ideia?
PEGUDO 07/11/2013 07:52:15
#430825 Resposta escolhida
Você vai precisar do For Each
Dim Inputs As HTMLElementCollection = WebBrowser1.Document.GetElementByName([Ô]input[Ô])
Dim Tentativas As Byte = 1

For Each Controle As HTMLElement In Inputs
    Try
        Select Case Tentativas
            Case 1
                If Controle.OutterHtml.Contains([txt-color=#e80000][Ô]name=[Ô][/txt-color] & Chr(34) & [txt-color=#e80000][Ô]email[Ô][/txt-color]) Then
                    Controle.InnerText = [txt-color=#e80000][Ô]Escrevendo@email.com[Ô][/txt-color]
                End If
            Case 2
                If Controle.OutterHtml.Contains([txt-color=#e80000][Ô]name=[Ô][/txt-color] & Chr(34) & [txt-color=#e80000][Ô]senha[Ô][/txt-color]) Then
                    Controle.InnerText = [txt-color=#e80000][Ô]Escrevendo a senha[Ô][/txt-color]
                    Exit For
                End If
        End Select
        
    Catch
    End Try
Next

Isto é só um exemplo baseado no que você postou. Nem testei no Visual Studio.
Tratamentos de erro ficam por sua conta.
Boa sorte.
NETBRFAKES 07/11/2013 15:34:39
#430855
Vlw amigo deu certo , porem tenho outra duvida se puder me ajudar esse acho que e o ultimo!





<label>
<span class=[Ô]lbl[Ô]>Apelido</span>
<input[Ô] value=[Ô][Ô] tabindex=[Ô]1[Ô] class=[Ô]Nik[Ô] type=[Ô]text[Ô]>
</label>



<label>
<span class=[Ô]lbl[Ô]>Pim</span>
<input value=[Ô][Ô] tabindex=[Ô]2[Ô] class=[Ô]line[Ô] type=[Ô]password[Ô]>
</label>



Esse nao tem nem nome nem IDS :( tem como?
PEGUDO 08/11/2013 11:48:09
#430909
é o mesmo raciocínio do código que te passei.
O importante, neste caso, é você observar o que o controle tem de único que o diferencia dos outros.
Por exemplo: type=[Ô]password[Ô] ou class=[Ô]Nik[Ô]

é só no [txt-color=#0000f0]For Each[/txt-color] você colocar o [txt-color=#0000f0]If...End If[/txt-color] para reconhecer se o controle tem algum destes parâmetros únicos.
Por exemplo: If controle.Contains([Ô]type=[Ô] & Chr(34) & [Ô]password[Ô])...

Boa sorte.
NETBRFAKES 08/11/2013 14:37:42
#430923
Mesmo assim nao deu nao! :(
NETBRFAKES 08/11/2013 15:03:04
#430930
Consegui !

so mudei isso


If controle.Contains([Ô]type=[Ô] & [Ô]password[Ô])


tirei o & Chr(34)

Vlw mano voce e nota 1000!
Tópico encerrado , respostas não são mais permitidas
Voltar