[VB10] Premere bottoni HTML.

[UltraShock97]

Ciao a tutti,

Vi spiego il mio problema! Oggi volevo realizzare una specie di BOT per Facebook. Questo BOT consiste nell'accettare tutte le richieste di amicizia.
Sono riuscito a fare tutto, accedere al sito, fare il login, e andare alla pagina delle amicizie; tutto tramite un WebBrowser.
Il problema è accettare le richieste, mi spiego meglio.
Io quando vado nella pagina delle richieste di amicizia, link, mi appaio tutte le richieste di amicizia, fino a qua ok, ora vi elenco due HTML di due differenti bottoni per accettare le richieste:

1.

<button value="1" class="_42ft _4jy0 _4jy3 _4jy1 selected" id="u_jsonp_2_1m" type="submit">Conferma</button>

2.

<button value="1" class="_42ft _4jy0 _4jy3 _4jy1 selected" id="u_jsonp_2_1p" type="submit">Conferma</button>

Come possiamo notare, l'unica cosa statica è il class, quindi come codice VB avevo pensato a questo:

Dim pag As HtmlElementCollection = WebBrowser1.Document.All
        For Each webpag As HtmlElement In pag
            If webpag.GetAttribute("class") = "_42ft _4jy0 _4jy3 _4jy1 selected" Then
                webpag.InvokeMember("click")
            End If
        Next

E per quanto riguarda il loop pensavo di mettere:

Do
'Codice
Loop

Lasciando da parte il loop.


Il programma non riesce ad accettare l'amicizia. Come posso fare?



Grazie in anticipo.

[SirJo]

Io direi che di statico hai anche il testo "Conferma", potresti quindi trovare quello.

[UltraShock97]

Io direi che di statico hai anche il testo "Conferma", potresti quindi trovare quello.

Appena provato! Ma non mi funziona lo stesso.

Ecco i codice di prova:

Dim pag As HtmlElementCollection = WebBrowser1.Document.All
        For Each webpag As HtmlElement In pag
            If webpag.GetAttribute("</button>") = "Conferma" Then   'ho provato anche con "button" normale
                webpag.InvokeMember("click")
            End If
        Next

[SirJo]

Appena provato! Ma non mi funziona lo stesso.

Ecco i codice di prova:

Dim pag As HtmlElementCollection = WebBrowser1.Document.All
        For Each webpag As HtmlElement In pag
            If webpag.GetAttribute("</button>") = "Conferma" Then   'ho provato anche con "button" normale
                webpag.InvokeMember("click")
            End If
        Next

Direi che la riga

If webpag.GetAttribute("</button>") = "Conferma" Then

è decisamente sbagliata.
Semmai:

If webpag.InnerText = "Conferma" Then

Ma allora mi viene da pensare che anche

If webpag.GetAttribute("class") =

non fosse corretta

Sicuro che per leggere la classe di un Button si fa proprio così ??

Hai eseguito la procedura passo-a-passo per vedere se effettivamente la classe viene letta correttamente ??

Sergio