Newsgroup: it.comp.lang.visual-basic
Titolo: Accettare i cookie

Salve gente,
visto che il post di prima non haavuto troppo successo [forse perche non 
troppo chiaro] lo ripropongo in chiave diversa...
Esiste un modo per settare da dentro il mio programma l'accettazione dei 
cookie da parte di Internet Explorer (cosa che riporterei a situazione 
normale appena finito di scaricare il file) ?
Praticamente devo importare un file xml dopo essermi loggato su un sito, al 
momento ci riesco , ma ho notato che se IE hai cookie bloccati non funge il 
login....
consigli ?!?!
Grazie Giuseppe 

 consigli ?!?!
Puoi fare lo stesso di questo sotto direttamente in VB [1]
http://www.dougknox.com/security/scripts_desc/togglecookies.htm
http://www.dougknox.com/security/scripts/togglecookies.vbs
[1]
http://www.google.it/search?hl=it&q=Visual+Basic%2Bregread&btnG=Cerca&meta=
http://www.google.it/search?hl=it&q=Visual+Basic%2Bregwrite&btnG=Cerca&meta=
--
Fosco

 
http://www.dougknox.com/security/scripts/togglecookies.vbs
se non dovesse aggiornarsi automaticamente puoi provare a farlo con questo trick
e c'e anche la ruotine di regread/regwrite :
http://vbnet.mvps.org/index.html?code/reg/screenrefresh.htm
http://www.vb-helper.com/howto_refresh_desktop_icons.html
http://blogs.msdn.com/oldnewthing/archive/2004/05/05/126427.aspx
http://www.google.it/search?hl=it&q=HWND_BROADCAST&meta=
--
Fosco

"Giuseppe"
con  InternetExplorer.Application
e' possibile accertarsi dello stato NON so se sia anche possibile
settarlo .. fai tu una ricerca .. esempio in VBS perche mi e' piu facile :
filename = "install.log"
Set oShell = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set newf = fso.createtextfile(filename)
Set ie = CreateObject("InternetExplorer.Application")
ie.Navigate "
http://www.bitdefender.com/scan8/ie.html
"
do until ie.readyState = 4 : wscript.sleep 10 : loop
IE.Visible = True
Wscript.Sleep 4000
sa = ie.Document.parentWindow.navigator.cookieEnabled
msgbox "cookies abilitati?  "& sa
With  IE.document.parentWindow.navigator
    newf.WriteLine .appCodeName
    msgbox(.appMinorVersion & VBCrLf)
    msgbox(.appName &  VBCrLf)
    msgbox(.appVersion & VBCrLf)
    msgbox(.browserLanguage & VBCrLf)
    msgbox(.cookieEnabled & VBCrLf)
    msgbox(.cpuClass & VBCrLf)
    msgbox(.onLine & VBCrLf)
    msgbox(.platform & VBCrLf)
    msgbox(.systemLanguage & VBCrLf)
    msgbox(.userAgent & VBCrLf)
    msgbox(.userLanguage & VBCrLf)
    msgbox(.javaEnabled & VBCrLf)
End With
ctr = 0
For Each el In ie.Document.All
newf.WriteLine el
                If TypeName(el) = "I Agree" Then
                  '  ctr = ctr + 1
                   ' If ctr = 8 Then
                        el.Click
                        Exit For
                   ' End If
                End If
Next
newf.Close
oShell.run"install.log"
'Copia incolla su notepad e salva con estensione .vbs
'tutti i file (*.*)  poi ci clicchi sopra. (per esempio Test.vbs)
'se ti da' errore disattiva l'antivirus
--
Fosco

 Fosco
Ti ringrazio...appena ho un secondo provo tutto :D
Giuseppe 

 Ti ringrazio...appena ho un secondo provo tutto :D
Ok .. poi magari fai sapere .. cosi se qualcuno fa una ricerca
e trova i tuoi post poi sa se e' stato possibile e in che maniera
--
Fosco