Grazie mille..alla fine ci sto riuscendo![]()
Come prova lo sto facendo sul sito della Tim...mi sembra + facile...però ti chiedo cmq aiuto...ho questo prob, quando mi loggo mi compare la finestra di "Avviso di protezione", come posso eliminarla o rispondere OK in automatico? ti posto quel che ho fatto sino ad ora
Private Sub cmdSTART_Click()
'per entrare nel sito:
WebBrowser1.Navigate2 ("http://www.119.tim.it/")
'per inserire username e password
Dim d As IHTMLDocument
Dim el As IHTMLElement
'attende il caricamento della pagina
Do Until WebBrowser1.ReadyState = READYSTATE_COMPLETE
DoEvents
Loop
Set d = WebBrowser1.Document
'imposta username
Set el = d.getElementsByName("login").Item(0)
el.setAttribute "value", "MIO_NUMERO"
'imposta password
Set el = d.getElementsByName("password")(0)
el.setAttribute "value", "PW"
'pulsante di invio
Set el = d.getElementsByName("vai")(0)
el.Click
End Sub

Rispondi quotando