Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss
Aprire sito web da Excel.
561 views
Skip to first unread message
Alberto
Mar 21, 2013, 11:17:00 AM3/21/13
to
Da Excel, con il seguente codice, apro il sito web,
poi devo digitare userid, password e cliccare.
Qualcuno saprebbe indicarmi cosa scrivere al posto dei ??????
In sintesi aprire il sito senza digitare o cliccare!
Ciao e grazie in anticipo.
(win7 enterprise - office 2003)
Dim e As HTMLFormElement
Dim myIE As Object
Set myIE = CreateObject("InternetExplorer.Application")
myIE.navigate "http://www.quotidiano.ilsole24ore.com/"
myIE.Visible = True
Do While myIE.Busy Or myIE.readyState <> 4
DoEvents
Loop
myIE.document.all("??????").Value = "miaUserid"
myIE.document.all("??????").Value = "miaPassword"
myIE.docum....??????......Submit
oppure
myIE.docum....??????......Click
poi devo digitare userid, password e cliccare.
Qualcuno saprebbe indicarmi cosa scrivere al posto dei ??????
In sintesi aprire il sito senza digitare o cliccare!
Ciao e grazie in anticipo.
(win7 enterprise - office 2003)
Dim e As HTMLFormElement
Dim myIE As Object
Set myIE = CreateObject("InternetExplorer.Application")
myIE.navigate "http://www.quotidiano.ilsole24ore.com/"
myIE.Visible = True
Do While myIE.Busy Or myIE.readyState <> 4
DoEvents
Loop
myIE.document.all("??????").Value = "miaUserid"
myIE.document.all("??????").Value = "miaPassword"
myIE.docum....??????......Submit
oppure
myIE.docum....??????......Click
Maurizio Borrelli
Mar 21, 2013, 12:23:09 PM3/21/13
to
Il giorno giovedì 21 marzo 2013 16:17:00 UTC+1, Alberto ha scritto:
> Da Excel, con il seguente codice, apro il sito web,
> poi devo digitare userid, password e cliccare.
> Qualcuno saprebbe indicarmi cosa scrivere al posto dei ??????
> In sintesi aprire il sito senza digitare o cliccare!
> Da Excel, con il seguente codice, apro il sito web,
> poi devo digitare userid, password e cliccare.
> Qualcuno saprebbe indicarmi cosa scrivere al posto dei ??????
> In sintesi aprire il sito senza digitare o cliccare!
> (win7 enterprise - office 2003)
[...]
Prova a vedere se accetta la sintassi:
http://miaUserid:miaPa...@www.quotidiano.ilsole24ore.com/
--
Ciao!
Maurizio
Alberto
Mar 21, 2013, 12:45:08 PM3/21/13
to
Grazie Maurizio,
la sintassi non funziona.
Ciao,
Alberto
la sintassi non funziona.
Ciao,
Alberto
r
Mar 21, 2013, 7:15:41 PM3/21/13
to
Il giorno giovedì 21 marzo 2013 16:17:00 UTC+1, Alberto ha scritto:
Sub test()
Dim e As Object
Dim myIE As Object
Set myIE = CreateObject("InternetExplorer.Application")
myIE.navigate "http://www.quotidiano.ilsole24ore.com/"
myIE.Visible = True
Do While myIE.Busy Or myIE.readyState <> 4
DoEvents
Loop
myIE.document.all("dglogin").Value = "miaUserid"
Set myIE = CreateObject("InternetExplorer.Application")
myIE.navigate "http://www.quotidiano.ilsole24ore.com/"
myIE.Visible = True
Do While myIE.Busy Or myIE.readyState <> 4
DoEvents
Loop
myIE.document.all("dgpsw").Value = "miaPassword"
myIE.document.forms(0).submit
End Sub
saluti
r
Alberto
Mar 22, 2013, 6:38:37 AM3/22/13
to
Grazie r
con il tuo suggerimento funziona perfettamente!
Ciao,
Alberto
con il tuo suggerimento funziona perfettamente!
Ciao,
Alberto
r
Mar 22, 2013, 1:09:36 PM3/22/13
to
Il giorno venerdì 22 marzo 2013 11:38:37 UTC+1, Alberto ha scritto:
> Grazie r con il tuo suggerimento funziona perfettamente! Ciao, Alberto
bene :-)
> Grazie r con il tuo suggerimento funziona perfettamente! Ciao, Alberto
saluti
r
Alberto
Mar 22, 2013, 2:41:19 PM3/22/13
to
Anche per capire, ho cercato nel codice HTML della pagina http://www.quotidiano.ilsole24ore.com/
ma non sono riuscito a trovare ne "dglogin" ne "dgpsw" per non parlare poi del come si debba usare ....Submit oppure .....Click
Come hai fatto a scoprire le parole magiche?
So che la risposta non può essere certo data in poche righe, ti chiedo quindi gentilmente di indicarmi cosa mettermi a studiare (HTML ? vb? ...)
Resta inteso che anche qualora tu non avessi voglia di perdere ulteriore tempo dietro alla mia richiesta, ti sono comunque grato per l'aiuto che già mi hai dato.
Saluti
Alberto
ma non sono riuscito a trovare ne "dglogin" ne "dgpsw" per non parlare poi del come si debba usare ....Submit oppure .....Click
Come hai fatto a scoprire le parole magiche?
So che la risposta non può essere certo data in poche righe, ti chiedo quindi gentilmente di indicarmi cosa mettermi a studiare (HTML ? vb? ...)
Resta inteso che anche qualora tu non avessi voglia di perdere ulteriore tempo dietro alla mia richiesta, ti sono comunque grato per l'aiuto che già mi hai dato.
Saluti
Alberto
r
Mar 22, 2013, 5:32:19 PM3/22/13
to
saluti
r
Alberto
Mar 23, 2013, 10:22:47 AM3/23/13
to
Anche oggi ho imparato qualcosa di nuovo!
Ciao e grazie,
Alberto
Ciao e grazie,
Alberto
L'egiziano
Mar 27, 2013, 7:13:07 PM3/27/13
to
"r" ha scritto nel messaggio
news:184ae65d-6d5c-4786...@googlegroups.com...
- Io ho Explorer 9. Dal menu Strumenti vedo la voce Strumenti di Sviluppo
F12 poi si apre un finestra con Menu e Voci varie voci sotto a questo menu.
Non sono riuscito a capire il funzionamento.
Mi potresti dire la procedura da seguire, ad esempio, per questa pagina di
Wind http://www.wind.it/it/privati/ In manuale debbo cliccare sull’icona
“Area Clienti” e poi inserire Username e PW nelle rispettive caselle di
testo.
Come procedere passo passo se volessi automatizzare le due manovre? Grazie
in anticipo.
F.
r
Mar 28, 2013, 12:00:06 PM3/28/13
to
Sub test()
Dim e As Object
Dim e As Object
Dim myIE As Object
Set myIE = CreateObject("InternetExplorer.Application")
myIE.navigate "https://www.wind.it/nuovaAreaClienti/wind/pages/yourData/StartRetrievesPassword.action?serviceId=633"
Set myIE = CreateObject("InternetExplorer.Application")
myIE.Visible = True
Do While myIE.Busy Or myIE.readyState <> 4
DoEvents
Loop
myIE.document.all("ssousername_id").Value = "miaUserid"
Do While myIE.Busy Or myIE.readyState <> 4
DoEvents
Loop
myIE.document.all("password_id").Value = "miaPassword"
myIE.document.forms("LoginFormId").submit
End Sub
saluti
r
L'egiziano
Mar 28, 2013, 10:00:12 PM3/28/13
to
La procedura funziona e non funziona. Mi spiego meglio.
Dopo aver modificato, ovviamente, User e PW ho fatto il debug.
1) Dopo l'istruzione myIE.Visible = True si apre la pagina di wind come se,
in manuale, avessi sbagliato ad inserire la User o la PW
2) L'istruzione Do While myIE.Busy Or myIE.readyState <> 4
DoEvents
viene saltata.
A fine procedura trovo aperta la sola e seguente pagina;
http://ar.libero.it/de1.htm (pagina non trovata)
Se per� vado a fare clic sull'icona di wind, memorizzata sulla barra dei
preferiti, si apre la pagina con in bella evidenza il mio nome e cognome
seguito da "Logout"
Insomma la pagina di wind dapprima si apre poi scompare sostituita da
quella di libero.
Non so se chiedo troppo. Ma se volessi costruire io la routine in una
qualsiasi altra pagina di un sito come dovrei procedere passo passo facendo
riferimento alla risposta che hai dato ad Alberto qui sotto?
Ringrazio e saluto
F.
> ma, io ho usato crome, ma qualunque browser ha strumenti simili ... in
> crome
>
> dunque strumenti->strumenti per sviluppatori poi in basso c'� la lente con
>
> �Area Clienti� e poi inserire Username e PW nelle rispettive caselle di
Dopo aver modificato, ovviamente, User e PW ho fatto il debug.
1) Dopo l'istruzione myIE.Visible = True si apre la pagina di wind come se,
in manuale, avessi sbagliato ad inserire la User o la PW
2) L'istruzione Do While myIE.Busy Or myIE.readyState <> 4
DoEvents
viene saltata.
A fine procedura trovo aperta la sola e seguente pagina;
http://ar.libero.it/de1.htm (pagina non trovata)
Se per� vado a fare clic sull'icona di wind, memorizzata sulla barra dei
preferiti, si apre la pagina con in bella evidenza il mio nome e cognome
seguito da "Logout"
Insomma la pagina di wind dapprima si apre poi scompare sostituita da
quella di libero.
Non so se chiedo troppo. Ma se volessi costruire io la routine in una
qualsiasi altra pagina di un sito come dovrei procedere passo passo facendo
riferimento alla risposta che hai dato ad Alberto qui sotto?
Ringrazio e saluto
F.
> ma, io ho usato crome, ma qualunque browser ha strumenti simili ... in
> crome
>
>
> la funzione seleziona un elemento nella pagine e ispeziona ... ecco fatto
>
> quando ti posizioni su esce il nome dell'elemento :-) abbastanza semplice
>
> no?
>
> saluti
>
> r
> - Ciao Roberto,
>
> - Io ho Explorer 9. Dal menu Strumenti vedo la voce Strumenti di Sviluppo
>
> F12 poi si apre un finestra con Menu e Voci varie voci sotto a questo
> menu.
>
> Non sono riuscito a capire il funzionamento.
>
> Mi potresti dire la procedura da seguire, ad esempio, per questa pagina di
>
> Wind http://www.wind.it/it/privati/ In manuale debbo cliccare sull�icona
> la funzione seleziona un elemento nella pagine e ispeziona ... ecco fatto
>
> quando ti posizioni su esce il nome dell'elemento :-) abbastanza semplice
>
> no?
>
> saluti
>
> r
> - Ciao Roberto,
>
> - Io ho Explorer 9. Dal menu Strumenti vedo la voce Strumenti di Sviluppo
>
> F12 poi si apre un finestra con Menu e Voci varie voci sotto a questo
> menu.
>
> Non sono riuscito a capire il funzionamento.
>
> Mi potresti dire la procedura da seguire, ad esempio, per questa pagina di
>
>
> �Area Clienti� e poi inserire Username e PW nelle rispettive caselle di
>
> testo.
>
> Come procedere passo passo se volessi automatizzare le due manovre? Grazie
>
> in anticipo.
>
> F.
prova un po' cos�:
> testo.
>
> Come procedere passo passo se volessi automatizzare le due manovre? Grazie
>
> in anticipo.
>
> F.
r
Mar 29, 2013, 7:40:45 AM3/29/13
to
Il giorno venerdì 29 marzo 2013 03:00:12 UTC+1, L'egiziano ha scritto:
scrivere username e password ... le scrive, poi dovrebbe fare il submit però io non avendo l'account non posso fare le prove.
Questa funziona:
Io di volta in volta cerco di capire i meccanismi e dove possibile, anche facendo delle prove, cercare di superarli ma non uso un "modo"
saluti
r
scrivere username e password ... le scrive, poi dovrebbe fare il submit però io non avendo l'account non posso fare le prove.
Questa funziona:
Sub test()
Dim e As Object
Dim myIE As Object
Set myIE = CreateObject("InternetExplorer.Application")
myIE.navigate "https://www.wind.it/nuovaAreaClienti/wind/pages/yourData/StartRetrievesPassword.action?serviceId=633"
myIE.Visible = True
Do While myIE.Busy Or myIE.readyState <> 4
DoEvents
Loop
myIE.document.all("ssousername_id").Value = "miaUserid"
myIE.document.all("password_id").Value = "miaPassword"
'myIE.document.forms("LoginFormId").submit
End Sub
per il resto non ci sono ne regole fisse ne una metodologia vera e propria, ogni sito, pagina internet è fatta (spesso) in modo diverso, molte hanno meccanismi, javascript che spesso cercano di bloccare robot o altre routine simili a queste. Per vedere i nomi degli id degli elementi IE da strumenti di sviluppo ha la funzione Seleziona un elemento con il click dal menu trova ...
Dim e As Object
Dim myIE As Object
Set myIE = CreateObject("InternetExplorer.Application")
myIE.navigate "https://www.wind.it/nuovaAreaClienti/wind/pages/yourData/StartRetrievesPassword.action?serviceId=633"
myIE.Visible = True
Do While myIE.Busy Or myIE.readyState <> 4
DoEvents
Loop
myIE.document.all("ssousername_id").Value = "miaUserid"
myIE.document.all("password_id").Value = "miaPassword"
'myIE.document.forms("LoginFormId").submit
End Sub
Io di volta in volta cerco di capire i meccanismi e dove possibile, anche facendo delle prove, cercare di superarli ma non uso un "modo"
saluti
r
L'egiziano
Mar 29, 2013, 8:31:01 PM3/29/13
to
Grazie Roby per il tempo speso. Buona Pasqua.
F.
"r" ha scritto nel messaggio
news:d60d50ce-27b8-4ec9...@googlegroups.com...
Il giorno venerd� 29 marzo 2013 03:00:12 UTC+1, L'egiziano ha scritto:
scrivere username e password ... le scrive, poi dovrebbe fare il submit per�
F.
"r" ha scritto nel messaggio
Il giorno venerd� 29 marzo 2013 03:00:12 UTC+1, L'egiziano ha scritto:
scrivere username e password ... le scrive, poi dovrebbe fare il submit per�
io non avendo l'account non posso fare le prove.
Questa funziona:
Sub test()
Dim e As Object
Dim myIE As Object
Set myIE = CreateObject("InternetExplorer.Application")
myIE.navigate
"https://www.wind.it/nuovaAreaClienti/wind/pages/yourData/StartRetrievesPassword.action?serviceId=633"
myIE.Visible = True
Do While myIE.Busy Or myIE.readyState <> 4
DoEvents
Loop
myIE.document.all("ssousername_id").Value = "miaUserid"
myIE.document.all("password_id").Value = "miaPassword"
'myIE.document.forms("LoginFormId").submit
End Sub
per il resto non ci sono ne regole fisse ne una metodologia vera e propria,
ogni sito, pagina internet � fatta (spesso) in modo diverso, molte hanno
Questa funziona:
Sub test()
Dim e As Object
Dim myIE As Object
Set myIE = CreateObject("InternetExplorer.Application")
myIE.navigate
"https://www.wind.it/nuovaAreaClienti/wind/pages/yourData/StartRetrievesPassword.action?serviceId=633"
myIE.Visible = True
Do While myIE.Busy Or myIE.readyState <> 4
DoEvents
Loop
myIE.document.all("ssousername_id").Value = "miaUserid"
myIE.document.all("password_id").Value = "miaPassword"
'myIE.document.forms("LoginFormId").submit
End Sub
per il resto non ci sono ne regole fisse ne una metodologia vera e propria,
0 new messages