Originariamente inviato da wallrider
ciao
potresti pubblicarla?

grazie
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application") ' crea oggetto Internet explorer

IE.Navigate "http://www.betclic.com" ' Carica la pagina web
While IE.Busy ' aspetta che la pagina sia caricata totalmente prima di procedere
DoEvents
Wend
IE.Visible = True ' Rende visibile IE
IE.Document.All("ctl00$top$ucIABlank$tbxLogin").Va lue = "il Tuo Identificativo" ' inserisce l'identificativo nella casella di testo
IE.Document.All("ctl00$top$ucIABlank$tbxPwd").Valu e = "La tua Password" ' inserisce la password
IE.Document.All("ctl00$top$ucIABlank$btnLogin").Cl ick 'clicca sul pulsante di login
While IE.Busy
DoEvents ' attende che le azioni siano concluse
Wend
IE.Document.All("ctl00$tbxSearch").Value = "juventus" ' effettuo una ricerca nel campo di Search
IE.Document.All("ctl00$btnSearch").Click ' clicco sul pulsante di ricerca
While IE.Busy
DoEvents 'attende che le azioni siano concluse
Wend


Saluti