Delphi知识中心
www.delphi.ee
提供Delphi技术知识
与Delphi程序员共同进步


在线服务QQ:99923144 随时恭候您的光临
首页 基础知识 WIN系统 组件使用 组件开发 数据库 ACTIVEX 多媒体技术 网络技术 关于
文章类别:网络技术    你尚未登陆,会员功能无法使用,请从 网站首页 登陆。
  设置WebBrowser的COOKIE文件夹路径  
 
VB设置WebBrowser的COOKIE、临时文件夹等路径


VB中的WebBrowser控件,自动继承了IE的绝大部分选项,它们共同按照注册表路径HKEY_CURRENT_USER\"SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\ EXPLORER\User Shell Folders 下 COOKIES 项的值来设置COOKIE存储路径。我们通过改变这个值可以自定义WebBrowser的COOKIE保存路径,但是,同时IE的COOKIE路径也被改变了。如果在改变这个值,加载Webbrowser之后,立即恢复该项为以前的值,则不影响其他应用。大致流程如下

1、从注册表中取Cookies路径,保存
2、改变注册表中Cookie路径
3、加载Webbrowser控件或者其他基于Webbrowser的应用
4、恢复Cookie路径为以前的值

Dim tSet As String, tSet1 As String, tSet2 As String
tSet = REG.GetRegistryValue(HKEY_CURRENT_USER, "SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\EXPLORER\User Shell Folders", "Cookies")
tSet1 = REG.GetRegistryValue(HKEY_CURRENT_USER, "SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\EXPLORER\User Shell Folders", "Cache")
tSet2 = REG.GetRegistryValue(HKEY_CURRENT_USER, "SOFTWARE\MICROSOFT\INTERNET EXPLORER\MAIN", "Window Title")


REG.SetRegistryValue HKEY_CURRENT_USER, "SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\EXPLORER\User Shell Folders", "Cookies", Text_NewPath.Text, eString
REG.SetRegistryValue HKEY_CURRENT_USER, "SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\EXPLORER\User Shell Folders", "Cache", Text_NewPath.Text, eString
REG.SetRegistryValue HKEY_CURRENT_USER, "SOFTWARE\MICROSOFT\INTERNET EXPLORER\MAIN", "Window Title", Text_Title.Text, eString

internetsetoption INTERNET_OPTION_SETTINGS_CHANGED, 0, 0, 0
SendMessage HWND_BROADCAST, WM_SETTINGCHANGE, 0, 0
Sleep (100)
Form2.Show

REG.SetRegistryValue HKEY_CURRENT_USER, "SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\EXPLORER\User Shell Folders", "Cookies", tSet, eString
REG.SetRegistryValue HKEY_CURRENT_USER, "SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\EXPLORER\User Shell Folders", "Cache", tSet1, eString
REG.SetRegistryValue HKEY_CURRENT_USER, "SOFTWARE\MICROSOFT\INTERNET EXPLORER\MAIN", "Window Title", tSet2, eString

 

在线服务QQ:99923144 Delphi程序员QQ群(139442)
Delphi知识中心 www.delphi.ee 最专业的Delphi技术资料网站