Ho un problema che credo sia semplice per voi...quanto a me, le ho provate tutte ma senza risultato
Devo, in automatico, eseguire un login in un sito, immettendo solo la password e poi cliccando sull'apposito tasto di invio.
Mi funziona tutto....accedo al sito, inserisco nel campo apposito la password e quando simulo il click sul pulsante, ottengo un messaggio d'errore da parte della pagina che mi dice che ho lasciato vuoto il campo password....
La cosa strana, è che la password la scrivo (compaiono i pallini all'interno del campo)...poi facendo click sul pulsante (anche manualmente), i pallini scompaiono...ecco il codice
- Codice: Seleziona tutto
Sub login()
Set ie = CreateObject("InternetExplorer.Application")
With ie
.Navigate "http://rogerfazio.wixsite.com/in-genius/area-riservata-karmasports"
.Visible = True
Do While .Busy: DoEvents: Loop
myStart = Timer
Do
DoEvents
If Timer > myStart + 2 Or Timer < myStart Then Exit Do
Loop
DoEvents
Do While .ReadyState <> 4: DoEvents: Loop
With ie
Set a = .document.all
For Each a_elem In a
If a_elem.classname = " s0inputWithValidation_new s0inputWithValidationinput" Then
a_elem.Click
a_elem.Value = "mia password"
Set b = .document.all
For Each b_elem In b
If b_elem.classname = "g-transparent-a s1link" Then
b_elem.Click
End If
Next b_elem
End If
Next a_elem
End With
End With
End Sub