Dunque, ho in parte risolto, utilizzando la libreria
Microsft HTML Object Library e Microsoft Internet Controls
il problema è che sul sito che mi interessa non funziona.codice:Dim d As IHTMLDocument3 Dim el As IHTMLElement WebBrowser1.navigate Text1.Text 'attende il caricamento della pagina Do Until WebBrowser1.readyState = READYSTATE_COMPLETE DoEvents Loop 'variabile documento Set d = WebBrowser1.document 'imposta username Set el = d.getElementsByName("user")(0) el.setAttribute "value", "prova" 'imposta password Set el = d.getElementsByName("passwd")(0) el.setAttribute "value", "miapassword" 'pulsante di invio Set el = d.getElementsByName("invio")(0) el.Click
Mentre su (per esempio) libero.it, funziona benissimo
(chiaramente cambio nel programma i valori dei Name Tag a seconda del sito.
Ho provato su libero perchè questo codice l'ho visto su un altro post, e chi lo ha postato faceva la prova proprio con libero (e infatti funziona). Mentre con il sito che interessa a me... non va!
ho contrallato e per il sito che mi interessa, i valori dei tag name sono corretti. Eppure è come se il programma non li trovasse...
l'errore che mi da è subito all'inserimento della username:
Run-time error '91':
Object variable or With block variable not set

 
			
			 
					
					
					
						 Rispondi quotando
  Rispondi quotando