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路径为以前的值

我曾向马甲管理器SwapCookie的作者PT42写信请教webbrowser设置COOKIE路径的问题，没有得到回复，
后来看到BlueFang公布的资料，才得以实现。在此对BlueFang致谢！

附上关键流程代码及演示程序cookie.zip

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

type="text/javascript">

查看全文