Salve a tutti, ho un problemino da risolvere.
Vorrei fare l'accesso a questo sito tramite codice
http://login.europe.yahoo.com/config....src=&.intl=it
Il codice che ho scritto è in visual basic, ma non so se devo usarne un altro, eccolo di seguito
-------------------------------------------------------
Dim WithEvents WebBrowser1 As SHDocVw.InternetExplorer
Private Sub Command1_Click()
Set WebBrowser1 = CreateObject("InternetExplorer.Application")
WebBrowser1.Navigate2 ("http://login.europe.yahoo.com/config/login?.done=http://it.finance.yahoo.com/&.src=&.intl=it")
'per inserire username e password
Dim doc As IHTMLDocument
Dim el As IHTMLElement
Dim body As MSHTML.IHTMLBodyElement
'attende il caricamento della pagina
Do Until WebBrowser1.readyState = READYSTATE_COMPLETE
DoEvents
Loop
Set doc = WebBrowser1.document
Set body = doc.body
Text1.Text = body.innerText
'imposta username
Set el = doc.getElementsByName("username").Item(0)
el.setAttribute "value", "MIONOME"
'imposta password
Set el = doc.getElementsByName("passwd")(0)
el.setAttribute "value", “MIAPASSWORD"
'pulsante di invio
Set el = doc.getElementsByName("???????")(0)
el.Click
....
....
....
End Sub
-------------------------------------------------------
Qui' arriva l'errore, perchè non so' cosa mettere al posto dei punti interrogativi.
Qualcuno mi può aiutare?
Rispondi quotando
