Newsgroup: it.comp.appl.access
Titolo: Come salvare il codice sorgente (HTML) in risposta ad un HTTP://...

Come salvare il codice sorgente (HTML) in risposta ad un HTTP://...
ho letto un pò in giro ma non mi riesce se non usando

( scusate è partita x sbaglio incompleta)
Dicevo:
 ho letto un pò in giro ma non mi riesce se non usando
Declare Function URLDownloadToFile Lib "urlmon" _
   Alias "URLDownloadToFileA" _
  (ByVal pCaller As Long, _
   ByVal szURL As String, _
   ByVal szFileName As String, _
   ByVal dwReserved As Long, _
   ByVal lpfnCB As Long) As Long
=====
e poi ad un evento eseguo:
URLDownloadToFile(0,
"
http://offer.ebay.it/ws/eBayISAPI.dll?ViewBidsLogin&item=6446721123&ssPageName=Action:UPR
","c:\Temp.htm", 
0, 0)
Ma non va.
Cosa che invece "funzia" se la pagina è x esempio:
URLDownloadToFile(0, "
http://www.google.it
", "c:\Temp.htm", 0, 0)
In che sbaglio?
Grazie,
AlGOr 

 ha scritto nel messaggio 
news:Ct2Jf.5980$uQ4....@tornado.fastwebnet.it...

Che problema ti presenta?
Ciao.
-- 
Sergio MAZZA 

 AlGOr
Ed il LOGIN chi lo fà in quel caso...???
Se non sbaglio non puoi accedere a pagine dopo il Login, è un pò
come salvare nei preferiti la pagina della Banca dopo il Login...!!!!
Ciao
@Alex
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG


Non salva nulla.
Ma non dà alcun errore.
Credo che il poblema sia il fatto che il login non sia stato fatto...
effettivamente, come suggerisce Alessandro, la sessione x lui non è
mica la stessa...
Alex dice: =======
Ed il LOGIN chi lo fà in quel caso...???
Se non sbaglio non puoi accedere a pagine dopo il Login, è un pò
come salvare nei preferiti la pagina della Banca dopo il Login...!!!!
=======
Cmq, se non hai fatto il login dovrebbe comunque darti una pagina con 
l'elenco delle
transazioni per un determinato oggetto (su 
ebay.it
)
E quindi? che si fà?
C'è un flag per IE o Firefox che salva la pagina che apre?? (mi sta venendo 
in mente ora)
Così magari faccio il login "a mano" e poi lancio una serie di automatismi 
tramite Shell.
Ago

 come salvare nei preferiti la pagina della Banca dopo il Login...!!!!
ti ho risposto assieme al post di S.Mazza.
Che fare quindi? dritte? 

 ha scritto nel messaggio 
news:f%2Jf.6053$uQ4....@tornado.fastwebnet.it...

Il login non dovrebbe essere un problema con questo esempio:
'----
On Error GoTo scriviSuInternetExplorer_err
Dim oApp As InternetExplorer
Set oApp = CreateObject("InternetExplorer.Application")
oApp.Navigate2 
"
http://offer.ebay.it/ws/eBayISAPI.dll?ViewBidsLogin&item=6446721123&ssPageName=Action:UPR
"
Do
    DoEvents
    If oApp.ReadyState = READYSTATE_COMPLETE Then
        Exit Do
    End If
Loop
oApp.Visible = True
oApp.Document.Forms(1).item("userid").Value = "userid"
oApp.Document.Forms(1).item("pass").Value = "password"
oApp.Document.Forms(1).submit
Do
    DoEvents
    If oApp.ReadyState = READYSTATE_COMPLETE Then
        Exit Do
    End If
Loop
'--> ora provo a salvare la pagina
oApp.ExecWB OLECMDID_SAVEAS, OLECMDEXECOPT_DONTPROMPTUSER, 
"c:\Documenti\cippaLippa.htm"
scriviSuInternetExplorer_exit:
'    oApp.Quit
    Set oApp = Nothing
    Exit Sub
scriviSuInternetExplorer_err:
    oApp.Quit
    Set oDocument = Nothing
    MsgBox Application.AccessError(Err.Number) & ", " & Err.Number
End Sub
'----
Prova così...
Ciao.
-- 
Sergio MAZZA 


Dopo alcune prove (sono le 5:00am...) ci sono "semi-riuscito"...
L'unico problema è che ora usando quel metodo (ExecWB) e quei parametri
continuo ad avere il "prompt" (cioè il dialogbox con la richiesta del 
browse/nome/tipo del file da salvare).
Con tanto di conferma della sovrascrittura del file (se esiste).
Non c'è un modo per dirgli "salva in questo file, non chiedermi nulla e 
sovrascrivi"?
(chiedo troppo vero)?
;-)
AlGOr 

 AlGOr
Purtroppo con il metodo ExecWB i comandi Save e SaveAs ti presenteranno sempre la maschera di richiesta di dove salvare il file; è 
una impostazione di sicurezza che non e possibile togliere (
http://support.microsoft.com/kb/q244757/
).
Quindi dopo aver verificato il caricamento della seconda parte (quella dopo il login) dovrai richiamare l'API URLDownloadToFile che 
non ti scaricherà immagini e oggetti (come la link indicato)...
Ciao.
-- 
Sergio MAZZA 

 Sergio MAZZA
[Appendice]
In questo modo:
...
Dim returnValue
returnValue = URLDownloadToFile(0, oApp.Document.location, "c:\temp\nomeFile.htm", 0, 0)
...
Ciao.
-- 
Sergio MAZZA